Browse Source

fixed broken links

master
chris 25 years ago
parent
commit
32baf4c78b
  1. 4
      subjectsearch.pl

4
subjectsearch.pl

@ -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){

Loading…
Cancel
Save