From a5881c9eff3f93aafe13406f7bffd8a40f1a98ce Mon Sep 17 00:00:00 2001 From: erickson Date: Fri, 19 Sep 2008 20:51:39 +0000 Subject: [PATCH] return event if relevent queue name exists git-svn-id: svn://svn.open-ils.org/ILS/trunk@10650 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm index 2883f622f5..d11fd2117a 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm @@ -41,6 +41,10 @@ sub create_bib_queue { return $e->die_event unless $e->allowed('CREATE_BIB_IMPORT_QUEUE'); $owner ||= $e->requestor->id; + return OpenILS::Event->new('BIB_QUEUE_EXISTS') + if $e->search_vandelay_bib_queue( + {name => $name, owner => $owner, queue_type => $type})->[0]; + my $queue = new Fieldmapper::vandelay::bib_queue(); $queue->name( $name ); $queue->owner( $owner ); @@ -74,6 +78,10 @@ sub create_auth_queue { return $e->die_event unless $e->allowed('CREATE_AUTHORITY_IMPORT_QUEUE'); $owner ||= $e->requestor->id; + return OpenILS::Event->new('AUTH_QUEUE_EXISTS') + if $e->search_vandelay_bib_queue( + {name => $name, owner => $owner, queue_type => $type})->[0]; + my $queue = new Fieldmapper::vandelay::authority_queue(); $queue->name( $name ); $queue->owner( $owner ); -- 2.11.0