<%
$TEMP{betrieb} = getBetriebe( id => $in{gid} );
"";
%>
<%
my $sth2 = $SE{mysql_handle}->prepare("SELECT * FROM travel_zimmer WHERE gid='$in{gid}'"); $sth2->execute();
my ($out, $c, $gruppe,$i);
while ( $TEMP{zimmer} = $sth2->fetchrow_hashref || $i <= $sth2->rows || $i == 0) {
$i++;
my ($zimmerart, $c);
foreach my $kat (sort keys %{$TRAVEL{zimmertypen}} ) {
if ($kat !~ /ze|wm|ph|ju/) {
my $chk = $TEMP{zimmer}->{typ} eq $kat ? qq(
)
: qq(
);
$c++;
$zimmerart .= qq($chk |
$TRAVEL{zimmertypen}->{$kat} | );
if ($c == 4) { $zimmerart .= qq(); $c = 0;}
}
}
# my $sql_filter_mandanten = SE::sql_MandantenFilter( 'travel_merkmale',0,undef,$TEMP{betrieb}->{mandant} );
my ($zimmermerkmale, $c, $gruppe, );
require SE::Travel::Merkmale;
my $mandanten = $TEMP{betrieb}->{mandant};
$madanten .= ",$TEMP{betrieb}->{mandanten}" if $TEMP{betrieb}->{mandanten};
foreach my $merkmal ( getMerkmale( verwendung => "zimmer", stammdaten => 1, mandanten => $mandanten ) ) {
if ($merkmal->{gruppe} ne $gruppe) {
$zimmermerkmale .= qq(
AUSSTATTUNG: ) . $merkmal->{gruppe} . qq( | );
$c=0;
}
#my $chk = substr($TEMP{zimmer}->{merkmale}, ($merkmal->{id} - 1),1) eq "1" ?
# qq()
# : qq();
my $chk = getMerkmale( zimmer => $TEMP{zimmer}->{zid}, id => $merkmal->{id}) ?
qq()
: qq();
$c++;
$zimmermerkmale .= qq(| $chk |
$merkmal->{name} | );
if ($c == 4) { $zimmermerkmale .= qq(
); $c = 0;}
$gruppe = $merkmal->{gruppe};
}
$out .= qq(
 |
Dieses Formular gilt für die Anlage einer oder mehrerer gleich ausgestatteten Zimmer/Ferienwohnungen.
Für die Anlage/Meldung Ihrer weiteren Zimmer/Ferienwohnungen kopieren Sie bitte dieses Formular! |
| $TEMP{betrieb}->{betriebsname} [Seite 3/7] |
ZIMMER / FEWO |
| ART DER WOHNEINHEIT |
|
|
| Anzahl im Haus |
$TEMP{zimmer}->{name} |
Anzahl Räume |
|
Name bzw. Nummer
Zimmer/Fewo |
|
| min. Personen |
$TEMP{zimmer}->{minpers} |
Fläche |
$TEMP{zimmer}->{flaeche} m² |
Endreinigung |
$TEMP{zimmer}->{endreinigung} € |
| max. Personen |
$TEMP{zimmer}->{maxpers} |
Stockwerk |
$TEMP{zimmer}->{etage} |
$zimmermerkmale
|
|
|
Die oben genannten Angaben sind verbindlich ab Einstellung in das Zimmervermittlungsystem
|
|
Ort, Datum
|
|
Unterschrift
|
|
);
if($i < $sth2->rows) {
$out .= qq(
)
}
}
$out;
%>