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

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

revision 12 by dpavlin, Thu Nov 29 17:17:16 2007 UTC revision 13 by dpavlin, Fri Nov 30 00:03:15 2007 UTC
# Line 69  sub current_user_can { Line 69  sub current_user_can {
69          warn "current_user_can $action | $item | ", $name ? $name : 'NO NAME', "\n";          warn "current_user_can $action | $item | ", $name ? $name : 'NO NAME', "\n";
70    
71          if ( $action eq 'read' && $item eq 'column' ) {          if ( $action eq 'read' && $item eq 'column' ) {
72                  foreach ( qw/name email organization phonenumber/ ) {                  foreach ( qw/name lastname email organization/) {
73                          return 1 if $name eq $_;                          return 1 if $name eq $_;
74                  }                  }
75                  return 0;                  return 0;
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.26