Z39 Batch : vandelay match_bucket queueu create API
authorBill Erickson <berick@esilibrary.com>
Wed, 13 Feb 2013 15:56:44 +0000 (10:56 -0500)
committerBill Erickson <berick@esilibrary.com>
Wed, 13 Feb 2013 15:56:44 +0000 (10:56 -0500)
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm

index 5964361..b5aef61 100644 (file)
@@ -62,6 +62,7 @@ sub create_bib_queue {
     my $type = shift;
     my $match_set = shift;
     my $import_def = shift;
+    my $match_bucket = shift;
 
     my $e = new_editor(authtoken => $auth, xact => 1);
 
@@ -80,6 +81,7 @@ sub create_bib_queue {
     $queue->queue_type( $type ) if ($type);
     $queue->item_attr_def( $import_def ) if ($import_def);
     $queue->match_set($match_set) if $match_set;
+    $queue->match_bucket($match_bucket);
 
     my $new_q = $e->create_vandelay_bib_queue( $queue );
     return $e->die_event unless ($new_q);