From f4a087c560907c161c91fa7a0902bcfa434f922b Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 13 Feb 2013 10:56:44 -0500 Subject: [PATCH] Z39 Batch : vandelay match_bucket queueu create API Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm index 5964361284..b5aef611e7 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Vandelay.pm @@ -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); -- 2.11.0