|
Lines 49-57
sub store {
Link Here
|
| 49 |
$flush = 1; |
49 |
$flush = 1; |
| 50 |
} |
50 |
} |
| 51 |
else { |
51 |
else { |
| 52 |
my $self_from_storage = $self->get_from_storage; |
52 |
my %updated_columns = $self->_result->get_dirty_columns; |
| 53 |
$flush = 1 if ( $self_from_storage->lib ne $self->lib ); |
53 |
|
| 54 |
$flush = 1 if ( $self_from_storage->lib_opac ne $self->lib_opac ); |
54 |
if ( exists $updated_columns{lib} |
|
|
55 |
or exists $updated_columns{lib_opac} ) |
| 56 |
{ |
| 57 |
$flush = 1; |
| 58 |
} |
| 55 |
} |
59 |
} |
| 56 |
|
60 |
|
| 57 |
$self = $self->SUPER::store; |
61 |
$self = $self->SUPER::store; |
| 58 |
- |
|
|