From dd5e25b1b71daf293c7c11d476dab9cb06b4e2c5 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 23 Feb 2006 04:11:05 +0000
Subject: [PATCH] format and redirect fixups

git-svn-id: svn://svn.open-ils.org/ILS/trunk@3177 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm | 19 ++++++++++++++++---
 1 file changed, 16 insertions(+), 3 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
index 2fdd5f09fb..9da6155afb 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
@@ -109,7 +109,7 @@ sub unapi {
 				
 				'</formats>';
 
-		$apache->custom_response( 300, $body);
+			$apache->custom_response( 300, $body);
 			return 300;
 		} else {
 			my $list = $supercat
@@ -167,6 +167,9 @@ sub supercat {
 
 	my $path = $apache->path_info;
 
+	my $cgi = new CGI;
+	my $base = $cgi->url;
+
 	my ($id,$type,$format,$command) = reverse split '/', $path;
 
 	print "Content-type: application/xml; charset=utf-8\n";
@@ -178,8 +181,10 @@ sub supercat {
 				->gather(1);
 
 			print "\n<formats>
-				   <name>opac</name>
-				   <type>text/html</type>".
+				   <format>
+				     <name>opac</name>
+				     <type>text/html</type>
+				   </format>".
 				join('',
 					map { 
 						"<format><name>$_</name><type>text/xml</type></format>" 
@@ -215,6 +220,14 @@ sub supercat {
 		return Apache2::Const::OK;
 	}
 
+	if ($format eq 'opac') {
+		print "Location: $base/../../en-US/skin/default/xml/rresult.xml?m=$id\n\n"
+			if ($type eq 'metarecord');
+		print "Location: $base/../../en-US/skin/default/xml/rdetail.xml?r=$id\n\n"
+			if ($type eq 'record');
+		return 302;
+	}
+
 	print "\n" . $supercat->request("open-ils.supercat.$type.$format.$command",$id)->gather(1);
 
 	return Apache2::Const::OK;
-- 
2.43.2