Lines 65-71
sub store {
Link Here
|
65 |
$self->allow_change_from_others( 0 ) |
65 |
$self->allow_change_from_others( 0 ) |
66 |
unless defined $self->allow_change_from_others; |
66 |
unless defined $self->allow_change_from_others; |
67 |
|
67 |
|
68 |
$self->created_on( dt_from_string ); |
68 |
$self->created_on( dt_from_string ) unless defined $self->created_on; |
69 |
|
69 |
|
70 |
return $self->SUPER::store( $self ); |
70 |
return $self->SUPER::store( $self ); |
71 |
} |
71 |
} |
72 |
- |
|
|