[Koha-cvs] koha/C4 Search.pm [rel_3_0]

[Bruno Toumi]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Bruno Toumi <btoumi>    06/12/21 15:35:18

Modified files:
        C4             : Search.pm 

Log message:
        fix for bug regular expression when ? use in search request

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.120.2.37&r2=1.120.2.38

Patches:
Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/C4/Search.pm,v
retrieving revision 1.120.2.37
retrieving revision 1.120.2.38
diff -u -b -r1.120.2.37 -r1.120.2.38
--- Search.pm   18 Dec 2006 17:44:06 -0000      1.120.2.37
+++ Search.pm   21 Dec 2006 15:35:17 -0000      1.120.2.38
@@ -25,7 +25,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.120.2.37 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.120.2.38 $' =~ /\d+/g;
     shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
 };
 
@@ -310,7 +310,7 @@
             }
         };
         if ($@) {
-            warn "prob with query $query_to_use " . $@;
+            warn "prob with query  toto $query_to_use " . $@;
         }
 
         # concatenate the sort_by limits and pass them to the results object
@@ -882,7 +882,7 @@
             #warn "term: $term";
             my $old_term = $term;
             if ( length($term) > 3 ) {
-                $term =~ s/(.*=|\)|\(|\+|\.)//g;
+                $term =~ s/(.*=|\)|\(|\+|\.|\?)//g;
 
                 #FIXME: is there a better way to do this?
                 $oldbiblio->{'title'} =~ s/$term/<span 
class=term>$&<\/span>/gi;