From: Mike Rylander <mrylander@gmail.com>
Date: Mon, 9 May 2011 23:36:12 +0000 (-0400)
Subject: Methods for searching by marcxml, constrained (or not) by control set
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=fb6f9fd5c7059b21650eb472ed3650994556bb73;p=evergreen%2Fmasslnc.git

Methods for searching by marcxml, constrained (or not) by control set
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Authority.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Authority.pm
index 37bc763109..7618f5c69b 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Authority.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Authority.pm
@@ -60,6 +60,61 @@ __PACKAGE__->register_method(
         note		=> "Searches authority data for existing controlled terms and crossrefs",
 );              
 
+sub search_authority_by_simple_normalize_heading {
+    my $self = shift;
+    my $client = shift;
+    my $marcxml = shift;
+    my $controlset = shift;
+
+    my $query = {
+        select => { are => ['id'] },
+        from   => 'are',
+        where  => {
+            deleted => 'f',
+            marc => { '=' => {
+                transform => 'authority.simple_normalize_heading',
+                value     => [ 'authority.simple_normalize_heading' => $marcxml ]
+            }},
+            defined($controlset) ? ( control_set => $controlset ) : ()
+        }
+    };
+
+    $client->respond($_->{id}) for @{ new_editor()->json_query( $query ) };
+    $client->respond_complete;
+}
+__PACKAGE__->register_method(
+        method		=> "search_authority_by_simple_normalize_heading",
+        api_name	=> "open-ils.search.authority.simple_heading.from_xml",
+        argc		=> 1, 
+        stream      => 1,
+        note		=> "Searches authority data by main entry using marcxml, returning 'are' ids",
+);
+
+sub search_authority_batch_by_simple_normalize_heading {
+    my $self = shift;
+    my $client = shift;
+    my $search_set = shift;
+
+    $search_set = [$search_set] unless (ref($search_set) =~ /ARRAY/);
+
+    my $m = $self->method_lookup('open-ils.search.authority.simple_heading.from_xml.atomic');
+
+    for my $s ( @$search_set ) {
+        for my $k ( keys %$s ) {
+            $client->respond( { $k => $m->run( $s->{$k}, $k ) } );
+        }
+    }
+
+    $client->respond_complete;
+}
+__PACKAGE__->register_method(
+        method		=> "search_authority_batch_by_simple_normalize_heading",
+        api_name	=> "open-ils.search.authority.simple_heading.from_xml.batch",
+        argc		=> 1, 
+        stream      => 1,
+        note		=> "Searches authority data by main entry using marcxml, in control-set batches, returning 'are' ids",
+);
+
 
 sub crossref_authority {
 	my $self = shift;