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

(-)a/Koha/SimpleMARC.pm (-1 / +7 lines)
Lines 126-131 sub update_field { Link Here
126
      foreach my $field ( @fields ) {
126
      foreach my $field ( @fields ) {
127
        $field->update( "$subfieldName" => $values[$i++] );
127
        $field->update( "$subfieldName" => $values[$i++] );
128
      }
128
      }
129
      if ( $i <= scalar @values - 1 ) {
130
        foreach my $field ( @fields ) {
131
          foreach my $j ( $i .. scalar( @values ) - 1) {
132
            $field->add_subfields( "$subfieldName" => $values[$j] );
133
          }
134
        }
135
      }
129
    } else {
136
    } else {
130
      ## Field does not exist, create it.
137
      ## Field does not exist, create it.
131
      foreach my $value ( @values ) {
138
      foreach my $value ( @values ) {
132
- 

Return to bug 8015