remove debug warnings

git-svn-id: svn://svn.open-ils.org/ILS/trunk@11950 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/extras/fast-extract b/Open-ILS/src/extras/fast-extract
index 56c53ba..8ad32a5 100755 (executable)
--- a/Open-ILS/src/extras/fast-extract
+++ b/Open-ILS/src/extras/fast-extract
@@ -50,8 +50,6 @@ my $dbh = DBI->connect($dsn,$db_user,$db_pw, {AutoCommit => 1, pg_enable_utf8 =>
 my $SQL = 'SELECT id FROM biblio.record_entry';
 $SQL .= " WHERE edit_date > '$after'" if ($after);
 
-warn "Initial selection SQL: $SQL\n";
-
 my $ids = $dbh->selectcol_arrayref($SQL);
 
 $SQL = <<'SQL';
@@ -63,8 +61,6 @@ SELECT  id,
   WHERE id = ?
 SQL
 
-warn "Record retrieval SQL: $SQL\n";
-
 for my $id ( @$ids ) {
     my $row = $dbh->selectrow_hashref( $SQL, {}, $id );
     print "$$row{id}$delim$$row{tnc_source}$delim$$row{tcn_value}$delim$$row{marc}\n";