%%% require "se_gui.pl"; &gen_widgets("calendar_js"); %%%
%%%	$TRAVEL{remember} = qq(feld_von_epoche feld_bis_epoche zimmermerkmale intage filter_personen sortmode filter_zimmerfewo); ""; %%%

<table width="100%" border=0 cellpadding="0" cellspacing="0" >
<tr><td style="border-bottom: 1px solid #ffffff; ">

<table width="100%" border=0 cellspacing=5 cellpadding=0>

<% $TRAVEL{session} ? qq(<tr><td align=left style="padding: 3px;" bgcolor="#dddddd"><table width=100% cellpadding=0 cellspacing=0><tr><td><font class=minitext ><img src="se_data/se_gfx/16/achtung.gif" hspace=8 align=absmiddle vspace=3>$LANG{Kriterien_Suchanfrage_gespeichert}</td></tr></table></td></tr>) : ""  %>


<tr>
<td bgcolor="#eeeeee">
<font class=text>


<form action="%%% $ENV{DOCUMENT_NAME} %%%" method=get id=travelform name=travelform>
<input type="hidden" name="seite" value="%%%$PAGE{id}%%%">
<input type="hidden" name="gid" value="%%%$in{gid}%%%">
<input type="hidden" name="do" value="zimmer">


<table width="100%"  border="0" cellspacing="15" cellpadding="0">
<tr><td align=left>

<table border=0  width="100%" cellpadding="5" cellspacing=0>

<tr><td align=right>
<font class=text>
<% $LANG{Zeitraum_von} %></td>

<td><font class=text>
%%% $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") %%%</font>
</td></tr>
<tr>
<td align=right>
<font class=text>
<% $LANG{bis} %></td>
<td><font class=text>
%%% $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"); %%%</font>
</td></tr>
</table>

</td>
<td>
<table border=0  width="100%" cellpadding="5" cellspacing=0>
<tr>
<td  align=left valign=top style="padding: 9px;"><font class=minitext><select id="filter_personen" name="filter_personen" style="width: 110px;" title="<% $LANG{Anzahl_Personen} %>"><option value="" ><% $LANG{Personen} %></option>%%% my $out; for (1..15) { my $sel = $_ == $in{filter_personen} ? "SELECTED" :  ""; $out .= qq(<option value="$_" $sel>$_ <% $LANG{Personen} %></option>) }; $out; %%%
</select></font></td>
<td>

<font class=minitext>
<input type="radio" name="private_modus" value="1"  OnClick="document.travelform.intage.disabled=true; document.travelform.off_zeitraum.value = 0;" 
	%%% $in{intage} eq "" && ! $in{off_zeitraum} && $in{feld_von_epoche} ? "CHECKED" : "" %%%>&nbsp;<% $LANG{exakt_in_diesem_Zeitraum} %><br>
<input type="radio" name="private_modus" value="2" OnClick="document.travelform.intage.disabled=false; document.travelform.off_zeitraum.value = 0;" 
	%%% $in{intage} && ! $in{off_zeitraum} ? "CHECKED" : "" %%%>&nbsp;<% $LANG{in_diesem_Zeitraum} %>&nbsp;
<input OnClick="document.quartiersuche.inzeit[1].checked = true;" type="text" name="intage" %%% $in{intage} eq "" || $in{off_zeitraum} ? "DISABLED" : "" %%% 
	value="%%% $in{intage} eq "" || $in{off_zeitraum} ? "" : "$in{intage}" %%%" size="2" maxlength="2">&nbsp;<% $LANG{Naechte} %><br>
<input type="radio" name="private_modus" value="3" OnClick="document.travelform.off_zeitraum.value = 1; document.travelform.intage.disabled=true;" 
	%%% $in{off_zeitraum} || ( $in{feld_von_epoche} eq "" ) ? "CHECKED" : "" %%%>&nbsp;<% $LANG{unabhaengig_vom_Zeitraum} %>. <% $LANG{Alle_Quartiere_zeigen} %><br>
