Bug fix from rel-1-2

This commit is contained in:
tonnesen 2002-07-09 03:07:05 +00:00
parent 3153d38adc
commit c03f94e45d

View file

@ -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;