From 0bc84fdcdee47d8d5dd0c56acab54cc02c2db062 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 10 Feb 2004 13:21:14 +0000
Subject: [PATCH] removing warnings

---
 z3950/search.pl | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/z3950/search.pl b/z3950/search.pl
index 274bea4436..61ff891e6a 100755
--- a/z3950/search.pl
+++ b/z3950/search.pl
@@ -49,24 +49,19 @@ my $toggle;
 
 my $record;
 my $oldbiblio;
-warn "search.pl : $bibid / $title / $author / $isbn";
 if ($bibid > 0) {
 	$record = MARCgetbiblio($dbh,$bibid);
 	$oldbiblio = MARCmarc2koha($dbh,$record);
 }
 my $errmsg;
 unless ($random) { # if random is a parameter => we're just waiting for the search to end, it's a refresh.
-warn "NO RANDOM";
 	if ($isbn) {
-	warn "ADD ISBN $isbn";
 		$random =rand(1000000000);
 		$errmsg = addz3950queue($isbn, "isbn", $random, 'CHECKED');
 	} elsif ($author) {
-	warn "ADD AUTHOR $author";
 		$random =rand(1000000000);
 		$errmsg = addz3950queue($author, "author", $random, 'CHECKED');
 	} elsif ($title) {
-	warn "ADD TITLE : $title";
 		$random =rand(1000000000);
 		$errmsg = addz3950queue($title, "title", $random, 'CHECKED');
 	}
-- 
2.39.5