Parent Directory | Revision Log | Patch
revision 126 by dpavlin, Wed Mar 14 20:02:19 2007 UTC | revision 127 by dpavlin, Sun Apr 29 00:16:05 2007 UTC | |
---|---|---|
# | Line 64 sub current_user_can { | Line 64 sub current_user_can { |
64 | return 1 if ( $uid && $owner_id && $uid == $owner_id ); | return 1 if ( $uid && $owner_id && $uid == $owner_id ); |
65 | } | } |
66 | ||
67 | sub after_create { | |
68 | my $self = shift; | |
69 | my $insert_return_value_ref = shift; | |
70 | ||
71 | return unless $$insert_return_value_ref; # bail if insert failed | |
72 | $self->load($$insert_return_value_ref); # load ourselves from db | |
73 | ||
74 | # Do whatever needs to be done here | |
75 | ||
76 | warn "after_create ", dump( $self->as_hash ); | |
77 | ||
78 | return; # return value is ignored | |
79 | } | |
80 | ||
81 | 1; | 1; |
82 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |