/[Arh]/lib/Arh/Model/Picture.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /lib/Arh/Model/Picture.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4 by dpavlin, Thu Nov 29 11:20:24 2007 UTC revision 44 by dpavlin, Sun Apr 6 14:42:08 2008 UTC
# Line 3  use warnings; Line 3  use warnings;
3    
4  package Arh::Model::Picture;  package Arh::Model::Picture;
5  use Jifty::DBI::Schema;  use Jifty::DBI::Schema;
6    use File::Find;
7    use Data::Dump qw/dump/;
8    
9  use Arh::Record schema {  use Arh::Record schema {
10    
11            column filename =>
12                    label is _("Picture filename");
13    #               is immutable,
14    #               is indexed,
15    #               is unique;
16    
17            column content =>
18                    label is _('Picture'),
19                    type is 'bytea',
20                    render as 'Upload',
21                    is mandatory;
22    
23          column campaign =>          column campaign =>
24                  label is _("Part of campaign"),                  label is _("Part of campaign"),
25                  refers_to Arh::Model::Campaign,                  refers_to Arh::Model::Campaign,
26                  is required,                  is mandatory,
27                  is indexed,                  is indexed,
                 render_as 'select',  
28                  since '0.0.4';                  since '0.0.4';
29                    
         column filename =>  
                 label is _("Picture filename"),  
                 is required,  
                 is indexed;  
   
30          column type =>          column type =>
31                  label is _("Type of picture"),                  label is _("Type of picture"),
32                  refers_to Arh::Model::PictureType,                  refers_to Arh::Model::PictureType,
33                  is required,                  is mandatory,
34                  is indexed,                  is indexed,
35                  render_as 'select',                  since '0.0.4';
                 since '0.0.4',  
36    
37  };  };
38    
# Line 33  use Arh::Record schema { Line 40  use Arh::Record schema {
40    
41  sub since { '0.0.3' }  sub since { '0.0.3' }
42    
43    sub all_filenames {
44    
45            my @files;
46            my $path = Jifty::Util->app_root . '/share/web/static/pics';
47    
48    #       warn "## path = $path";
49    
50            find({ wanted => sub {
51                    my $f = $File::Find::name;
52                    return unless -f $f;
53                    push @files, $_;
54            }, follow => 0 }, $path);
55    
56    #       warn "## all_filenames = ",dump( @files );
57    
58            return @files;
59    }
60    
61    #use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on
62    
63    use Arh::DefaultACL;
64    
65  1;  1;
66    
Legend:
Removed from v.4  
changed lines
  Added in v.44
  ViewVC Help
Powered by ViewVC 1.1.26