Parent Directory
| 
Revision Log
| 
Patch
| revision 11 by dpavlin, Thu Nov 29 19:04:56 2007 UTC | revision 13 by dpavlin, Fri Nov 30 00:03:15 2007 UTC | |
|---|---|---|
| # | Line 59 sub material { | Line 59 sub material { |
| 59 | return $m; | return $m; |
| 60 | } | } |
| 61 | ||
| 62 | sub current_user_can { | use Arh::DefaultACL; |
| my ( $self, $action,$item,$value ) = @_; | ||
| warn "## |$action|$item|$value| user id: ",$self->current_user->id; | ||
| return 1 if $self->current_user->superuser; | ||
| return 1 if $self->current_user->administrator; | ||
| return 1 if $action eq 'read'; | ||
| return 0; | ||
| } | ||
| 63 | ||
| 64 | 1; | 1; |
| 65 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |