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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
index 632c772..d568287 100644 (file)
--- 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
 # --------------------------------------------------------------------------------