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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-22 13:59:58 -0400 (Mon, 22 Jun 2009)
New Revision: 13431

Modified:
   branches/rel_1_6_0/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_0/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
===================================================================
--- branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-06-22 17:57:40 UTC (rev 13430)
+++ branches/rel_1_6_0/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-06-22 17:59:58 UTC (rev 13431)
@@ -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);