Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
}
my %updated_columns = $self->_result->get_dirty_columns;
- if ( exists $updated_columns{itemcallnumber} ) {
- my $cn_sort = GetClassSort($self->cn_source, $self->itemcallnumber, "");
+ if ( exists $updated_columns{itemcallnumber}
+ or exists $updated_columns{cn_source} )
+ {
+ my $cn_sort = GetClassSort( $self->cn_source, $self->itemcallnumber, "" );
$self->cn_sort($cn_sort);
}