From ac24b94fd64e02e7a1a81bded7e8f451e7f64d60 Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 4 Aug 2006 13:01:53 +0000 Subject: [PATCH] using storage session where necessary git-svn-id: svn://svn.open-ils.org/ILS/trunk@5292 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Cat.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm b/Open-ILS/src/perlmods/OpenILS/Application/Cat.pm index 54a43e283d..03c0f536ca 100644 --- 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; -- 2.43.2