From dff5b86f7a63d0a0a4bd7d1e1c299af02b849437 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 + Koha/SimpleMARC.pm | 2 +- 3 files changed, 3 insertions(+), 1 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 ); 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.2.5