[open-ils-commits] r11950 - trunk/Open-ILS/src/extras

[svn at svn.open-ils.org]

Author: miker
Date: 2009-01-25 11:54:02 -0500 (Sun, 25 Jan 2009)
New Revision: 11950

Modified:
   trunk/Open-ILS/src/extras/fast-extract
Log:
remove debug warnings

Modified: trunk/Open-ILS/src/extras/fast-extract
===================================================================
--- trunk/Open-ILS/src/extras/fast-extract	2009-01-25 16:52:26 UTC (rev 11949)
+++ trunk/Open-ILS/src/extras/fast-extract	2009-01-25 16:54:02 UTC (rev 11950)
@@ -50,8 +50,6 @@
 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 @@
   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";