39 |
|
|
40 |
sub current_user_can { |
sub current_user_can { |
41 |
my $self = shift; |
my $self = shift; |
42 |
# warn " current_user->id: ", $self->current_user->id, " == ", dump( $self->by_user->id ); |
my $op = shift; |
43 |
# FIXME just my sites |
|
44 |
#return 1 if $self->by_user->id == $self->current_user->id; |
if ( $op eq 'create' ) { |
45 |
return 1; |
my %args = @_; |
46 |
|
return 1 if $args{by_user} == $self->current_user->id; |
47 |
|
} |
48 |
|
|
49 |
|
return 1 if $self->by_user->id == $self->current_user->id; |
50 |
|
|
51 |
return 0; |
return 0; |
52 |
} |
} |
53 |
|
|