%%% Bereich( $TRAVEL{matches}, $TRAVEL{matches}, "Betrieb entspricht","Betriebe entsprechen") %%% Ihren Anforderungen.

<% qq(

Es wurden keine Gastgeber gefunden, welche Ihre Anfrage beantworten könnten. Bitte überprüfen Sie Ihre Suchanfrage und verändern Sie Ihre Anforderungen.

) if $TRAVEL{matches} == 0; %>
Ihre Suchanfrage lautet:
%%% $TRAVEL{suchanfrage} %%%
<% $in{mitteilung} =~ s/[\n\r\t\s]+/ /g; $in{mitteilung} =~ s/["]//g; return $in{mitteilung}; %>

Möchten Sie Ihre Angaben noch einmal ändern? Anfrage ändern

<% if ( $TRAVEL{matches} > 0 && $TRAVEL{matches} < 10 || 1 ) { qq(

Es wurden nur $TRAVEL{matches} Gastgeber ermittelt, welche Ihre Anfrage beantworten können. Es wäre möglich, dass Sie wenige oder sogar gar keine Angebote erhalten. Bitte überprüfen Sie Ihre Suchanfrage und verändern Sie Ihre Anforderungen.

); my %zimmerarten = ( "ez" => 1, "dz" => 2, "zw" => 2, "dr" => 3 ); #breakpoint %in; #################### # Mehrere Zimmer? => Splitten anbieten #breakpoint $TRAVEL{matches}; # %in; #$zimmerarten{$in{filter_zimmertyp}}, $in{filter_personen}, $in{anzahl_erwachsene}; if ( $TRAVEL{matches} < 10 and ( # Anzahl je Zimmertyp größer 1 ( $in{anzahl_zimmer} > 1 or $in{anzahl_zimmer_2} > 1 ) or # Zwei Zimmer ( $in{filter_zimmertyp} and $in{filter_zimmertyp_2} ) #and $in{filter_personen}) and $in{filter_personen_2}) #or ( $in{anzahl_erwachsene} + $in{anzahl_kinder} > $in{filter_personen} ) ) # or ( # $zimmerarten{$in{filter_zimmertyp}} and # ( # $zimmerarten{$in{filter_zimmertyp}} < $in{filter_personen} # or $zimmerarten{$in{filter_zimmertyp}} < $in{anzahl_erwachsene} # ) # ) ) { qq(

Sie haben mehr als ein Zimmer in einem Haus angefragt. Dürfen wir Ihre Anfrage auf mehrere Häuser verteilen?
Anfrage verteilen

); } # #################### #breakpoint %in; #SE::breakpoint %in, $TRAVEL{suchanfrage}; } %> <% return "" unless ( $TRAVEL{matches} or ( ($in{filter_zimmertyp} and $in{filter_personen}) and ($in{filter_zimmertyp_2} and $in{filter_personen_2}) ) ); $PAGE{dynamic}++; require SE::Lib::GUI; require SE::Community::Laender; my $gui = SE::Lib::GUI->new(); my $html_land = $gui->genWidget( typ => "select", name => "land", width => 330, data => [ getLaender( format => 'ARRAY' ) ], value => "de", ); my @data; foreach ( 1 .. $TRAVEL{matches} ) { push @data, ( $_ => Bereich( $_, $_, "Angebot", "Angebote" ) ); } # max. 10 Angebote, Ticket #26418 my $dataAnzahl = @data; my @dataAnzahl; my $valueAnzahl = 10; if ( $dataAnzahl > 20 ) { @dataAnzahl = @data[0..19]; } else { @dataAnzahl = @data; $valueAnzahl = $dataAnzahl / 2; } my $anzahl = $gui->genWidget( typ => "select", name => "anzahl", data => \@dataAnzahl, value => $valueAnzahl, ); my $antispam = &create_antispam(); my %zimmernamen = ( "ez" => "Einzelzimmer", "dz" => "Doppelzimmer", "zw" => "Zweibettzimmer", "dr" => "Dreibettzimmer", "ap" => "Appartement", "su" => "Suite", "fw" => "Ferienwohnung", "fh" => "Ferienhaus", ); # Vermieter-Text Zimmer1 my $angebot; $angebot .= qq($in{anzahl_zimmer} $zimmernamen{$in{filter_zimmertyp}} mit $in{filter_personen} Personen belegt, ) if $in{filter_zimmertyp} && $in{filter_personen}; $angebot .= qq(\nAnzahl Erwachsene: $in{anzahl_erwachsene}) if $in{anzahl_erwachsene}; $angebot .= qq(\nAnzahl Kinder: $in{anzahl_kinder}) if $in{anzahl_kinder}; if ( $in{filter_erwachsene_nb} or $in{filter_kinder_nb} ) { $angebot .= qq(davon ); $angebot .= qq($in{filter_erwachsene_nb} Erwachsene) if $in{filter_erwachsene_nb}; $angebot .= qq( und ) if $in{filter_erwachsene_nb} and $in{filter_kinder_nb}; $angebot .= qq($in{filter_kinder_nb} Kinder) if $in{filter_kinder_nb}; $angebot .= qq( mit folgendem Alter: $in{alter_kinder} Jahre) if $in{alter_kinder}; $angebot .= qq(.\n); } # Vermieter-Text Zimmer2 $angebot .= qq($in{anzahl_zimmer_2} $zimmernamen{$in{filter_zimmertyp_2}} mit $in{filter_personen_2} Personen belegt, ) if $in{anzahl_zimmer_2}; if ( $in{filter_erwachsene_nb_2} or $in{filter_kinder_nb_2} ) { $angebot .= qq(davon ); $angebot .= qq($in{filter_erwachsene_nb_2} Erwachsene) if $in{filter_erwachsene_nb_2}; $angebot .= qq( und ) if $in{filter_erwachsene_nb_2} and $in{filter_kinder_nb_2}; $angebot .= qq($in{filter_kinder_nb_2} Kinder) if $in{filter_kinder_nb_2}; $angebot .= qq( mit folgendem Alter: $in{alter_kinder_2} Jahre) if $in{alter_kinder_2}; $angebot .= qq(.\n); } #breakpoint $angebot, %in; qq(

Ihre Anschrift

$LANG{Anrede}* $LANG{Vorname}* $LANG{Name}*
 
$LANG{Strasse} / Hausnummer
$LANG{PLZ} $LANG{Ort}
$LANG{Land}
$html_land
$LANG{Telefon}
$LANG{Fax}
$LANG{Email}*

$LANG{Email_wiederholen}
Weitere Wünsche

Wieviele Angebote wollen Sie maximal erhalten ?
$anzahl


); %>