@@ -, +, @@ --- Koha/SimpleMARC.pm | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) --- a/Koha/SimpleMARC.pm +++ a/Koha/SimpleMARC.pm @@ -90,13 +90,13 @@ sub copy_field { } } - update_field( $record, $toFieldName, $toSubfieldName, @values, $dont_erase ); + update_field( $record, $toFieldName, $toSubfieldName, $dont_erase, @values ); } =head2 - update_field( $record, $fieldName, $subfieldName, $value[, $value,[ $value ... ] ] ); + update_field( $record, $fieldName, $subfieldName, $dont_erase, $value[, $value,[ $value ... ] ] ); Updates a field with the given value, creating it if neccessary. @@ -109,8 +109,8 @@ sub copy_field { =cut sub update_field { - my ( $record, $fieldName, $subfieldName, @values, $dont_erase ) = @_; - C4::Koha::Log( "C4::SimpleMARC::update_field( $record, $fieldName, $subfieldName, @values )" ) if $debug; + my ( $record, $fieldName, $subfieldName, $dont_erase, @values ) = @_; + C4::Koha::Log( "C4::SimpleMARC::update_field( $record, $fieldName, $subfieldName, $dont_erase, @values )" ) if $debug; if ( ! ( $record && $fieldName ) ) { return; } --