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

[svn at svn.open-ils.org]

Author: miker
Date: 2010-07-21 15:58:44 -0400 (Wed, 21 Jul 2010)
New Revision: 17001

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
Log:
add parameter support to acn, acp and auri unapi axes

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-07-21 18:17:23 UTC (rev 17000)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/SuperCat.pm	2010-07-21 19:58:44 UTC (rev 17001)
@@ -586,6 +586,10 @@
 	my @params = ($id);
 	push @params, $lib, $lib_depth, $flesh_feed, $paging if ($base_format eq 'holdings_xml');
 
+	# for acn, acp, etc, the "lib" pathinfo position isn't useful.
+	# however, we can have it carry extra options like no_record! (comma separated)
+	push @params, { map { ( $_ => 1 ) } split(',', $lib) } if ( grep { $type eq $_} qw/acn acp auri/);
+
 	my $req = $supercat->request($method, at params);
 	my $data = $req->gather();