sub NavB {
my %Links = %{+shift};
my @LinkOrder = @{+shift};
my ($Trn, $TL);
if (@LinkOrder) {
for ( $TL=0; $TL <= $#LinkOrder; $TL++ ) {
if ($Trn) { $Trn .= " -> "; }
if ($Links{$LinkOrder[$TL]}) {
$Trn .= "
$LinkOrder[$TL]<\/a>";
} else {
$Trn .= "$LinkOrder[$TL]";
}
}
} else {
foreach $TL (sort(keys(%Links))) {
if ($Trn) { $Trn .= " -> "; }
if ($Links{$TL}) {
$Trn .= "
$TL<\/a>";
} else {
$Trn .= $TL;
}
}
}
return "\n$Trn\n";
}