From 8ccb3359d5af5ea5f9e28e864c629c930f23097d Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Tue, 9 Jul 2002 03:06:42 +0000
Subject: [PATCH] Original logic removed all spaces, then replaced every
 occurence of a comma with a comma and space.  I'm not sure what the reasoning
 behind this was, but it breaks authors names with spaces in them for
 searching.  I changed it to just replace every space with a %20.

---
 subjectsearch.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/subjectsearch.pl b/subjectsearch.pl
index 6c8ca78fad..d26be680f3 100755
--- a/subjectsearch.pl
+++ b/subjectsearch.pl
@@ -45,8 +45,8 @@ while ($i < $count){
   my @results=split('\t',$items[$i]);
   $results[0]=mklink("/cgi-bin/koha/detail.pl?bib=$results[2]&type=$type",$results[0]);
   my $word=$results[1];
-  $word=~ s/ //g;
-  $word=~ s/\,/\,%20/;
+  $word=~ s/ /%20/g;
+  #$word=~ s/\,/\,%20/;
   $results[1]=mklink("/cgi-bin/koha/search.pl?author=$word&type=$type",$results[1]);
   my ($count,$lcount,$nacount,$fcount,$scount)=itemcount($env,$results[2]);                                                                     
   $results[3]=$count;                                                                                                                           
-- 
2.39.5