From f6982587b81417b0670b1b188960d98015cebc66 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Tue, 19 Mar 2013 08:39:28 -0700 Subject: [PATCH] Bug 8015: Fix bad parameter list for direct external call to update_field --- C4/Koha.pm | 1 + C4/MarcModificationTemplates.pm | 1 + 2 files changed, 2 insertions(+), 0 deletions(-) diff --git a/C4/Koha.pm b/C4/Koha.pm index fd6f3f9..08271e0 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -1460,6 +1460,7 @@ sub _isbn_cleanup { sub Log { my ($data) = @_; + warn $data; open (MYFILE, '>>/tmp/koha.log'); print MYFILE "$data\n"; close (MYFILE); diff --git a/C4/MarcModificationTemplates.pm b/C4/MarcModificationTemplates.pm index 2c8bbaf..925f505 100644 --- a/C4/MarcModificationTemplates.pm +++ b/C4/MarcModificationTemplates.pm @@ -529,6 +529,7 @@ sub ModifyRecordWithTemplate { $field_value =~ s/__CURRENTDATE__/$current_date/g; $field_value =~ s/__BRANCHCODE__/$branchcode/g; + $eval .= " undef, " if ( $action eq 'update_field' ); $eval .= " '$field_value' "; C4::Koha::Log( "Field value after replacements: $field_value" ) if ( DEBUG >= 3 ); -- 1.7.2.5