[open-ils-commits] r16894 - trunk/Open-ILS/src/perlmods/OpenILS/WWW (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-07-09 06:01:44 -0400 (Fri, 09 Jul 2010)
New Revision: 16894

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
SuperCat requests for plain marcxml were returning holdings / links

This could cause "great fun" in the MARC editor as a bib record suddenly
grew volume and xhtml:link elements; everything would spiral downward
from there.


Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-07-08 20:12:46 UTC (rev 16893)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-07-09 10:01:44 UTC (rev 16894)
@@ -638,7 +638,7 @@
 
 	my $path = $cgi->path_info;
 	my ($id,$type,$format,$command) = reverse split '/', $path;
-	my $flesh_feed = parse_feed_type($type);
+	my $flesh_feed = parse_feed_type($format);
 	(my $base_format = $format) =~ s/(-full|-uris)$//o;
 
 	my $skin = $cgi->param('skin') || 'default';
@@ -804,7 +804,7 @@
 		my $feed = create_record_feed(
 			$type,
 			$format => [ $id ],
-			undef, undef,
+			undef, undef, undef,
 			$flesh_feed
 		);