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

[svn at svn.open-ils.org]

Author: miker
Date: 2010-06-16 15:01:36 -0400 (Wed, 16 Jun 2010)
New Revision: 16731

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
steps toward wiring up authority browse via supercat

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-06-16 18:48:44 UTC (rev 16730)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-06-16 19:01:36 UTC (rev 16731)
@@ -147,7 +147,7 @@
     $list = [ map { (keys %$_)[0] } @$list ];
     push @$list, 'htmlholdings','html', 'marctxt', 'ris';
 
-    for my $browse_axis ( qw/title author subject topic series item-age/ ) {
+    for my $browse_axis ( qw/title author subject topic series item-age authority.title authority.author authority.subject authority.topic/ ) {
         for my $record_browse_format ( @$list ) {
             {
                 my $__f = $record_browse_format;
@@ -1411,7 +1411,7 @@
 	my $tree = $supercat->request(
 		"open-ils.supercat.$axis.browse",
 		$string,
-		$site,
+		(($axis =~ /^authority/) ? () : ($site)),
 		$page_size,
 		$page,
 		$status,