Lines 295-309
sub batch_update {
Link Here
|
295 |
|
295 |
|
296 |
my $old = $old_values->{$attribute}; |
296 |
my $old = $old_values->{$attribute}; |
297 |
my $new = $new_values->{$attribute}; |
297 |
my $new = $new_values->{$attribute}; |
298 |
if ( $attribute eq 'permanent_location' && $new eq '' ){ |
298 |
if ( $attribute eq 'permanent_location' && $new eq '' ) { |
299 |
# In the case where permanent_location is exposed we need |
299 |
|
300 |
# to preserve the original value when none is passed |
300 |
# In the case where permanent_location is exposed we need |
301 |
# the script will send a blank value to indicate that it was |
301 |
# to preserve the original value when none is passed |
302 |
# included in the form |
302 |
# the script will send a blank value to indicate that it was |
303 |
$modified++; |
303 |
# included in the form |
304 |
$new_values->{permanent_location} = $old; |
304 |
$modified++; |
305 |
$item->make_column_dirty('permanent_location'); |
305 |
$new_values->{permanent_location} = $old; |
306 |
} |
306 |
$item->make_column_dirty('permanent_location'); |
|
|
307 |
} |
307 |
$modified++ |
308 |
$modified++ |
308 |
if ( defined $old xor defined $new ) |
309 |
if ( defined $old xor defined $new ) |
309 |
|| ( defined $old && defined $new && $new ne $old ); |
310 |
|| ( defined $old && defined $new && $new ne $old ); |