From 338270e0dee2f96224f2bbad7038bba1f4132fa3 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 20 Jan 2004 13:04:38 +0000
Subject: [PATCH] warn removing

---
 acqui.simple/addbiblio.pl | 2 --
 1 file changed, 2 deletions(-)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index 5cad7d3a93..8f8e602d87 100755
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -190,7 +190,6 @@ sub create_input () {
 sub build_tabs ($$$$) {
     my($template, $record, $dbh,$encoding) = @_;
 
-    warn "REC : ".$record->as_formatted;
     # fill arrays
     my @loop_data =();
     my $tag;
@@ -242,7 +241,6 @@ sub build_tabs ($$$$) {
 						$tag_data{indicator} = $indicator;
 						$tag_data{subfield_loop} = \@subfields_data;
 						push (@loop_data, \%tag_data);
-						warn "I is : $i";
 					}
 # If there is more than 1 field, add an empty hidden field as separator.
 					if ($#fields >=1) {
-- 
2.39.5