<% require "se_gui.pl"; &gen_widgets("calendar_js"); %> <% $TRAVEL{remember} = qq(feld_von_epoche feld_bis_epoche intage off_zeitraum filter_personen); ""; %>

" /> <% $TRAVEL{session} ? qq(

$LANG{Kriterien_Suchanfrage_gespeichert}

) : "" %>

<% $LANG{Zeitraum_von} %> <% $in{feld_von_epoche} = $in{feld_von_epoche} ? $in{feld_von_epoche} : time + 60*60*24*1; &gen_widgets("calendar_html","von","UNIXTIME","SIMPLE","travelform",0,$in{feld_von_epoche},"DDMMYYYY") %>

<% $LANG{bis} %> <% $in{feld_bis_epoche} = $in{feld_bis_epoche} ? $in{feld_bis_epoche} : time + 60*60*24*5; &gen_widgets("calendar_html","bis","UNIXTIME","SIMPLE","travelform",0,$in{feld_bis_epoche},"DDMMYYYY") %>

<% $LANG{Personen} %> <% $LANG{Personen} %> <% my $out; for (1..15) { my $sel = $_ == $in{filter_personen} ? qq( selected="selected") : ""; $out .= qq($_ $LANG{Personen}); } return $out; %>

/> <% $LANG{exakt_in_diesem_Zeitraum} %>
/> <% $LANG{in_diesem_Zeitraum_fuer} %> value="<% $in{private_modus} eq "2" ? "$in{intage}" : "" %>" size="2" maxlength="2" /> <% $LANG{Naechte} %>
/> <% $LANG{unabhaengig_vom_Zeitraum} %>, <% $LANG{Alle_Quartiere_zeigen} %>

<% my %zimmer; sub _AddZimmer { my $zimmertyp = $LANG{ $TRAVEL{zimmertypen}->{ $_[0]->{zimmer_typ} } } ? $LANG{ $TRAVEL{zimmertypen}->{ $_[0]->{zimmer_typ} } } : $TRAVEL{zimmertypen}->{ $_[0]->{zimmer_typ} }; my %z = ( "quartier" => &_GetQuartier($_[0]), "personen" => &_GetPersonen($_[0]), "preis" => &_GetPreis($_[0]), "mindestaufenthalt" => &_GetMindestaufenthalt($_[0]), "klassifizierung" => &_GetKlassifizierung($_[0]), ); push (@{$zimmer{"$zimmertyp"}}, \%z); } my $sql = $TEMP{vorlage_travel_sql}; my $nurbetrieb .= qq( travel_betriebe.gid = "$in{gid}" AND ); $sql =~ s/WHERE/WHERE $nurbetrieb/; my $sth = $TRAVEL{database}->prepare($sql); $sth->execute || &mysql_error($sth); while (my $projekt = $sth->fetchrow_hashref) { &_AddZimmer($projekt); } my $zimmer; while (my ($zimmertyp, $zimmerliste) = each %zimmer) { $zimmer .= qq( $zimmertyp ); foreach (@{$zimmerliste}) { $zimmer .= qq( $_->{quartier} $_->{personen} $_->{preis} $_->{mindestaufenthalt} $_->{klassifizierung} ); } } return qq(

$LANG{keine_Quartiere_gefunden}

) unless $zimmer; return qq( $zimmer

$LANG{Quartier}	$LANG{max_Belegung}	* $LANG{Preise} $LANG{je_nacht}	$LANG{Mindestaufenthalt}	$LANG{Klassifizierung}

); # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # Funktionen # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # sub _GenHref { my $href; foreach my $key (keys %{$_[0]}) { $in{$key} = $_[0]->{$key}; } foreach my $key (sort keys %in) { $in{$key} =~ s/\0/\|/g; $href .= "&$key=$in{$key}" if $key ne "" && $key !~ /(page|action|seite)/; } return $href; } sub _GetQuartier { my $href = &_GenHref( { zid => $_[0]->{zid}, do => "zimmerinfo" } ); my $zimmer = $_[0]->{zimmer_name} =~ /^\d+$/ ? "Nr. $_[0]->{zimmer_name}" : $_[0]->{zimmer_name}; return qq($zimmer); } sub _GetPersonen { my $pers = $_[0]->{zimmer_minpers} == $_[0]->{zimmer_maxpers} ? $_[0]->{zimmer_minpers} : ($_[0]->{zimmer_minpers} == 0 && $_[0]->{zimmer_maxpers} == 1) ? 1 : "$_[0]->{zimmer_minpers}-$_[0]->{zimmer_maxpers}"; return getLANG("x_Personen", [$pers]); } sub _GetPreis { $_[0]->{preis} =~ s/\./\x2C/g; my $preis = getLANG("ab_x_euro", [$_[0]->{preis}]); my $pers = $_[0]->{fuer_personen} ? getLANG("fuer_x_Personen", [$_[0]->{fuer_personen}]) : ""; my $incl = $_[0]->{inklusive_verpflegung} eq "vp" ? $LANG{inkl_Vollpension} : $_[0]->{inklusive_verpflegung} eq "hp" ? $LANG{inkl_Halbpension} : $_[0]->{inklusive_verpflegung} eq "uf" ? $LANG{inkl_Fruehstueck} : ""; return $_[0]->{preis} > 0 ? "$preis $pers $incl" : ""; } sub _GetMindestaufenthalt { my $href = &_GenHref( { zid => $_[0]->{zid}, do => "zimmerinfo" } ); return $_[0]->{preis_mindestaufenthalt} == 1 ? qq(1 $LANG{Nacht}) : qq($_[0]->{preis_mindestaufenthalt} $LANG{Naechte}); } sub _GetKlassifizierung { return $_[0]->{sterne} > 0 ? viewSterne( sterne => $_[0]->{zimmer_sterne}, xhtml => 1 ) : ""; } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # %> <% my $kurbeitrag = getKurbeitrag(); $priceHint = "* ".$LANG{alle_preise}." ".$LANG{je_nacht}." ".$kurbeitrag; $priceHint; %>