[open-ils-commits] r13432 - branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-22 14:00:08 -0400 (Mon, 22 Jun 2009)
New Revision: 13432

Modified:
   branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
Log:
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

Modified: branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
===================================================================
--- branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-06-22 17:59:58 UTC (rev 13431)
+++ branches/rel_1_6/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-06-22 18:00:08 UTC (rev 13432)
@@ -161,13 +161,11 @@
 	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);