From 1575bbaee6b6c391f7cb7583c04469ec3ade390a Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 3 Oct 2007 19:00:01 +0000 Subject: [PATCH] may be getting an undef? git-svn-id: svn://svn.open-ils.org/ILS/trunk@7865 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm index 8e2811ce24..e99b9688b3 100644 --- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm +++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm @@ -56,7 +56,7 @@ sub handler { # 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 @@ sub handler { return show_template($r) unless (@records); - warn "ids: :". join(',',@records); + warn "ids: ". join(',',@records); my $type = $cgi->param('rectype') || 'biblio'; if ($type ne 'biblio' && $type ne 'authority') { -- 2.11.0