Parent Directory | Revision Log | Patch
revision 140 by dpavlin, Tue May 8 12:31:49 2007 UTC | revision 142 by dpavlin, Tue May 8 12:48:57 2007 UTC | |
---|---|---|
# | Line 53 sub current_user_can { | Line 53 sub current_user_can { |
53 | ||
54 | my $uid = Jifty->web->current_user->id; | my $uid = Jifty->web->current_user->id; |
55 | ||
56 | return 1 if ( $uid && $what eq 'create' ); | return 1 if ( defined $uid && $what eq 'create' ); |
57 | ||
58 | return 1 if ( $uid && ! $self->id ); | return 1 if ( $uid && ! $self->id ); |
59 | ||
# | Line 67 sub current_user_can { | Line 67 sub current_user_can { |
67 | return 1 if ( defined( $uid ) && $uid == 0 ); | return 1 if ( defined( $uid ) && $uid == 0 ); |
68 | ||
69 | warn "$uid can't $what"; | warn "$uid can't $what"; |
$self->SUPER::current_user_can( $what ); | ||
70 | } | } |
71 | ||
72 | =for TODO | =for TODO |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |