<%
my $out;
sub CreateTab {
$out .= (($in{do} eq $_[0]) || (($in{do} eq "") && ($_[0] eq "info")))
? qq($_[1])
: qq($_[1]);
}
&CreateTab("info", "$LANG{'Information'}");
&CreateTab("zimmer", "$LANG{'Verfuegbarkeit'}");
&CreateTab("zimmerinfo", "$LANG{'Quartier'}") if $in{do} eq "zimmerinfo";
&CreateTab("belegung", "$LANG{'Belegung'}") unless $VERMIETER{optional2} =~ /P/;
&CreateTab("pauschalen", "$LANG{'Pauschalen'}") if $VERMIETER{pauschalen} > 0;
&CreateTab("kontakt", "$LANG{'Anfrage'}") if $VERMIETER{optional2} =~ /K/;
return $out ? qq(
) : "";
%>