/[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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 10 - (hide annotations)
Thu Nov 29 17:17:16 2007 UTC (16 years, 4 months ago) by dpavlin
File size: 1219 byte(s)
added users/passowrds all over the place
1 dpavlin 4 use strict;
2     use warnings;
3    
4     package Arh::Model::Picture;
5     use Jifty::DBI::Schema;
6 dpavlin 6 use File::Find;
7     use Data::Dump qw/dump/;
8 dpavlin 4
9     use Arh::Record schema {
10    
11     column campaign =>
12     label is _("Part of campaign"),
13     refers_to Arh::Model::Campaign,
14     is required,
15     is indexed,
16     since '0.0.4';
17    
18     column filename =>
19     label is _("Picture filename"),
20     is required,
21 dpavlin 6 is indexed,
22     is unique;
23 dpavlin 4
24     column type =>
25     label is _("Type of picture"),
26     refers_to Arh::Model::PictureType,
27     is required,
28     is indexed,
29 dpavlin 5 since '0.0.4';
30 dpavlin 4
31     };
32    
33     # Your model-specific methods go here.
34    
35     sub since { '0.0.3' }
36    
37 dpavlin 6 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 dpavlin 10 #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 dpavlin 4 1;
65    

  ViewVC Help
Powered by ViewVC 1.1.26