Lines 256-261
sub store {
Link Here
|
256 |
$self->dateenrolled(undef) unless $self->dateenrolled; |
256 |
$self->dateenrolled(undef) unless $self->dateenrolled; |
257 |
$self->dateexpiry(undef) unless $self->dateexpiry; |
257 |
$self->dateexpiry(undef) unless $self->dateexpiry; |
258 |
|
258 |
|
|
|
259 |
# FIXME We should not deal with that here, callers have to do this job |
260 |
# Moved from ModMember to prevent regressions |
261 |
unless ( $self->userid ) { |
262 |
my $stored_userid = $self->get_from_storage->userid; |
263 |
$self->userid($stored_userid); |
264 |
} |
265 |
|
259 |
if ( C4::Context->preference('FeeOnChangePatronCategory') |
266 |
if ( C4::Context->preference('FeeOnChangePatronCategory') |
260 |
and $self->category->categorycode ne |
267 |
and $self->category->categorycode ne |
261 |
$self->get_from_storage->category->categorycode ) |
268 |
$self->get_from_storage->category->categorycode ) |
262 |
- |
|
|