</td>

</tr>

<input type="hidden" name="off_zeitraum" value="%%% $in{off_zeitraum} || $in{feld_von_epoche} eq '' ? "1" : "" %%%">


</table>
</td>
</tr>
</table>

</td>
</tr>

<tr><td bgcolor="#dddddd" align=right width="90%">

<table width=100% border="0" cellspacing="10" cellpadding="0"><tr>
<td align="left" valign="middle"><font class=minitext>



</font></td>
<td align="right" valign="top" width="10%"><input type="submit" value="&raquo; <% $LANG{Quartier_suchen} %>"  id="button_suchen" name="startsearch" style="background-color: #aaeeaa;"></td>
</tr></table>


</td></tr></form>

<tr><td>

<%		

	use SE::Travel::SearchEngine;
	$in{groupmode} = "zimmer";
	$in{sortmode} = "alpha";
	$in{off_preis} = 1;
	$in{no_status} = 1;
	
	my $suche = SE::Travel::SearchEngine->new(\%in);
	my $sql   = $suche->sql;
	$TEMP{vorlage_travel_sql} = $sql;
	
	require "se_travel.pl";
	my $parameter = &vermittlung_encode_parameter;
	my $out = &vermittlung_decode_parameter($parameter);
	return qq(<table width=100% cellspacing=0 cellpadding=4 border=0><tr>
			  <td bgcolor="#eeeeee" style="border: 1px solid #bbbbbb; padding-left: 8px;"><font class=minitext>$out</font></td></tr></table>);

%>
</td>
</tr>

<tr><td>
<font class=minitext>

<% $in{sqldebug} ? qq( <pre> $TEMP{vorlage_travel_sql} </pre>): ""%>

<table width=100% cellspacing=1 cellpadding=0 border=0><tr>
<tr>
<td  class=boxTEXT bgcolor="#bbbbbb" valign=top width="20%"><font class=minitext><% $LANG{Quartier} %></td>
<td  class=boxTEXT bgcolor="#bbbbbb" valign=top width="20%"><font class=minitext><% $LANG{max_Belegung} %></td>
<td  class=boxTEXT bgcolor="#bbbbbb" valign=top width="40%"><font class=minitext><% $LANG{Preis_nacht_zzgl_Kurbeitrag} %></td>
<td  class=boxTEXT bgcolor="#bbbbbb" valign=top width="20%"><font class=minitext><% $LANG{Mindestaufenthalt} %></td>
</tr>

