From 23d28265c4bf2268398f97540878c3c6825b0ccf Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 3 Oct 2007 19:03:02 +0000 Subject: [PATCH] removing debugging info git-svn-id: svn://svn.open-ils.org/ILS/trunk@7866 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm | 5 ----- 1 file changed, 5 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm index e99b9688b3..54f0cec420 100644 --- 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"; -- 2.11.0