62 |
# Jifty->log->debug("current_user[$uid]_can($what) on Item ", $self->id || '???', " owner ", $owner_id || '???'); |
# Jifty->log->debug("current_user[$uid]_can($what) on Item ", $self->id || '???', " owner ", $owner_id || '???'); |
63 |
|
|
64 |
return 1 if ( $uid && $owner_id && $uid == $owner_id ); |
return 1 if ( $uid && $owner_id && $uid == $owner_id ); |
65 |
|
|
66 |
|
# system user |
67 |
|
return 1 if ( defined( $uid ) && $uid == 0 ); |
68 |
|
|
69 |
|
warn "$uid can't $what"; |
70 |
|
|
71 |
|
$self->SUPER::current_user_can( $what ); |
72 |
} |
} |
73 |
|
|
74 |
|
=for TODO |
75 |
|
|
76 |
sub after_create { |
sub after_create { |
77 |
my $self = shift; |
my $self = shift; |
78 |
my $insert_return_value_ref = shift; |
my $insert_return_value_ref = shift; |
82 |
|
|
83 |
# Do whatever needs to be done here |
# Do whatever needs to be done here |
84 |
|
|
85 |
warn "after_create ", dump( $self->as_hash ); |
# use Data::Dump qw/dump/; |
86 |
|
# warn "after_create ", dump( $self->as_hash ); |
87 |
|
|
88 |
return; # return value is ignored |
return; # return value is ignored |
89 |
} |
} |
90 |
|
|
91 |
|
=cut |
92 |
|
|
93 |
1; |
1; |
94 |
|
|