View | Details | Raw Unified | Return to bug 25081
Collapse All | Expand All

(-)a/serials/serials-edit.pl (-4 / +3 lines)
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
- 

Return to bug 25081