" class="name"> <% require SE::Filer::Dateien; my $bild = getsizedImg( url => "$VERMIETER{pauschalen_bild}", size => 250 ); $bild = $VERMIETER{pauschalen_bild} && ( !$VERMIETER{tarif} || $VERMIETER{tarif} > 1 || $VERMIETER{sondertarif} || $SE{app} eq "bodenseeferien.dreamway.net") ? qq( $bilder

) : $VERMIETER{bild} && ( !$VERMIETER{tarif} || $VERMIETER{tarif} > 1 || $VERMIETER{sondertarif} || $SE{app} eq "bodenseeferien.dreamway.net") ? qq( Bild der entsprechenden Unterkunft

) : qq( ); %>

<% $VERMIETER{betriebsname} %>

<% if ($VERMIETER{kategorie_text} eq "Hotel") { if ($VERMIETER{sterne}) { return qq(

); } else { return viewSterne( sterne => $VERMIETER{sterne}, sterne => $VERMIETER{sterne_allezimmer}, dehoga => 1); } } else { return viewSterne( sterne => $VERMIETER{sterne}, sterne => $VERMIETER{sterne_allezimmer}, dehoga => 1); } %>

<% return $VERMIETER{kategorie_text}; %>

<% $VERMIETER{strasse} || $VERMIETER{hausnummer} ? qq($VERMIETER{strasse} $VERMIETER{hausnummer}
) : "" %> <% my $a = $VERMIETER{land} =~ "^A" ? "A-" : ""; my $ort = $VERMIETER{plz} || $VERMIETER{ort} ? qq($a$VERMIETER{plz} $VERMIETER{ort}) : ""; if ($SE{app} =~ /^urlaub-bauernhof\.de$/) { # Ortsteil per Bindestrich getrennt $ort .= " - $VERMIETER{ortsteil}" if $VERMIETER{ortsteil}; return qq($ort); } else { # Ortsteil darunter my $ortsteil = $VERMIETER{ortsteil} ? qq($VERMIETER{ortsteil}) : qq(); return qq( $ort
$ortsteil ); } %>

<% my $out; $out .= $VERMIETER{telefon} && $VERMIETER{mobil} ? qq(

$LANG{Telefon} $VERMIETER{telefonvorwahl}/$VERMIETER{telefon}
Mobil $VERMIETER{mobilvorwahl}/$VERMIETER{mobil}

) : $VERMIETER{telefon} ? qq(

$LANG{Telefon} $VERMIETER{telefonvorwahl}/$VERMIETER{telefon}

) : qq(

...

); $out .= $VERMIETER{www} ? qq(

$$LANG{homepage_vorhanden}$

) : qq(); $out .= $VERMIETER{fax} ? qq(

$LANG{Telefax} $VERMIETER{faxvorwahl}/$VERMIETER{fax}

) : qq(); $out .= ($VERMIETER{www} && $in{gid}) ? qq(

Homepage

) : qq(); $out .= ($VERMIETER{email} && $in{gid}) ? qq(

E-Mail

) : qq(); $out .= $VERMIETER{email} ? qq(

$$LANG{email_vorhanden}$

) : qq(); return $out; %>

" class="name"><% $VERMIETER{pauschalen_name} %>

<% my $pers = getLANG("fuer_x_Personen", [$VERMIETER{pauschalen_personen}]) if $VERMIETER{pauschalen_personen}; if ( $VERMIETER{pauschalen_sonderangebot_von_epoche} <= time && $VERMIETER{pauschalen_sonderangebot_von_epoche} > 0 && $VERMIETER{pauschalen_sonderangebot} > 0 && $VERMIETER{pauschalen_sonderangebot} < $VERMIETER{pauschalen_preisab} && $VERMIETER{pauschalen_personen} > 0 ) { my $pr_old = getLANG("ab_x_euro", [$VERMIETER{pauschalen_preisab}]); my $pr_new = getLANG("ab_x_euro", [$VERMIETER{pauschalen_sonderangebot}]); return qq( $VERMIETER{pauschalen_uebernachtungen} $LANG{Uebernachtungen} $pr_old/$LANG{Person} $pr_new $pers ); } else { my $pr = getLANG("ab_x_euro", [$VERMIETER{pauschalen_preisab}]); return qq( $VERMIETER{pauschalen_uebernachtungen} $LANG{Uebernachtungen}
$pr $pers ); } %> <% "$LANG{Gueltig}: $VERMIETER{pauschalen_von} - $VERMIETER{pauschalen_bis}" %>

">Pauschalen-Info