From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 22 Jun 2009 18:00:14 +0000 (+0000)
Subject: define fix_tcn and override parameters before call to biblio_record_replace_marc... 
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=939c11ab891b57045db9e923baec04282adb28e5;p=evergreen%2Fmasslnc.git

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
---

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);