debugging

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7861 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 76ea0b5..6b39708 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -71,6 +71,7 @@ sub handler {
                                my $id = $data[$col];
                                $id =~ s/\D+//o;
                                next unless ($id);
+                               warn "ID $id";
                                push @records, $id;
                        }
                }