removing debugging info

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7866 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 e99b968..54f0cec 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -61,17 +61,14 @@ sub handler {
        if (!@records) { # try for a file
                my $file = $cgi->param('idfile');
                if ($file) {
-                       warn "FILE $file";
                        my $col = $cgi->param('idcolumn') || 0;
                        my $csv = new Text::CSV;
 
                        while (<$file>) {
                                chomp;
-                               warn "LINE $_";
                                $csv->parse($_);
                                my @data = $csv->fields;
                                my $id = $data[$col];
-                               warn "ID $id";
                                $id =~ s/\D+//o;
                                next unless ($id);
                                push @records, $id;
@@ -88,8 +85,6 @@ sub handler {
 
        return show_template($r) unless (@records);
 
-       warn "ids: ". join(',',@records);
-
        my $type = $cgi->param('rectype') || 'biblio';
        if ($type ne 'biblio' && $type ne 'authority') {
                die "Bad record type: $type";