[Koha-cvs] CVS: koha subjectsearch.pl,1.1.1.1,1.1.1.1.2.1

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
        subjectsearch.pl 
Log Message:
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.


Index: subjectsearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/subjectsearch.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.1.2.1
diff -C2 -r1.1.1.1 -r1.1.1.1.2.1
*** subjectsearch.pl    19 Dec 2000 23:45:53 -0000      1.1.1.1
--- subjectsearch.pl    9 Jul 2002 03:06:42 -0000       1.1.1.1.2.1
***************
*** 46,51 ****
    
$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/;
    
$results[1]=mklink("/cgi-bin/koha/search.pl?author=$word&type=$type",$results[1]);
    my ($count,$lcount,$nacount,$fcount,$scount)=itemcount($env,$results[2]);   
                                                                  
--- 46,51 ----
    
$results[0]=mklink("/cgi-bin/koha/detail.pl?bib=$results[2]&type=$type",$results[0]);
    my $word=$results[1];
!   $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]);