From 939c11ab891b57045db9e923baec04282adb28e5 Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 22 Jun 2009 18:00:14 +0000 Subject: [PATCH] define fix_tcn and override parameters before call to biblio_record_replace_marc, because of some unexpected (by me, anyway) handling of =~ in a parameter list git-svn-id: svn://svn.open-ils.org/ILS/trunk@13433 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm index dc8943055a..56d5dc0352 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm @@ -161,13 +161,11 @@ sub biblio_record_replace_marc { return $e->die_event unless $e->allowed('CREATE_MARC', $e->requestor->ws_ou); my $no_ingest = 1; + my $fix_tcn = $self->api_name =~ /replace/o; + my $override = $self->api_name =~ /override/o; my $res = OpenILS::Application::Cat::BibCommon->biblio_record_replace_marc( - $e, $recid, $newxml, $source, - $self->api_name =~ /replace/o, - $self->api_name =~ /override/o, - $no_ingest - ); + $e, $recid, $newxml, $source, $fix_tcn, $override, $no_ingest); $e->commit unless $U->event_code($res); -- 2.11.0