Parent Directory | Revision Log | Patch
revision 40 by dpavlin, Sat May 27 15:23:10 2006 UTC | revision 41 by dpavlin, Sat May 27 22:54:11 2006 UTC | |
---|---|---|
# | Line 39 sub current_user_can { | Line 39 sub current_user_can { |
39 | my $self = shift; | my $self = shift; |
40 | my $type = shift; | my $type = shift; |
41 | ||
42 | return 1 if ($self->current_user->admin); | |
43 | ||
44 | # We probably want something like this eventually: | # We probably want something like this eventually: |
45 | if ($type =~ /(?:create|read|update)/i) { | if ($type =~ /(?:create|read|update)/i) { |
46 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |