define fix_tcn and override parameters before call to biblio_record_replace_marc...

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_4@13429 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 40b13ed..4c6b187 100644 (file)
--- 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);