[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 ----