[open-ils-commits] r7585 - trunk/Open-ILS/src/perlmods/OpenILS/WWW

Fri Jul 27 11:33:56 EDT 2007

Author: miker
Date: 2007-07-27 11:32:36 -0400 (Fri, 27 Jul 2007)
New Revision: 7585

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
thinko in try/catch

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================

--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2007-07-27 15:22:34 UTC (rev 7584)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2007-07-27 15:32:36 UTC (rev 7585)
@@ -598,6 +598,7 @@
 		print "Location: $root/../../en-US/skin/default/xml/rdetail.xml?r=$id\n\n"
 			if ($type eq 'record');
 		return 302;
+
 	} elsif ($base_format eq 'marc21') {
 
 		my $ret = 200;    
@@ -619,17 +620,17 @@
 			print "Content-type: application/octet-stream\n\n";
 			print $r->as_usmarc;
 
-		} catch (Error) {
+		} otherwise {
 			
 			print "Content-type: text/html; charset=utf-8\n\n";
 			$apache->custom_response( 404, <<"			HTML");
 			<html>
 				<head>
-					<title>$type $id not found!</title>
+					<title>ERROR</title>
 				</head>
 				<body>
 					<br/>
-					<center>Sorry, we couldn't $command a $type with the id of $id in format $format.</center>
+					<center>Couldn't fetch $id as MARC21.</center>
 				</body>
 			</html>
 			HTML

