Browse Source

fixed broken links

master
chris 21 years ago
parent
commit
32baf4c78b
1 changed files with 2 additions and 2 deletions
  1. +2
    -2
      subjectsearch.pl

+ 2
- 2
subjectsearch.pl View File

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