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 82 sub current_user_can { | Line 82 sub current_user_can { |
82 | ||
83 | my $uid = Jifty->web->current_user->id; | my $uid = Jifty->web->current_user->id; |
84 | ||
85 | return 1 if ( $uid && $what eq 'create' ); | return 1 if ( defined $uid && $what eq 'create' ); |
86 | ||
87 | return 1 if ( $uid && ! $self->id ); | return 1 if ( $uid && ! $self->id ); |
88 | ||
89 | return 1 if ( $uid && $uid == $self->owner->id ); | return 1 if ( $uid && $uid == $self->owner->id ); |
90 | ||
91 | warn "$uid can't $what"; | warn "$uid can't $what"; |
$self->SUPER::current_user_can( $what ); | ||
92 | } | } |
93 | ||
94 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |