/[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 45 by dpavlin, Fri May 26 23:25:35 2006 UTC revision 46 by dpavlin, Tue May 30 18:09:51 2006 UTC
# Line 46  sub admin { Line 46  sub admin {
46          return $self->user_object->admin;          return $self->user_object->admin;
47  }  }
48    
49    =head2 can_import
50    
51    Can current user initiate import of request?
52    
53    =cut
54    
55    sub can_import {
56            my $self = shift;
57            return unless ($self->user_object);
58            return $self->user_object->can_import || $self->user_object->admin;
59    }
60    
61  1;  1;
Legend:
Removed from v.45  
changed lines
  Added in v.46
  ViewVC Help
Powered by ViewVC 1.1.26