From 34c7a77a8305aa1f23f4f1e43119bec2c1aafdb1 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 Signed-off-by: Leila Signed-off-by: Bernardo Gonzalez Kriegel --- C4/Koha.pm | 1 + C4/MarcModificationTemplates.pm | 1 + Koha/SimpleMARC.pm | 2 +- 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/C4/Koha.pm b/C4/Koha.pm index ade33f0..f8b4f9b 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -1501,6 +1501,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 ); diff --git a/Koha/SimpleMARC.pm b/Koha/SimpleMARC.pm index 8bfb621..f7f872b 100644 --- a/Koha/SimpleMARC.pm +++ b/Koha/SimpleMARC.pm @@ -28,7 +28,7 @@ our @EXPORT = qw( our $VERSION = '0.01'; -our $debug = 10; +our $debug = 0; =head1 NAME -- 1.7.9.5