From 9c77c0028b0eb2fa8fb4ef2fbb4dd48c4baed6de Mon Sep 17 00:00:00 2001 From: miker Date: Sun, 25 Jan 2009 16:54:02 +0000 Subject: [PATCH] remove debug warnings git-svn-id: svn://svn.open-ils.org/ILS/trunk@11950 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/extras/fast-extract | 4 ---- 1 file changed, 4 deletions(-) diff --git a/Open-ILS/src/extras/fast-extract b/Open-ILS/src/extras/fast-extract index 56c53ba6c6..8ad32a5ed2 100755 --- 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"; -- 2.11.0