my ($inner,$nodeloc,$title,$htmltitle)=@_;
return "[$inner]" unless $nodeloc;
my $N;
my ($node,$view,$type)=split /;/,$nodeloc;
{
if ($type and my $T=getType($type)) {
last if $N=getNode($node,$T);
}
if ($node=~/^\d+$/) {
$N=getNodeById($node);
} else {
($N)=getNodeWhere({title=>$node});
}
}
return "[$inner]" unless $N;
return linkNode($N,$title||$N->{title},
{
class=> 'node_link',
$view ? (displaytype => $view) : ()
}
);