From 69d2be7b22cc50b2d589480bbd0d72627aee5d17 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 24 Oct 2008 15:13:32 +0000
Subject: [PATCH] added a full-queue import for items call

git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_4@10894 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 .../src/perlmods/OpenILS/Application/Vandelay.pm   | 33 ++++++++++++++++++++--
 1 file changed, 31 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
index 632c772e56..d5682874bd 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
@@ -822,8 +822,8 @@ sub retrieve_queue_summary {
 
 
 __PACKAGE__->register_method(  
-	api_name	=> "open-ils.vandelay.bib_record.asset.list.import",
-	method		=> 'import_record_asset_list',
+	api_name	=> "open-ils.vandelay.bib_record.list.asset.import",
+	method		=> 'import_record_list_assets',
 	api_level	=> 1,
 	argc		=> 2,
     stream      => 1,
@@ -839,6 +839,35 @@ sub import_record_asset_list {
     return {complete => 1};
 }
 
+__PACKAGE__->register_method(  
+	api_name	=> "open-ils.vandelay.bib_record.queue.asset.import",
+	method		=> 'import_record_queue_assets',
+	api_level	=> 1,
+	argc		=> 2,
+    stream      => 1,
+	record_type	=> 'bib'
+);
+
+sub import_record_list_assets {
+    my($self, $conn, $auth, $rec_ids) = @_;
+    my $e = new_editor(authtoken => $auth);
+    return $e->event unless $e->checkauth;
+    my $err = import_record_asset_list_impl($conn, $rec_ids, $e->requestor);
+    return $err if $err;
+    return {complete => 1};
+}
+
+sub import_record_queue_assets {
+    my($self, $conn, $auth, $q_id) = @_;
+    my $e = new_editor(authtoken => $auth);
+    return $e->event unless $e->checkauth;
+    my $rec_ids = $e->search_vandelay_queued_bib_record(
+        {queue => $q_id, import_time => {'!=' => undef}}, {idlist => 1});
+    my $err = import_record_asset_list_impl($conn, $rec_ids, $e->requestor);
+    return $err if $err;
+    return {complete => 1};
+}
+
 # --------------------------------------------------------------------------------
 # Given a list of queued record IDs, imports all items attached to those records
 # --------------------------------------------------------------------------------
-- 
2.11.0