|
<:
my %navigation;
my @keys;
while (@navigation) {
my $key = shift @navigation;
my $val = shift @navigation;
push @keys, $key;
$navigation{$key} = $val;
}
for my $key (@keys) {
my $page = $WML_SRC_FILENAME;
$page =~ s/\.wml//;
if ($page ne $key) {
printf '%s'."\n", $key, $navigation{$key};
} else {
printf '%s'."\n", $navigation{$key};
}
}
:>
|
<:
my $page = $WML_SRC_FILENAME;
$page =~ s/\.wml//;
for my $dir (sort {$LANGUAGES{$a} cmp $LANGUAGES{$b}} @LANGUAGES) {
next if $dir eq '$(LANG)';
printf('/%s.png) ', $page, $dir, $dir, $LANGUAGES{$dir}) if (-e "$dir/$WML_SRC_FILENAME");
};
:>
|