From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 19 Sep 2008 20:51:39 +0000 (+0000)
Subject: return event if relevent queue name exists
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a5881c9eff3f93aafe13406f7bffd8a40f1a98ce;p=Evergreen.git

return event if relevent queue name exists

git-svn-id: svn://svn.open-ils.org/ILS/trunk@10650 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 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 );