using storage session where necessary

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5292 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 54a43e2..03c0f53 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm
@@ -19,6 +19,7 @@ use OpenILS::Utils::CStoreEditor q/:funcs/;
 use OpenILS::Perm;
 use OpenSRF::Utils::SettingsClient;
 use OpenSRF::Utils::Logger qw($logger);
+use OpenSRF::AppSession;
 
 my $apputils = "OpenILS::Application::AppUtils";
 
@@ -174,7 +175,9 @@ sub biblio_record_replace_marc  {
        my $override = $self->api_name =~ /override/;
 
        my( $tcn, $tsource, $marcdoc, $evt) = 
-               _find_tcn_info($e->session, $newxml, $override, $recid);
+               _find_tcn_info(
+                       OpenSRF::AppSession->create('open-ils.storage'), 
+                       $newxml, $override, $recid);
 
        return $evt if $evt;