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

[svn at svn.open-ils.org]

Author: miker
Date: 2007-10-03 15:00:01 -0400 (Wed, 03 Oct 2007)
New Revision: 7865

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
Log:
may be getting an undef?

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-10-03 18:55:20 UTC (rev 7864)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-10-03 19:00:01 UTC (rev 7865)
@@ -56,7 +56,7 @@
 	# find some IDs ...
 	my @records;
 
-	@records = $cgi->param('id');
+	@records = map { $_ ? ($_) : () } $cgi->param('id');
 
 	if (!@records) { # try for a file
 		my $file = $cgi->param('idfile');
@@ -88,7 +88,7 @@
 
 	return show_template($r) unless (@records);
 
-	warn "ids: :". join(',', at records);
+	warn "ids: ". join(',', at records);
 
 	my $type = $cgi->param('rectype') || 'biblio';
 	if ($type ne 'biblio' && $type ne 'authority') {