<: my $dir = ""; my $current = ''; $dir =~ s,.*/src/?,,; $link = ""; $current = 'id=current' if ($dir eq $link || $dir =~ m,^$link/,); $link .= '/' if (length($link)); $link = $root_prefix . $link; :> # "" # >

href="<:=$link:>">