[open-ils-commits] r7609 - trunk/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

Author: miker
Date: 2007-07-27 15:12:06 -0400 (Fri, 27 Jul 2007)
New Revision: 7609

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
Log:
add path_info support for supplying one or more IDs

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-07-27 18:47:52 UTC (rev 7608)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-07-27 19:12:06 UTC (rev 7609)
@@ -53,7 +53,12 @@
 	my $cgi = new CGI;
 	
 	my @records = $cgi->param('id');
+	my $path_rec = $cgi->path_info();
 
+	if (!@records && $path_rec) {
+		@records = map { $_ ? ($_) : () } split '/', $path_rec;
+	}
+
 	return 200 unless (@records);
 
 	my $type = $cgi->param('rectype') || 'biblio';