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

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-12-09 01:41:38 -0500 (Thu, 09 Dec 2010)
New Revision: 18941

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
Return authority records for freshmeat when authority records are requested

Previously, freshmeat was hardcoded to return bibliographic records, even
when authority records were requested.


Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-12-09 06:40:26 UTC (rev 18940)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-12-09 06:41:38 UTC (rev 18941)
@@ -997,7 +997,11 @@
 	#	return 302;
 	#}
 
-	my $feed = create_record_feed( 'record', $type, $list, $unapi, $org_unit->[0]->shortname, undef, $flesh_feed);
+	my $search = 'record';
+	if ($rtype = 'authority') {
+		$search = 'authority';
+	}
+	my $feed = create_record_feed( $search, $type, $list, $unapi, $org_unit->[0]->shortname, undef, $flesh_feed);
 	$feed->root($root);
 
 	if ($date) {