<%
# v v v v v v v v v v v v v v v v v v v v v v v v v v v v v v v #
# AUSNAHMEN - Tabs von der Ausgabe ausschliessen #
my %ausnahmen = (
"mein-schwarzwald.de" => ["belegung", "zimmer"],
);
# ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ #
my $out;
&CreateTab("info", "$LANG{'Information'}");
&CreateTab("zimmer", "$LANG{'Verfuegbarkeit'}");
&CreateTab("zimmerinfo", "$LANG{'Quartier'}", "#") if $in{do} eq "zimmerinfo";
&CreateTab("belegung", "$LANG{'Belegung'}") if $SE{app} ne "badherrenalb.de" ;
&CreateTab("pauschalen", "$LANG{'Pauschalen'}") if $VERMIETER{pauschalen} > 0;
&CreateTab("buchung2", "$LANG{'Buchung'}") if $VERMIETER{buchung};
&CreateTab("lage", "$LANG{'Lage'}") if ($SE{app} eq "pfronten.de" || $SE{app} eq "bad-woerishofen.de" || $SE{app} eq "bodenseeferien.dreamway.net" || $VERMIETER{tarif} > 1 || $VERMIETER{sondertarif});
&CreateTab("map", "$LANG{'Lage'}") if ($SE{app} eq "oberstdorf.de");
&CreateTab("kontakt", "$LANG{'Anfrage'}") if ($VERMIETER{tarif} > 1 || $SE{app} eq "bodenseeferien.dreamway.net" || $VERMIETER{sondertarif}) && $VERMIETER{email};
return $out ? qq(
) : "";
sub CreateTab {
if (exists $ausnahmen{"$SE{app}"}) {
foreach (@{$ausnahmen{"$SE{app}"}}) {
return "" if $_ eq $_[0];
}
}
my $link = $_[2] ? $_[2] : qq($ENV{DOCUMENT_NAME}?$PAGE{id}&gid=$in{gid}&do=$_[0]);
$out .= (($in{do} eq $_[0]) || (($in{do} eq "") && ($_[0] eq "info")))
? qq($_[1])
: qq($_[1]);
}
%>