[open-ils-commits] r8242 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2007-12-19 19:05:42 -0500 (Wed, 19 Dec 2007)
New Revision: 8242

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
moving to cstore from storage, using editor for miker_s call

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-19 23:49:36 UTC (rev 8241)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2007-12-20 00:05:42 UTC (rev 8242)
@@ -15,7 +15,7 @@
 use OpenSRF::Utils::SettingsClient;
 use OpenILS::Application::AppUtils;
 use OpenSRF::Utils::Logger qw/$logger/;
-use OpenILS::Utils::Editor q/:funcs/;
+use OpenILS::Utils::CStoreEditor q/:funcs/;
 
 my $output	= "USMARC"; 
 
@@ -85,13 +85,10 @@
 	return $e->event unless $e->checkauth;
 	return $e->event unless $e->allowed('REMOTE_Z3950_QUERY');
 
-	my $cstore = OpenSRF::AppSession->connect('open-ils.cstore');
-	my $sources = $cstore->request(
-		'open-ils.cstore.direct.config.z3950_source.search.atomic',
-		{ id => { '!=' => null } },
-		{ flesh => 1, flesh_fields => { czs => ['attrs'] } }
-	)->gather(1);
-	$cstore->disconnect;
+    my $sources = $e->search_config_z3950_source(
+        [ { name => { '!=' => undef } },
+        { flesh => 1, flesh_fields => { czs => ['attrs'] } }] 
+    );
 
 	my %hash = ();
 	for my $s ( @$sources ) {