From 1f4e2fb312a39004f5af8d7a75b185f8c2b2b422 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 14 Jan 2003 16:43:50 +0000
Subject: [PATCH] warn removing

---
 acqui.simple/addbiblio.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/acqui.simple/addbiblio.pl b/acqui.simple/addbiblio.pl
index ca013f176b..5ba93d5449 100755
--- a/acqui.simple/addbiblio.pl
+++ b/acqui.simple/addbiblio.pl
@@ -85,6 +85,7 @@ my ($template, $loggedinuser, $cookie)
 my $tagslib = &MARCgettagslib($dbh,1);
 my $record=-1;
 $record = MARCgetbiblio($dbh,$bibid) if ($bibid);
+#warn "1= ".$record->as_formatted;
 $record = MARCfindbreeding($dbh,$isbn) if ($isbn);
 my $is_a_modif=0;
 my ($oldbiblionumtagfield,$oldbiblionumtagsubfield);
@@ -98,9 +99,6 @@ if ($bibid) {
 	my $sth=$dbh->prepare("select biblioitemnumber from biblioitems where biblionumber=?");
 	$sth->execute($oldbiblionumber);
 	($oldbiblioitemnumber) = $sth->fetchrow;
-	warn "==>$oldbiblionumtagfield,$oldbiblionumtagsubfield";
-	warn "==>$oldbiblioitemnumtagfield,$oldbiblioitemnumtagsubfield => $oldbiblioitemnumber";
-
 }
 #------------------------------------------------------------------------------------------------------------------------------
 if ($op eq "addbiblio") {
-- 
2.39.5