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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 12 - (show annotations)
Thu Nov 29 19:32:41 2007 UTC (11 years, 10 months ago) by dpavlin
File size: 1192 byte(s)
small tweaks, mostly visible because of *some* css :-)
1 use strict;
2 use warnings;
3
4 package Arh::Model::Picture;
5 use Jifty::DBI::Schema;
6 use File::Find;
7 use Data::Dump qw/dump/;
8
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 is indexed,
22 is unique;
23
24 column type =>
25 label is _("Type of picture"),
26 refers_to Arh::Model::PictureType,
27 is required,
28 is indexed,
29 since '0.0.4';
30
31 };
32
33 # Your model-specific methods go here.
34
35 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 $action eq 'read';
61 return 0;
62 }
63
64 1;
65

  ViewVC Help
Powered by ViewVC 1.1.26