<%
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/
{bild} ? 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 ($in{user} eq as);
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(
$bild
$p->{name}
$p->{von} - $p->{bis}
$preis
$verpflegung
$p->{text}
$merken
$anfragen
);
}
$out = qq($LANG{Derzeit_sind_keine_Pauschalen_eingestellt}...
) unless $out;
return $out;
%>