|
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 |
- |
|
|