|
Lines 294-300
if ( $op and $op eq 'serialchangestatus' ) {
Link Here
|
| 294 |
#Rebuilding ALL the data for items into a hash |
294 |
#Rebuilding ALL the data for items into a hash |
| 295 |
# parting them on $itemid. |
295 |
# parting them on $itemid. |
| 296 |
my %itemhash; |
296 |
my %itemhash; |
| 297 |
my $countdistinct; |
297 |
my $countdistinct = 0; |
| 298 |
my $range = scalar(@itemid); |
298 |
my $range = scalar(@itemid); |
| 299 |
for ( my $i = 0 ; $i < $range ; $i++ ) { |
299 |
for ( my $i = 0 ; $i < $range ; $i++ ) { |
| 300 |
unless ( $itemhash{ $itemid[$i] } ) { |
300 |
unless ( $itemhash{ $itemid[$i] } ) { |
|
Lines 308-313
if ( $op and $op eq 'serialchangestatus' ) {
Link Here
|
| 308 |
$itemhash{ $itemid[$i] }->{'serial'} = $newserial; |
308 |
$itemhash{ $itemid[$i] }->{'serial'} = $newserial; |
| 309 |
} |
309 |
} |
| 310 |
$itemhash{ $itemid[$i] }->{'bibnum'} = $bibnums[$countdistinct]; |
310 |
$itemhash{ $itemid[$i] }->{'bibnum'} = $bibnums[$countdistinct]; |
|
|
311 |
$itemhash{ $itemid[$i] }->{'num_copies'} = $num_copies[$countdistinct]; |
| 311 |
$countdistinct++; |
312 |
$countdistinct++; |
| 312 |
} |
313 |
} |
| 313 |
push @{ $itemhash{ $itemid[$i] }->{'tags'} }, $tags[$i]; |
314 |
push @{ $itemhash{ $itemid[$i] }->{'tags'} }, $tags[$i]; |
|
Lines 316-322
if ( $op and $op eq 'serialchangestatus' ) {
Link Here
|
| 316 |
$field_values[$i]; |
317 |
$field_values[$i]; |
| 317 |
push @{ $itemhash{ $itemid[$i] }->{'ind_tag'} }, $ind_tag[$i]; |
318 |
push @{ $itemhash{ $itemid[$i] }->{'ind_tag'} }, $ind_tag[$i]; |
| 318 |
push @{ $itemhash{ $itemid[$i] }->{'indicator'} }, $indicator[$i]; |
319 |
push @{ $itemhash{ $itemid[$i] }->{'indicator'} }, $indicator[$i]; |
| 319 |
push @{ $itemhash{ $itemid[$i] }->{'num_copies'} }, $num_copies[$i]; |
|
|
| 320 |
} |
320 |
} |
| 321 |
foreach my $item ( keys %itemhash ) { |
321 |
foreach my $item ( keys %itemhash ) { |
| 322 |
|
322 |
|
|
Lines 346-352
if ( $op and $op eq 'serialchangestatus' ) {
Link Here
|
| 346 |
|
346 |
|
| 347 |
$itemhash{$item}->{'num_copies'} //= 1; |
347 |
$itemhash{$item}->{'num_copies'} //= 1; |
| 348 |
|
348 |
|
| 349 |
for (my $copy = 0; $copy < $itemhash{$item}->{'num_copies'}[$index];){ |
349 |
for (my $copy = 0; $copy < $itemhash{$item}->{'num_copies'};){ |
| 350 |
|
350 |
|
| 351 |
# New Item |
351 |
# New Item |
| 352 |
|
352 |
|
| 353 |
- |
|
|