">
<%
my $prepath = getBilderURLBase();
require SE::Filer::Dateien;
my $bild = getsizedImg( url => "$VERMIETER{bild}", size => 200 );
return $VERMIETER{bild}
? qq(
)
: qq() ;
%>
<% $VERMIETER{strasse} || $VERMIETER{hausnummer} ? qq(
$VERMIETER{strasse} $VERMIETER{hausnummer}
) : "" %>
<% my $a = $VERMIETER{land} =~ "^A" ? "A-" : ""; $VERMIETER{plz} || $VERMIETER{ort} ? qq(
$a$VERMIETER{plz} $VERMIETER{ort}
) : "" %>
<% $VERMIETER{ortsteil} ? qq(
$VERMIETER{ortsteil}
) : "" %>
<% !$TRAVEL{open} && $VERMIETER{www} && ($VERMIETER{optional} =~ /O|H/ || $VERMIETER{optional2} =~ /O|H/) ?
qq(
)
: "";
%>
<% !$TRAVEL{open} && $VERMIETER{email} && ($VERMIETER{optional} =~ /O|E/ || $VERMIETER{optional2} =~ /O|E/ || $SE{app} eq "hindelang.net") ?
qq(
)
: "";
%>
<% $onlineBooking = $TRAVEL{open} ? qq($TRAVEL{open}&do=buchung2) : qq($ENV{DOCUMENT_NAME}?$PAGE{id}&gid=$in{gid}&do=buchung2);
($TRAVEL{open} && $VERMIETER{optional} =~ /B/ || $VERMIETER{optional2} =~ /B/) ?
qq(
$LANG{Online_Buchung_moeglich}
)
: "";
%>
<%
(my $preis = $VERMIETER{preis}) =~ s/\./\x2C/g;
$preis = qq(
$LANG{ab} $preis €
);
my $personen = $VERMIETER{fuer_personen} >= 1 ? qq(
).getLANG("fuer_x_Personen", [$VERMIETER{fuer_personen}]).qq(
) : "";
my $inkl = $VERMIETER{inklusive_verpflegung} eq "uf" ? $LANG{inkl_Fruehstueck} : $VERMIETER{inklusive_verpflegung} eq "hp" ? $LANG{inkl_Halbpension} : $VERMIETER{inklusive_verpflegung} eq "vp" ? $LANG{inkl_Vollpension} : "";
$inkl = qq(
$inkl
) if ($inkl ne "");
return $VERMIETER{preis} > 0
? qq($preis$personen$inkl)
: qq();
%>
Kurzwahl: R<% $VERMIETER{kvg} %>
) if ($VERMIETER{alh} eq "1" || $VERMIETER{merkmale} =~ /\bAllgäuLandHotels\b/);
%>
<%
return qq(
) if ($VERMIETER{ath} eq "1" || $VERMIETER{merkmale} =~ /\bAllgäuTopHotels\b/);
%>
<%
return qq(
) if ($VERMIETER{bauernhofurlaub} eq "1" || $VERMIETER{merkmale} =~ /\bUrlaub auf dem Bauernhof\b/);
%>
<%
return qq(
) if ($VERMIETER{musicalhotel} eq "1" || $VERMIETER{merkmale} =~ /\bMusical-Hotels\b/);
%>
<% ########################## Besonderheiten Oberstdorf ######################################################
return qq(
) if ($boxen{vevo} = $VERMIETER{vevo});
%>
<%
return qq(
) if ($boxen{dbs} = $VERMIETER{dbs});
%>
<% ########################## Besonderheiten Grainau ######################################################
if ($SE{app} eq "grainau.de") {
my $out;
$out .= qq(
)
if ($VERMIETER{alpinegastgeber} eq "1");
$out .= qq(
)
if ($VERMIETER{bett_bike} eq "1");
$out .= qq(
)
if ($VERMIETER{fahrradreundlich} eq "1");
$out .= qq(
)
if ($VERMIETER{kinderland} eq "1") ;
$out .= qq(
)
if ($VERMIETER{kinderland_2} eq "1") ;
$out .= qq(
)
if ($VERMIETER{wanderbaresdeutschland} eq "1");
$out .= qq(
)
if ($VERMIETER{wellvital_partner} eq "1");
$out .= qq(
)
if ($VERMIETER{wellvital} eq "1");
$out;
}
%>
<% ########################## Besonderheiten Bad Hindelang ######################################################
$VERMIETER{alwa_card} ? qq(
) : "" %>
<% my $out;
if ($VERMIETER{xpert} eq "1") {
$out .= qq(
);
}
return $out;
%>
) : ""; %>
<% my $title2 = $LANG{"stars".$VERMIETER{sterne2}};
$VERMIETER{sterne2} ? qq(