[open-ils-commits] r11241 - branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-11-17 10:06:20 -0500 (Mon, 17 Nov 2008)
New Revision: 11241

Modified:
   branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
Log:
handle non-existent bucket more gracefully

Modified: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2008-11-17 15:05:55 UTC (rev 11240)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2008-11-17 15:06:20 UTC (rev 11241)
@@ -88,6 +88,11 @@
 	my $container = $cgi->param('containerid');
 	if ($container) {
 		my $bucket = $ses->request( 'open-ils.cstore.direct.container.biblio_record_entry_bucket.retrieve', $container )->gather(1);
+        unless($bucket) {
+            $r->log->error("No such bucket $container"); 
+            $logger->error("No such bucket $container"); 
+            return Apache2::Const::NOT_FOUND;
+        }
         if ($bucket->pub !~ /t|1/oi) {
     		my $authid = $cgi->cookie('ses') || $cgi->param('ses');
 	    	my $auth = verify_login($authid);