}
my $links = "";
- my $pre =
- urlencode join_paths $SCRIPTURL, $dir;
+ my $pre = urlencode join_paths $SCRIPTURL, $dir;
for my $rel (qw{up first prev next last}) {
- exists $link{$rel} and
- $links .= sprintf " <link rel=%s href=\"%s\">\n",
- $rel, urlencode "$pre/$link{$rel}";
+ $links .= sprintf " <link rel=%s href=\"%s\">\n", $rel,
+ urlencode "$pre/$link{$rel}"
+ if exists $link{$rel};
}
</%perl>
%