[open-ils-commits] r11983 - branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-01-26 15:43:41 -0500 (Mon, 26 Jan 2009)
New Revision: 11983

Modified:
   branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
added a streaming, batch mvr retrieval method

Modified: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2009-01-26 20:43:27 UTC (rev 11982)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2009-01-26 20:43:41 UTC (rev 11983)
@@ -133,6 +133,19 @@
 }
 
 
+
+__PACKAGE__->register_method(
+	method	=> "record_id_to_mods_slim_batch",
+	api_name	=> "open-ils.search.biblio.record.mods_slim.batch.retrieve",
+    stream => 1
+);
+sub record_id_to_mods_slim_batch {
+	my($self, $conn, $id_list) = @_;
+    $conn->respond(_records_to_mods($_)->[0]) for @$id_list;
+    return undef;
+}
+
+
 # Returns the number of copies attached to a record based on org location
 __PACKAGE__->register_method(
 	method	=> "record_id_to_copy_count",