/[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 10 by dpavlin, Thu Nov 29 17:17:16 2007 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    
# Line 11  use Arh::Record schema { Line 13  use Arh::Record schema {
13                  refers_to Arh::Model::Campaign,                  refers_to Arh::Model::Campaign,
14                  is required,                  is required,
15                  is indexed,                  is indexed,
                 render_as 'select',  
16                  since '0.0.4';                  since '0.0.4';
17                    
18          column filename =>          column filename =>
19                  label is _("Picture filename"),                  label is _("Picture filename"),
20                  is required,                  is required,
21                  is indexed;                  is indexed,
22                    is unique;
23    
24          column type =>          column type =>
25                  label is _("Type of picture"),                  label is _("Type of picture"),
26                  refers_to Arh::Model::PictureType,                  refers_to Arh::Model::PictureType,
27                  is required,                  is required,
28                  is indexed,                  is indexed,
29                  render_as 'select',                  since '0.0.4';
                 since '0.0.4',  
30    
31  };  };
32    
# Line 33  use Arh::Record schema { Line 34  use Arh::Record schema {
34    
35  sub since { '0.0.3' }  sub since { '0.0.3' }
36    
37    sub all_filenames {
38    
39            my @files;
40            my $path = Jifty::Util->app_root . '/share/web/static/pics';
41    
42            warn "## path = $path";
43    
44            find({ wanted => sub {
45                    my $f = $File::Find::name;
46                    return unless -f $f;
47                    push @files, $_;
48            }, follow => 0 }, $path);
49    
50            warn "## all_filenames = ",dump( @files );
51    
52            return @files;
53    }
54    
55    #use Jifty::Plugin::ActorMetadata::Mixin::Model::ActorMetadata; # created_by, created_on, updated_on
56    
57    sub current_user_can {
58            my ( $self, $action,$item,$name ) = @_;
59            return 1 if $self->current_user->superuser || $self->current_user->administrator;
60            return 1 if $self->current_user->id && $action eq 'read';
61        return 0;
62    }
63    
64  1;  1;
65    
Legend:
Removed from v.4  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.26