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 |
|
|
72 |
|
=for TODO |
73 |
|
|
74 |
|
sub after_create { |
75 |
|
my $self = shift; |
76 |
|
my $insert_return_value_ref = shift; |
77 |
|
|
78 |
|
return unless $$insert_return_value_ref; # bail if insert failed |
79 |
|
$self->load($$insert_return_value_ref); # load ourselves from db |
80 |
|
|
81 |
|
# Do whatever needs to be done here |
82 |
|
|
83 |
|
# use Data::Dump qw/dump/; |
84 |
|
# warn "after_create ", dump( $self->as_hash ); |
85 |
|
|
86 |
|
return; # return value is ignored |
87 |
} |
} |
88 |
|
|
89 |
|
=cut |
90 |
|
|
91 |
1; |
1; |
92 |
|
|