From 7465b8436cb505a48230cbae9df2165af42ac516 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Tue, 19 Mar 2013 04:26:16 -0700 Subject: [PATCH] Bug 8015: Fix bad ordering on function parameters --- Koha/SimpleMARC.pm | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Koha/SimpleMARC.pm b/Koha/SimpleMARC.pm index 75b8585..8bfb621 100644 --- a/Koha/SimpleMARC.pm +++ b/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; } -- 1.7.2.5