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

(-)a/Koha/SimpleMARC.pm (-5 / +4 lines)
Lines 90-102 sub copy_field { Link Here
90
    }
90
    }
91
  }
91
  }
92
92
93
  update_field( $record, $toFieldName, $toSubfieldName, @values, $dont_erase );
93
  update_field( $record, $toFieldName, $toSubfieldName, $dont_erase, @values );
94
94
95
}
95
}
96
96
97
=head2
97
=head2
98
98
99
  update_field( $record, $fieldName, $subfieldName, $value[, $value,[ $value ... ] ] );
99
  update_field( $record, $fieldName, $subfieldName, $dont_erase, $value[, $value,[ $value ... ] ] );
100
100
101
  Updates a field with the given value, creating it if neccessary.
101
  Updates a field with the given value, creating it if neccessary.
102
102
Lines 109-116 sub copy_field { Link Here
109
=cut
109
=cut
110
110
111
sub update_field {
111
sub update_field {
112
  my ( $record, $fieldName, $subfieldName, @values, $dont_erase ) = @_;
112
  my ( $record, $fieldName, $subfieldName, $dont_erase, @values ) = @_;
113
  C4::Koha::Log( "C4::SimpleMARC::update_field( $record, $fieldName, $subfieldName, @values )" ) if $debug;
113
  C4::Koha::Log( "C4::SimpleMARC::update_field( $record, $fieldName, $subfieldName, $dont_erase, @values )" ) if $debug;
114
114
115
  if ( ! ( $record && $fieldName ) ) { return; }
115
  if ( ! ( $record && $fieldName ) ) { return; }
116
116
117
- 

Return to bug 8015