[Koha-devel] CVS: koha search.pl,1.2,1.3

[Chris Cornack]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv5194

Modified Files:
	search.pl 
Log Message:
Fixing " glitch in titles


Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** search.pl	2001/02/11 22:38:17	1.2
--- search.pl	2001/03/06 21:16:10	1.3
***************
*** 3,8 ****
  #modified 9/11/1999 by chris at katipo.co.nz
  #adding an extra comment to play with CVS (Si, 19/11/99)
! #modified 29/12/99 by chris at katipo.co.nz to be usavle by opac as well
  #modified by chris 10/11/00 to fix dewey search
  
  use strict;
--- 3,9 ----
  #modified 9/11/1999 by chris at katipo.co.nz
  #adding an extra comment to play with CVS (Si, 19/11/99)
! #modified 29/12/99 by chris at katipo.co.nz to be usable by opac as well
  #modified by chris 10/11/00 to fix dewey search
+ #modified by chris at katipo.co.nz 3/2/01 to fix glitch with " in titles
  
  use strict;
***************
*** 137,140 ****
--- 138,142 ----
      my $title2=$stuff[1];
      $title2=~ s/ /%20/g;
+     $title2=~ s/\W//g;
      if ($subject eq ''){
  #      print $stuff[0];