|
|
@ -43,11 +43,11 @@ if ($type ne 'opac'){ |
|
|
|
my $colour=1; |
|
|
|
while ($i < $count){ |
|
|
|
my @results=split('\t',$items[$i]); |
|
|
|
$results[0]=mklink("/cgi-bin/kumara/detail.pl?bib=$results[2]&type=$type",$results[0]); |
|
|
|
$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/kumara/search.pl?author=$word&type=$type",$results[1]); |
|
|
|
$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; |
|
|
|
if ($nacount > 0){ |
|
|
|