Lines 121-126
if ($op eq "action") {
Link Here
|
121 |
my $values_to_modify = scalar(grep {!/^$/} @values) || scalar(grep {!/^$/} @searches); |
121 |
my $values_to_modify = scalar(grep {!/^$/} @values) || scalar(grep {!/^$/} @searches); |
122 |
my $values_to_blank = scalar(@disabled); |
122 |
my $values_to_blank = scalar(@disabled); |
123 |
|
123 |
|
|
|
124 |
# Clear the fields we are not editing, leave fields we are blanking |
125 |
foreach( my $i = 0; $i < scalar @values; $i++ ){ |
126 |
unless( $values[$i] || grep { $subfields[$i] } @disabled ){ |
127 |
splice(@values,$i,1); |
128 |
splice(@subfields,$i,1); |
129 |
splice(@tags,$i,1); |
130 |
} |
131 |
} |
132 |
|
124 |
my $marcitem; |
133 |
my $marcitem; |
125 |
|
134 |
|
126 |
#initializing values for updates |
135 |
#initializing values for updates |
Lines 239-245
if ($op eq "action") {
Link Here
|
239 |
} |
248 |
} |
240 |
} |
249 |
} |
241 |
} |
250 |
} |
242 |
|
|
|
243 |
$modified += UpdateMarcWith( $marcitem, $localmarcitem ); |
251 |
$modified += UpdateMarcWith( $marcitem, $localmarcitem ); |
244 |
if ($modified) { |
252 |
if ($modified) { |
245 |
eval { |
253 |
eval { |
246 |
- |
|
|