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

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

revision 30 by dpavlin, Thu May 4 21:54:50 2006 UTC revision 31 by dpavlin, Fri May 26 23:25:35 2006 UTC
# Line 34  sub _init { Line 34  sub _init {
34      $self->SUPER::_init(%args);      $self->SUPER::_init(%args);
35  }  }
36    
37    =head2 admin
38    
39    Is current user administrator?
40    
41    =cut
42    
43    sub admin {
44            my $self = shift;
45            return unless ($self->user_object);
46            return $self->user_object->admin;
47    }
48    
49  1;  1;
Legend:
Removed from v.30  
changed lines
  Added in v.31
  ViewVC Help
Powered by ViewVC 1.1.26