[open-ils-commits] r18959 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/WWW (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-12-10 09:20:58 -0500 (Fri, 10 Dec 2010)
New Revision: 18959

Modified:
   branches/rel_2_0/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: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-12-10 14:20:24 UTC (rev 18958)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-12-10 14:20:58 UTC (rev 18959)
@@ -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) {