<% $TEMP{betrieb} = getBetriebe( id => $in{gid} ); ""; %> <% my @mandanten_betrieb = split(/,/, $TEMP{betrieb}->{mandant}); require SE::Travel::Pauschalen; my @pauschalen = getPauschalen( betrieb => $in{gid} ); require SE::Travel::PauschalenThemen; my @themen = getPauschalenThemen(); push @pauschalen, {}; my ($out, $c, $gruppe,$i); foreach my $pauschale ( @pauschalen ) { $TEMP{pauschale} = $pauschale; $i++; my ($gruppen, $c, $gruppe, ); foreach my $gruppe ( @themen ) { my @mandanten_gruppe = split(/,/, $gruppe->{mandant}); my $fnd = 0; foreach my $bm (@mandanten_betrieb) { foreach my $gm (@mandanten_gruppe) { if ($bm eq $gm) { $fnd = 1; last; } } } next unless $fnd; my $chk = $TEMP{pauschale}->{gruppen} =~ /\b$gruppe->{gid}\b/ ? qq() : qq(); $c++; $gruppen .= qq($chk $gruppe->{name}); if ($c == 3) { $gruppen .= qq(); $c = 0;} } my $col = 1; my $leistungen; foreach my $leistung (split(/\|/, $TEMP{pauschale}->{leistungen})) { next unless $leistung; $leistungen .= qq() if ($col == 1); $leistungen .= qq($leistung); $leistungen .= qq() if ($col == 2); $col = $col == 1 ? 2 : 1; } my %verpflegung = ( "ov" => "ohne Verpflegung", "uf" => "inkl. Übernachtung mit Frühstück", "hp" => "inkl. Übernachtung mit Halbpension", "vp" => "inkl. Übernachtung mit Vollpension" ); $out .= qq(

Dieses Formular gilt für die Anlage einer Pauschale. Für die Anlage einer weiteren Pauschale kopieren Sie bitte dieses Formular!

$TEMP{betrieb}->{betriebsname} [Seite 6/7]

PAUSCHALEN

Name der Pauschale	$TEMP{pauschale}->{name}
Gültig von	$TEMP{pauschale}->{von}	Anzahl Übernachtungen	$TEMP{pauschale}->{uebernachtungen} Nächte
Gültig bis	$TEMP{pauschale}->{bis}	Gesamtpreis/Person ab	$TEMP{pauschale}->{preisab} € für $TEMP{pauschale}->{personen} Personen $verpflegung{$TEMP{pauschale}->{verpflegung}}

ALS SONDERANGEBOT EINSTELLEN
Sonderangebot ab Datum	$TEMP{pauschale}->{sonderangebot_von}	Sonderpreis	$TEMP{pauschale}->{sonderangebot} €
LEISTUNGEN DER PAUSCHALE
Diese Pauschale beinhaltet folgende Leistungen	$leistungen
BESCHREIBUNG
Zusätzliche Beschreibung (z.B. besondere Preise, Kinder etc.)	$TEMP{pauschale}->{text}
THEMA DER PAUSCHALEN (max. 2 ankreuzen)
$gruppen
Alle aufgeführten Leistungen sind in der Pauschale inklusive. Die oben genannten Angaben sind verbindlich ab Einstellung in das Zimmervermittlungsystem Ort, Datum   Unterschrift

); if($i < @pauschalen ) { $out .= qq(

 

) } } $out; %>