/[transports]/trunk/lib/Transports/Model/User.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 /trunk/lib/Transports/Model/User.pm

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

revision 26 by dpavlin, Fri May 26 14:02:18 2006 UTC revision 27 by dpavlin, Fri May 26 21:21:25 2006 UTC
# Line 19  column email => Line 19  column email =>
19      is mandatory,      is mandatory,
20      is distinct;      is distinct;
21    
22  column password =>,  column password =>
23      type is 'text',      type is 'text',
24      label is 'Password',      label is 'Password',
25      is mandatory,      is mandatory,
26      render_as 'password';      render_as 'password';
27    
28    column admin =>
29            type is 'boolean',
30            label is 'Administrator',
31            is mandatory,
32            default is 'false',
33            since '0.0.8';
34    
35  package Transports::Model::User;  package Transports::Model::User;
36  use base qw/Transports::Record/;  use base qw/Transports::Record/;
37    
# Line 71  Passes everything else off to the superc Line 78  Passes everything else off to the superc
78  sub current_user_can {  sub current_user_can {
79      my $self  = shift;      my $self  = shift;
80      my $right = shift;      my $right = shift;
81    
82            warn 'no $self->id' unless ($self->id);
83    
84      my %args  = (@_);      my %args  = (@_);
85      #Carp::confess if ($right eq 'read' and not $args{'column'});      #Carp::confess if ($right eq 'read' and not $args{'column'});
86      if ( $right eq 'read'      if ( $right eq 'read'
Legend:
Removed from v.26  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.26