<%
my $out;
sub CreateTab {
my $lnk = $_[2] ? $_[2] : "$ENV{DOCUMENT_NAME}?$PAGE{id}&gid=$in{gid}&do=$_[0]";
$out .= (($in{do} eq $_[0]) && ($in{do} ne ""))
? qq($_[1])
: qq($_[1]);
}
#################### ausnahme fuer allgaeu.info #############################
$out .= qq(
$LANG{Vermieter_merken}
) if $SE{app} eq "allgaeu.info" || $SE{app} eq "hoernerdoerfer.de" || $SE{app} eq "pfronten.de" || $SE{app} eq "hindelang.net";
############################################################################
&CreateTab("", "« $LANG{Zurueck_zur_Suche}", "$ENV{DOCUMENT_NAME}?$PAGE{id}");
return $out ? qq(
) : "";
%>