/[Arh]/lib/Arh/Model/Unit.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/Unit.pm

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

revision 10 by dpavlin, Thu Nov 29 17:17:16 2007 UTC revision 23 by dpavlin, Fri Nov 30 23:23:14 2007 UTC
# Line 4  use warnings; Line 4  use warnings;
4  package Arh::Model::Unit;  package Arh::Model::Unit;
5  use Jifty::DBI::Schema;  use Jifty::DBI::Schema;
6    
7    use Data::Dump qw/dump/;
8    
9  use Arh::Record schema {  use Arh::Record schema {
10    
11          column name =>          column name =>
# Line 11  use Arh::Record schema { Line 13  use Arh::Record schema {
13                  label is _("Name"),                  label is _("Name"),
14                  is mandatory;                  is mandatory;
15                    
16          column number =>          column inv_id =>
17                  type is 'text',                  type is 'text',
18                  label is _("Number"),                  label is _("Number"),
19                  is mandatory;                  is mandatory;
# Line 24  use Arh::Record schema { Line 26  use Arh::Record schema {
26    
27          column dimensions =>          column dimensions =>
28                  label is _("Dimensions"),                  label is _("Dimensions"),
29                  hit is _("Separate values with ; (semicolumn)"),                  hint is _("Separate values with ; (semicolumn)"),
30                  type is 'text';                  type is 'text';
31                    
32          column position =>          column discovered_at =>
33                  label is _("Place of discovery"),                  label is _("Place of discovery"),
34                  type is 'text';                  type is 'text';
35    
# Line 57  sub material { Line 59  sub material {
59          return $m;          return $m;
60  }  }
61    
62  sub current_user_can {  use Arh::DefaultACL;
         my ( $self, $action,$item,$name ) = @_;  
         return 1 if $self->current_user->superuser || $self->current_user->administrator;  
         return 1 if $self->current_user->id && $action eq 'read';  
     return 0;  
 }  
63    
64  1;  1;
65    
Legend:
Removed from v.10  
changed lines
  Added in v.23
  ViewVC Help
Powered by ViewVC 1.1.26