<%
require "mod_travel_route.pl";
my $out;
my @r = ExportView($VERMIETER{gid});
if (@r == 0) {
$out = "Für diesen Vermieter wurde kein Anfahrtsplan erstellt.";
} else {
my $list_html;
my @list = @{$r[4]};
foreach my $list (@list) {
my @sublist = @{$list};
$list_html .= qq( |
);
foreach my $sublist (@sublist) {
my @subsublist = @{$sublist};
$list_html .= qq(| $subsublist[0] | $subsublist[1]);
if ($subsublist[2] ne "0") { $list_html .= qq( \($subsublist[2]m\)) }
$list_html .= qq( | \n);
}
$list_html .= qq(
|
);
}
if ($ENV{QUERY_STRING} =~ /_printversion/) {
$out .= qq(