moving to cstore from storage, using editor for miker_s call

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@8242 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index 064a0af..734ffe1 100755 (executable)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
@@ -15,7 +15,7 @@ use OpenILS::Utils::ModsParser;
 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 @@ sub query_services {
        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 ) {