|
Lines 126-131
if ($op eq "action") {
Link Here
|
| 126 |
my $values_to_modify = scalar(grep {!/^$/} @values) || scalar(grep {!/^$/} @searches); |
126 |
my $values_to_modify = scalar(grep {!/^$/} @values) || scalar(grep {!/^$/} @searches); |
| 127 |
my $values_to_blank = scalar(@disabled); |
127 |
my $values_to_blank = scalar(@disabled); |
| 128 |
|
128 |
|
|
|
129 |
# Clear the fields we are not editing, leave fields we are blanking |
| 130 |
foreach( my $i = 0; $i < scalar @values; $i++ ){ |
| 131 |
unless( $values[$i] || grep { $subfields[$i] } @disabled ){ |
| 132 |
splice(@values,$i,1); |
| 133 |
splice(@subfields,$i,1); |
| 134 |
splice(@tags,$i,1); |
| 135 |
} |
| 136 |
} |
| 137 |
|
| 129 |
my $marcitem; |
138 |
my $marcitem; |
| 130 |
|
139 |
|
| 131 |
#initializing values for updates |
140 |
#initializing values for updates |
|
Lines 244-250
if ($op eq "action") {
Link Here
|
| 244 |
} |
253 |
} |
| 245 |
} |
254 |
} |
| 246 |
} |
255 |
} |
| 247 |
|
|
|
| 248 |
$modified += UpdateMarcWith( $marcitem, $localmarcitem ); |
256 |
$modified += UpdateMarcWith( $marcitem, $localmarcitem ); |
| 249 |
if ($modified) { |
257 |
if ($modified) { |
| 250 |
eval { |
258 |
eval { |
| 251 |
- |
|
|