may be getting an undef?

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7865 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
index 8e2811c..e99b968 100644 (file)
--- 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') {