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 |
- |
|
|