[Koha-cvs] CVS: koha/z3950 search.pl,1.2,1.2.2.1

[Paul POULAIN]

Update of /cvsroot/koha/koha/z3950
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11415/z3950

Modified Files:
      Tag: rel_2_0
	search.pl 
Log Message:
removing warnings

Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/z3950/search.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** search.pl	23 Jun 2003 11:28:53 -0000	1.2
--- search.pl	10 Feb 2004 13:21:14 -0000	1.2.2.1
***************
*** 50,54 ****
  my $record;
  my $oldbiblio;
- warn "search.pl : $bibid / $title / $author / $isbn";
  if ($bibid > 0) {
  	$record = MARCgetbiblio($dbh,$bibid);
--- 50,53 ----
***************
*** 57,71 ****
  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');
--- 56,66 ----