my @list;
if (exists $params{pagenames}) {
-
foreach my $p (qw(sort pages)) {
if (exists $params{$p}) {
error sprintf(gettext("the %s and %s parameters cannot be used together"),
}
}
- @list = split ' ', $params{pagenames};
- my $_;
- @list = map { bestlink($params{page}, $_) } @list;
+ @list = map { bestlink($params{page}, $_) }
+ split ' ', $params{pagenames};
$params{pages} = join(" or ", @list);
}
}
my $template=HTML::Template->new(@params) unless $raw;
+ my $discussionlink=lc(gettext("Discussion"))
+ if $config{discussion};
+
foreach my $page (@list) {
my $file = $pagesources{$page};
my $type = pagetype($file);
my $file = $pagesources{$page};
my $type = pagetype($file);
if ($config{discussion}) {
- my $discussionlink=lc(gettext("Discussion"));
if ($page !~ /.*\/\Q$discussionlink\E$/ &&
(length $config{cgiurl} ||
exists $links{$page."/".$discussionlink})) {