Lines 77-84
sub store {
Link Here
|
77 |
} |
77 |
} |
78 |
|
78 |
|
79 |
my %updated_columns = $self->_result->get_dirty_columns; |
79 |
my %updated_columns = $self->_result->get_dirty_columns; |
80 |
if ( exists $updated_columns{itemcallnumber} ) { |
80 |
if ( exists $updated_columns{itemcallnumber} |
81 |
my $cn_sort = GetClassSort($self->cn_source, $self->itemcallnumber, ""); |
81 |
or exists $updated_columns{cn_source} ) |
|
|
82 |
{ |
83 |
my $cn_sort = GetClassSort( $self->cn_source, $self->itemcallnumber, "" ); |
82 |
$self->cn_sort($cn_sort); |
84 |
$self->cn_sort($cn_sort); |
83 |
} |
85 |
} |
84 |
|
86 |
|
85 |
- |
|
|