From 77e0a9ef76632b1ebe001f697e5ad62eb091487b Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Tue, 6 Mar 2001 21:16:10 +0000
Subject: [PATCH] Fixing " glitch in titles

---
 search.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/search.pl b/search.pl
index 302bd4c1ef..f62100b2b6 100755
--- a/search.pl
+++ b/search.pl
@@ -2,8 +2,9 @@
 #script to provide intranet (librarian) advanced search facility
 #modified 9/11/1999 by chris@katipo.co.nz
 #adding an extra comment to play with CVS (Si, 19/11/99)
-#modified 29/12/99 by chris@katipo.co.nz to be usavle by opac as well
+#modified 29/12/99 by chris@katipo.co.nz to be usable by opac as well
 #modified by chris 10/11/00 to fix dewey search
+#modified by chris@katipo.co.nz 3/2/01 to fix glitch with " in titles
 
 use strict;
 use C4::Search;
@@ -136,6 +137,7 @@ while ($i < $count2){
     $stuff[1]=~ s/\`/\\\'/g;
     my $title2=$stuff[1];
     $title2=~ s/ /%20/g;
+    $title2=~ s/\W//g;
     if ($subject eq ''){
 #      print $stuff[0];
       $stuff[1]=mklink("/cgi-bin/koha/detail.pl?type=$type&bib=$stuff[2]&title=$title2",$stuff[1]);
-- 
2.39.2