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

[svn at svn.open-ils.org]

Author: miker
Date: 2007-10-03 15:03:02 -0400 (Wed, 03 Oct 2007)
New Revision: 7866

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
Log:
removing debugging info

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-10-03 19:00:01 UTC (rev 7865)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-10-03 19:03:02 UTC (rev 7866)
@@ -61,17 +61,14 @@
 	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 @@
 
 	return show_template($r) unless (@records);
 
-	warn "ids: ". join(',', at records);
-
 	my $type = $cgi->param('rectype') || 'biblio';
 	if ($type ne 'biblio' && $type ne 'authority') {
 		die "Bad record type: $type";