@@ -, +, @@ --- C4/Koha.pm | 1 + C4/MarcModificationTemplates.pm | 1 + Koha/SimpleMARC.pm | 2 +- 3 files changed, 3 insertions(+), 1 deletions(-) --- a/C4/Koha.pm +++ a/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); --- a/C4/MarcModificationTemplates.pm +++ a/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 ); --- a/Koha/SimpleMARC.pm +++ a/Koha/SimpleMARC.pm @@ -28,7 +28,7 @@ our @EXPORT = qw( our $VERSION = '0.01'; -our $debug = 10; +our $debug = 0; =head1 NAME --