[Koha-cvs] koha/catalogue search.pl [rel_3_0]

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Antoine Farnault <toins>	06/12/19 10:53:22

Modified files:
	catalogue      : search.pl 

Log message:
	removing warn.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/catalogue/search.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.12&r2=1.1.2.13

Patches:
Index: search.pl
===================================================================
RCS file: /sources/koha/koha/catalogue/Attic/search.pl,v
retrieving revision 1.1.2.12
retrieving revision 1.1.2.13
diff -u -b -r1.1.2.12 -r1.1.2.13
--- search.pl	19 Dec 2006 10:49:21 -0000	1.1.2.12
+++ search.pl	19 Dec 2006 10:53:22 -0000	1.1.2.13
@@ -2,7 +2,7 @@
 # Script to perform searching
 # For documentation try 'perldoc /path/to/search'
 #
-# $Header: /sources/koha/koha/catalogue/Attic/search.pl,v 1.1.2.12 2006/12/19 10:49:21 toins Exp $
+# $Header: /sources/koha/koha/catalogue/Attic/search.pl,v 1.1.2.13 2006/12/19 10:53:22 toins Exp $
 #
 # Copyright 2006 LibLime
 #
@@ -139,7 +139,6 @@
 =cut
 
 use strict;            # always use
-#use warnings;        # use only for development
 
 ## STEP 1. Load things that are used in both search page and
 # results page and decide which template to load, operations 
@@ -314,7 +313,6 @@
     else {
         $expanded_options = $cgi->param('expanded_options');
     }
-    warn "expanded option = " . $expanded_options;
     $template->param(expanded_options => $expanded_options);
 
     # load the sort_by options for the template
@@ -396,7 +394,7 @@
 my @results;
 ## I. BUILD THE QUERY
 ($error,$search_desc,$koha_query,$federated_query,$query_type) = buildQuery($query,\@operators,\@operands,\@indexes,\@limits);
-# warn "query : $koha_query";
+
 ## II. DO THE SEARCH AND GET THE RESULTS
 my $total; # the total results for the whole set
 my $facets; # this object stores the faceted results that display on the left-hand of the results page
@@ -410,7 +408,7 @@
 };
 if ($@ || $error) {
     $template->param(query_error => $error.$@);
-#     warn "error: ".$error.$@;
+
     output_html_with_http_headers $cgi, $cookie, $template->output;
     exit;
 }
@@ -506,7 +504,8 @@
             eval {
                 $koha_spsuggest_dbh=DBI->connect("DBI:mysql:suggest:66.213.78.76","auth","Free2cirC");
             };
-            if ($@) { warn "can't connect to spsuggest db";
+            if ($@) { 
+                warn "can't connect to spsuggest db";
             }
             else {
                 my $koha_spsuggest_insert = "INSERT INTO phrase_log(phr_phrase,phr_resultcount,phr_ip) VALUES(?,?,?)";