/[SQLSession]/trunk/lib/SQLSession/CurrentUser.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/SQLSession/CurrentUser.pm

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

revision 68 by dpavlin, Thu Jan 25 18:19:02 2007 UTC revision 69 by dpavlin, Thu Jan 25 20:42:11 2007 UTC
# Line 59  sub role { Line 59  sub role {
59    
60          return 1 if ($role eq 'admin' && $self->current_user->is_superuser);          return 1 if ($role eq 'admin' && $self->current_user->is_superuser);
61    
62            return 1 if ($role eq 'edit' && $self->current_user->user_object->email_confirmed);
63    
64          my $r = SQLSession::Model::Role->new();          my $r = SQLSession::Model::Role->new();
65          $r->load_by_cols(          $r->load_by_cols(
66                  user_id => $self->current_user->id,                  user_id => $self->current_user->id,
Legend:
Removed from v.68  
changed lines
  Added in v.69
  ViewVC Help
Powered by ViewVC 1.1.26