/[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 17 by dpavlin, Fri Nov 30 17:35:14 2007 UTC revision 50 by dpavlin, Sun Apr 6 18:17:42 2008 UTC
# Line 8  use Data::Dump qw/dump/; Line 8  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,
# Line 15  use Arh::Record schema { Line 27  use Arh::Record schema {
27                  is indexed,                  is indexed,
28                  since '0.0.4';                  since '0.0.4';
29                    
         column filename =>  
                 label is _("Picture filename"),  
                 is mandatory,  
                 is indexed,  
                 is unique;  
   
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,
# Line 28  use Arh::Record schema { Line 34  use Arh::Record schema {
34                  is indexed,                  is indexed,
35                  since '0.0.4';                  since '0.0.4';
36    
37            column unit =>
38                    label is _('Unit'),
39                    refers_to Arh::Model::Unit,
40                    is mandatory,
41                    is indexed;
42    
43  };  };
44    
45  # Your model-specific methods go here.  # Your model-specific methods go here.
46    
 sub since { '0.0.3' }  
   
47  sub all_filenames {  sub all_filenames {
48    
49          my @files;          my @files;
Legend:
Removed from v.17  
changed lines
  Added in v.50
  ViewVC Help
Powered by ViewVC 1.1.26