<%
require SE::Travel::Pauschalen;
my @pauschalen = getPauschalen(
server => $value[43],
betrieb => $in{gid},
thema => $in{do} eq "pauschalen" && $value[34] ne "pauschalen" ? undef : $value[19],
pauschale => $in{pauschale_id},
aktuell => 1
);
foreach my $p (@pauschalen) {
$c++;
my $leistungen;
foreach my $leistung (split(/\|/, $p->{leistungen})) {
$leistungen .= qq($leistung) if $leistung;
}
$p->{text} =~ s/\r/
"$p->{bild}", size => 200 );
$bildspalte = $p->{bild} && ( !$VERMIETER{tarif} || $VERMIETER{tarif} > 1 || $VERMIETER{sondertarif} || $SE{app} eq "bodenseeferien.dreamway.net" || $SE{app} eq "allgaeu-gastgebermitherz.de") ? qq(
) : qq();
################# Ende ausnahme ########################################################################
my $pers = getLANG("fuer_x_Personen", [$p->{personen}]) if $p->{personen};
my $merken;
######################################################################################################
############# Ausnahme fuer Seiten mit Merkzettel #################################################
$merken = qq(
$LANG{Pauschale_merken}
) if ($SE{app} eq "allgaeu.info") || $SE{app} eq "pfronten.de" || $SE{app} eq "hindelang.net" || $PAGE{thema_id} eq "bsd_extern" ;
############ Ende ausnahme #########################################################################
my $anfragen = qq(
» Pauschale anfragen) if $VERMIETER{email} =~ /@/;
my $sonderangebot;
my $preis;
if ( $p->{sonderangebot_von_epoche} <= time && $p->{sonderangebot_von_epoche} > 0
&& $p->{sonderangebot} > 0 && $p->{sonderangebot} < $p->{preisab}
&& $p->{personen} > 0 ) {
my $pr_old = getLANG("ab_x_euro", [$p->{preisab}]);
my $pr_new = getLANG("ab_x_euro", [$p->{sonderangebot}]);
$preis = qq(
$p->{uebernachtungen} $LANG{Uebernachtungen}
$pr_old $pers
$pr_new $pers
);
} else {
my $pr = getLANG("ab_x_euro", [$p->{preisab}]);
$preis = qq(
$p->{uebernachtungen} $LANG{Uebernachtungen}
$pr $pers
);
}
my %verpflegung = ("ov" => "$LANG{Uebernachtung_ohne_Verpflegung}", "uf" => "$LANG{Uebernachtung_mit_Fruehstueck}", "hp" => "$LANG{Uebernachtung_mit_Halbpension}", "vp" => "$LANG{Uebernachtung_mit_Vollpension}");
my $verpflegung;
foreach (keys %verpflegung) {
$verpflegung .= "$verpflegung{$_}
" if $p->{verpflegung} =~ /$_/;
}
my $first = $c == 1 ? " first" : "";
$out .= qq(
$bildspalte
$p->{name}
$p->{von} - $p->{bis}
$preis
$verpflegung
$p->{text}
$merken
$anfragen
);
}
$out = qq($LANG{Derzeit_sind_keine_Pauschalen_eingestellt}...
) unless $out;
return $out;
%>