[open-ils-commits] r13974 - trunk/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-09-04 16:42:18 -0400 (Fri, 04 Sep 2009)
New Revision: 13974

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
Log:
capture override as a var because using =~ in an arg list is non-good

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-09-04 20:21:46 UTC (rev 13973)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm	2009-09-04 20:42:18 UTC (rev 13974)
@@ -255,8 +255,9 @@
     return $e->die_event unless $e->checkauth;
     return $e->die_event unless $e->allowed('IMPORT_MARC', $e->requestor->ws_ou);
 
+	my $override = $self->api_name =~ /override/;
     my $record = OpenILS::Application::Cat::BibCommon->biblio_record_xml_import(
-        $e, $xml, $source, $auto_tcn, $self->api_name =~ /override/, 1);
+        $e, $xml, $source, $auto_tcn, $override, 1);
 
     return $record if $U->event_code($record);