<% $TEMP{betrieb} = getBetriebe( id => $in{gid} ); $TEMP{betrieb_user} = getBetriebe( id => $in{gid} ); ""; %>
%%% $TEMP{betrieb}->{betriebsname} %%% [Seite 1/7] STAMMDATEN
Betriebsnummer %%% $TEMP{betrieb}->{lid} %%%  
Betrieb %%% $TEMP{betrieb}->{betriebsname} %%%  
Ansprechpartner %%% $TEMP{betrieb}->{vorname} %%% %%% $TEMP{betrieb}->{nachname} %%%  
Beschreibung des Hauses <% $TEMP{betrieb_user}->{text} =~ s/\n/
/g; $TEMP{betrieb_user}->{text} ? $TEMP{betrieb_user}->{text} : qq(
); %>
KLASSIFIZIERUNG
<% my @sterne = qw(155 150 51 50 145 140 41 40 135 130 31 30 125 120 21 20 115 110 11 10); my @sterne2 = qw(*****S ***** F***** P***** ****S **** F**** P**** ***S *** F*** P*** **S ** F** P** *S * F* P* ); my ($out, $c, $n); foreach my $kat (@sterne ) { my $nr = $TEMP{betrieb}->{sterne} eq $kat ? 1 : $TEMP{betrieb}->{sterne2} eq $kat ? 2 : ""; my $chk = $nr ? qq() : qq(); $chk = qq(
$nr
$chk
) if $TEMP{betrieb}->{sterne2}; $c++; $out .= qq(); if ($c == 4) { $out .= qq(); $c = 0;} $n++; } $out; %>
$chk $sterne2[$n]
Bitte fügen Sie das entsprechende Zertifikat als Kopie bei. Ohne einen Nachweis kann
die oben angekreuzte Klassifizierung nicht anerkannt werden.
ANSCHRIFT BETRIEB
Strasse %%% $TEMP{betrieb}->{strasse} %%% %%% $TEMP{betrieb}->{hausnummer} %%%  
PLZ, Ort %%% $TEMP{betrieb}->{plz} %%% %%% $TEMP{betrieb}->{ort} %%%   Ortsteil %%% $TEMP{betrieb}->{ortsteil} %%%  
Telefon %%% $TEMP{betrieb}->{telefonvorwahl} %%% %%% $TEMP{betrieb}->{telefon} %%%   Telefax %%% $TEMP{betrieb}->{faxvorwahl} %%% %%% $TEMP{betrieb}->{fax} %%%  
Mobiltelefon %%% $TEMP{betrieb}->{mobilvorwahl} %%% %%% $TEMP{betrieb}->{mobil} %%%  
Email %%% $TEMP{betrieb}->{email} %%%  
Homepage %%% $TEMP{betrieb}->{www} %%%  
FALLS ABWEICHEND: ANSCHRIFT GASTGEBER ODER VERWALTER/HAUSMEISTER
Strasse %%% $TEMP{betrieb}->{strasse2} %%% %%% $TEMP{betrieb}->{hausnummer2} %%%  
PLZ, Ort %%% $TEMP{betrieb}->{plz2} %%% %%% $TEMP{betrieb}->{ort2} %%%   Ortsteil %%% $TEMP{betrieb}->{ortsteil2} %%%  
Telefon %%% $TEMP{betrieb}->{telefonvorwahl2} %%% %%% $TEMP{betrieb}->{telefon2} %%%   Telefax %%% $TEMP{betrieb}->{faxvorwahl2} %%% %%% $TEMP{betrieb}->{fax2} %%%  
Mobiltelefon %%% $TEMP{betrieb}->{mobilvorwahl} %%% %%% $TEMP{betrieb}->{mobil} %%%  
BETRIEBSART
<% my ($out, $c); foreach my $kat (sort keys %{$TRAVEL{kategorien}} ) { my $nr = $TEMP{betrieb}->{kategorie} eq $kat ? 1 : $TEMP{betrieb}->{kategorie2} eq $kat ? 2 : $TEMP{betrieb}->{kategorie3} eq $kat ? 3 : ""; my $chk = $nr ? qq() : qq(); $chk = qq(
$nr
$chk
) if $TEMP{betrieb}->{kategorie2} || $TEMP{betrieb}->{kategorie3}; $c++; $out .= qq(); if ($c == 4) { $out .= qq(); $c = 0;} } $out; %>
$chk $TRAVEL{kategorien}->{$kat}

 

%%% $TEMP{betrieb}->{betriebsname} %%% [Seite 2/7] BETRIEBSMERKMALE IM HAUS
<% #my $sql_filter_mandanten = SE::sql_MandantenFilter( 'travel_merkmale',0,undef,$TEMP{betrieb}->{mandant} ); my ($out, $c, $gruppe); require SE::Travel::Merkmale; my $mandanten = $TEMP{betrieb}->{mandant}; $madanten .= ",$TEMP{betrieb}->{mandanten}" if $TEMP{betrieb}->{mandanten}; foreach my $merkmal ( getMerkmale( verwendung => "betrieb", stammdaten => 1, mandanten => $mandanten ) ) { if ($merkmal->{gruppe} ne $gruppe) { $out .= qq() if $gruppe eq "Hotelkette"; $out .= qq(); $c=0; } my $chk = getMerkmale( betrieb => $TEMP{betrieb}->{gid}, id => $merkmal->{id}) && $TEMP{betrieb}->{gid} ? qq() : qq(); $c++; my $max = 40; if ( length($merkmal->{name}) > $max ) { my $span = int(length($merkmal->{name})/$max); $c += $span; if ($c > 4) { $out .= qq(); $c = $span+1; } $span = $span * 2 + 1; $out .= qq(); if ($c >= 4) { $out .= qq(); $c = 0; } } else { $merkmal->{name} =~ s/([^\-]{9,})-/$1-
/g; $out .= qq(); if ($c >= 4) { $out .= qq(); $c = 0;} } $gruppe = $merkmal->{gruppe}; } $out; %>
Bitte fügen Sie das entsprechende Zertifikat als Kopie bei.
Ohne einen Nachweis kann die angekreuzte Hotelkette/Kooperation nicht anerkannt werden.
) . $merkmal->{gruppe} . qq(
$chk $merkmal->{name}
$chk $merkmal->{name}
 
Die oben genannten Angaben sind verbindlich ab Einstellung in das Zimmervermittlungsystem
Ort, Datum   Unterschrift