[open-ils-commits] r10650 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-09-19 16:51:39 -0400 (Fri, 19 Sep 2008)
New Revision: 10650

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
Log:
return event if relevent queue name exists

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2008-09-19 20:25:52 UTC (rev 10649)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Vandelay.pm	2008-09-19 20:51:39 UTC (rev 10650)
@@ -41,6 +41,10 @@
 	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 @@
 	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 );