From efe0c0dde298435f1b33b2ef98ac8d41d976c41a Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 3 Oct 2007 18:38:26 +0000
Subject: [PATCH] debugging

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7862 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
index 6b39708d57..fca47b10da 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -66,12 +66,13 @@ sub handler {
 
 			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);
-				warn "ID $id";
 				push @records, $id;
 			}
 		}
-- 
2.11.0