<% 


	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) {
			$zimmer .= 	qq(	<tr>
						<td class=boxTEXT colspan=4 bgcolor="#dddddd" nowrap><font class=text ><strong> $TRAVEL{zimmertypen}->{ $projekt->{zimmer_typ} }&nbsp;</strong> </td>
						</tr>
					) if $projekt->{zimmer_typ} ne $old_zimmertyp;
	
		my $zimmernr = $projekt->{zimmer_name};
		   $zimmernr = "Nr. $projekt->{zimmer_name}" if $projekt->{zimmer_name} =~ /^\d+$/ ;

		my $von 		= sprintf( "%6.2f", $projekt->{preis} );
		my $bis 		= sprintf( "%6.2f", $projekt->{preis_max} );
		my $preise = qq(ab $projekt->{preis} &euro;);
		   
		   $preise =~ s/\./,/g;
		   
		   # Preise zusammenbauen, und nur wenn verfügbar zeigen...
		   my $preise_personen;
		   my $personen = $in{filter_personen} ? $in{filter_personen} :  $projekt->{zimmer_typ} eq "dz" ? 2 : $projekt->{fuer_personen};
		   $preise_personen = "$LANG{fuer} $personen $LANG{Personen}" if personen;
		   #$preise_personen = "$LANG{fuer} $personen $LANG{Personen} $projekt->{zimmer_minpers}" if $personen == 1;
		   $preise_personen = "$LANG{fuer} $personen $LANG{Personen}" if $personen == 1;

		   # Preise zusammenbauen, und nur wenn verfügbar zeigen...
		   $preise = "$preise $preise_personen $LANG{inkl_Vollpension}<br>" 	if $projekt->{inklusive_verpflegung} eq "vp";
		   $preise = "$preise $preise_personen $LANG{inkl_Halbpension}<br>" 	if $projekt->{inklusive_verpflegung} eq "hp";
		   $preise = "$preise $preise_personen $LANG{inkl_Fruehstueck}<br>" 	if $projekt->{inklusive_verpflegung} eq "uf";
		   $preise = "$preise $preise_personen<br>" if $projekt->{inklusive_verpflegung} eq "";
		   
		   
		   $preise = qq(&nbsp;) unless $projekt->{preis} > 0;
		   
		my $maxpers  = qq($projekt->{zimmer_minpers}-$projekt->{zimmer_maxpers} $LANG{Personen});
		   $maxpers  = qq($projekt->{zimmer_maxpers} Personen) if $projekt->{zimmer_minpers} == $projekt->{zimmer_maxpers};
		   $maxpers  = qq($projekt->{zimmer_maxpers} Person) if ($projekt->{zimmer_minpers} == $projekt->{zimmer_maxpers} || $projekt->{zimmer_minpers} == 0) && $projekt->{zimmer_maxpers} == 1;
		   
		   

		   
		## . . . . . . . . . . . . . . . . . . . . . . . . . . . 
		## mache eine auflistung der merkmale
		#my @merkmale;
		#my $sth2 = $TRAVEL{database}->prepare("SELECT id, name, gruppe FROM travel_merkmale WHERE gid='1' AND FIND_IN_SET('zimmer',verwendung) ORDER BY name"); 
		#$sth2->execute; 
		#while (my $merkmal = $sth2->fetchrow_arrayref) {
		#	if ( substr($projekt->{merkmale},$$merkmal[0]-1,1) eq "1") {
		#		push @merkmale, $$merkmal[1];
		#	}
		#}	
		#my $merkmale = join ", ",@merkmale;
		## . . . . . . . . . . . . . . . . . . . . . . . . . . . 

		my $href = &travel_gen_href( { zid => $projekt->{zid}, do => "zimmerinfo" } );
	
		my $mindestaufenthalt;
		   $mindestaufenthalt = qq($projekt->{preis_mindestaufenthalt} $LANG{Naechte});
		   $mindestaufenthalt = qq($projekt->{preis_mindestaufenthalt} $LANG{Nacht}) if $projekt->{preis_mindestaufenthalt} == 1;
		   $mindestaufenthalt = qq(<a href="$ENV{DOCUMENT_NAME}?$PAGE{id}$href">$LANG{mehr_Info}</a>) if $in{off_zeitraum} == 1;
		   
		   
		$zimmer .= qq(	<tr>
						<td  class=boxTEXT bgcolor="#ffffff" valign=top><font class=text><a href="$ENV{DOCUMENT_NAME}?$PAGE{id}$href">$zimmernr</a></td>
						<td  class=boxTEXT bgcolor="#f4f4f4" valign=top><font class=minitext>$maxpers</td>
						<td  class=boxTEXT bgcolor="#f4f4f4" valign=top><font class=minitext>$preise</td>
						<td  class=boxTEXT bgcolor="#f4f4f4" valign=top><font class=minitext>$mindestaufenthalt</td>
						
						
						</tr>
						
						
					 );
	
		$old_zimmertyp = $projekt->{zimmer_typ};
	}
	
	
	$zimmer .= qq(
<tr><td style="padding: 15px;" colspan=5><font class=headline>&nbsp;<br>$LANG{keine_Quartiere_gefunden}<br>&nbsp;</font></td></tr>
) unless $zimmer;


	$zimmer;
	
	sub travel_gen_href {
	
	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;	
	
}



%>


</tr></table>

</td></tr>
</table>

</td></tr></table>