Parent Directory
| 
Revision Log
| 
Patch
| revision 15 by dpavlin, Fri May 26 10:01:16 2006 UTC | revision 22 by dpavlin, Fri May 26 18:35:08 2006 UTC | |
|---|---|---|
| # | Line 72 sub x_create { | Line 72 sub x_create { |
| 72 | return ($id); | return ($id); |
| 73 | } | } |
| 74 | ||
| 75 | =head2 current_user_can ACTION | |
| 76 | ||
| 77 | Let everybody create, read and update, but not delete. | |
| 78 | ||
| 79 | =cut | |
| 80 | ||
| 81 | sub current_user_can { | |
| 82 | my $self = shift; | |
| 83 | my $type = shift; | |
| 84 | ||
| 85 | # We probably want something like this eventually: | |
| 86 | if ($type =~ /(?:create|read|update)/i) { | |
| 87 | return 1; | |
| 88 | } else { | |
| 89 | return $self->SUPER::current_user_can($type, @_); | |
| 90 | } | |
| 91 | } | |
| 92 | ||
| 93 | ||
| 94 | 1; | 1; |
| 95 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |