#!/usr/bin/perl

# query.html
# see README.txt in docs directory for booking rules. Mel

use Mysql;       # mSQL database routines

require "OLconfig.pl";
require "SQLconfig.pl";
require "custom/vdslib.pl";

# Initialize CGI environment
use CGI qw/:standard/;

use Date::Calc qw (
                Date_to_Days
                Day_of_Week
                Add_Delta_Days
                Today
		Now
        );

($yy, $mm, $dd) = Today();
$mmOut = $mm-1;

$dayofweek = Day_of_Week($yy,$mm,$dd);

if( $dayofweek < 6 ){
    # Add whatever it takes to get to this Saturday
    $days_offset = 6 + (7 - $dayofweek);
}
else {
    # Add whatever it takes to get to next Saturday
    $days_offset = 6+(6 + (7 - $dayofweek ));
}

($Nyear,$Nmm,$Ndd) = Add_Delta_Days ( $yy,$mm,$dd,$days_offset );

$nextYear = $Nyear+1;

print header;

$top = &VDS::readFile('top.html');
$top =~ s/BROWSERTITLE/$clientName $clientLocation Property Search/;
$top =~ s/PAGETITLE/Property Search/;
$top =~ s#BANNER#Rental Search#;
print $top;

########## Get end range. This is used for cutoff & for the date checking too.
########## No reservations past this date allowed.
$endRange = getEndRange();
($erY, $erM, $erD) = Add_Delta_Days(1,1,1, $endRange-1);
$endRange = "$erY-$erM-$erD";
#print "ER: $endRange";
###########################################################################

print qq {
	<font face="$fontFace" size=-1>
	<form Name=query ACTION="/book/query.pl" method="POST" onSubmit="return dateCheck(this,$yy,$mm,$dd,'$endRange')">
	
	<p>Please select the features you're looking for in your vacation rental. When you have entered all your requirements, press the <b>Submit</b> button and we will display a list of properties that meet your needs. 
	<p>If you already know the rental property you wish to view, either by <A HREF="numeric.html">Property Number</A> or <A HREF="alpha.html">Property Name</A>, click the appropriate link.
	<p>New, view our property <a href='/book/maps/index.htm'>Maps</a>.
	<p><B>Property Availability:</B>
	<blockquote>
<table border=0 width="448">
			<tr>
				<td align="right"><font face="$fontFace" size=2>Arrival Date: </a></td>
    			<TD><SELECT name=ArrMonth onChange="onChangeArr(this.form,$yy)">
				<option value="" selected>- Month -
};

# loop for current date + 48 hours, rule must book at least 48 hours out from today.
my $count = 1; 

while ( $count <= 12 ) {
   $mmSelect = "";
   $optVal = $count;
   $optVal =~ s/^0//g;
   #if ($count eq $mm ){
   #$mmSelect = "SELECTED";
   #}
    print "<OPTION VALUE=\"$optVal\" $mmSelect>$MonthNames{ $count }</option>\n";
  $count++;
} # end-while

print qq (
</select>
<SELECT name=ArrDay onChange="onChangeArrDay(this.form,$yy)">
	<option value="" selected>- Day -
	<OPTION VALUE="1" >1</option>
	<OPTION VALUE="2" >2</option>
	<OPTION VALUE="3" >3</option>
	<OPTION VALUE="4" >4</option>
	<OPTION VALUE="5" >5</option>
	<OPTION VALUE="6" >6</option>
	<OPTION VALUE="7" >7</option>
	<OPTION VALUE="8" >8</option>
	<OPTION VALUE="9" >9</option>
	<OPTION VALUE="10" >10</option>
	<OPTION VALUE="11" >11</option>
	<OPTION VALUE="12" >12</option>
	<OPTION VALUE="13" >13</option>
	<OPTION VALUE="14" >14</option>
	<OPTION VALUE="15" >15</option>
	<OPTION VALUE="16" >16</option>
	<OPTION VALUE="17" >17</option>
	<OPTION VALUE="18" >18</option>
	<OPTION VALUE="19" >19</option>
	<OPTION VALUE="20" >20</option>
	<OPTION VALUE="21" >21</option>
	<OPTION VALUE="22" >22</option>
	<OPTION VALUE="23" >23</option>
	<OPTION VALUE="24" >24</option>
	<OPTION VALUE="25" >25</option>
	<OPTION VALUE="26" >26</option>
	<OPTION VALUE="27" >27</option>
	<OPTION VALUE="28" >28</option>
	<OPTION VALUE="29" >29</option>
	<OPTION VALUE="30" >30</option>
	<OPTION VALUE="31" >31</option>

</SELECT>
<SELECT name=ArrYear onChange="onChangeArrYear(this.form)">
	<OPTION value="" selected>- Year -
);
$bookyr = $yy;
for ($i = 1;$i<3;$i++){
	print "<OPTION value=$bookyr>$bookyr";
	$bookyr = $bookyr+1;
}
print qq(
</SELECT>
		<!-- <a href="#" onClick="popUp('/jscal/popcalendarV2.htm?$mmOut,$yy,$dd,1,1','POPUP','height=200,width=300,status=no,toolbar=no,scrollbars=no,resizable=yes')"><img src="/images/calendar.gif" border=0 alt="View Calendar"></a> -->
      </td>
  </tr>
 <tr>
    <td align="right"><font face="$fontFace" size=2>Departure Date: </a></td>
    <TD > 

                          <SELECT name=DepMonth onChange="onChangeDep(this.form,$yy)">
				<option value="" selected>- Month -
);
# loop for current date + 48 hours, Kaiser Rule must book at least 48 hours out from today.
my $count = 1; 

while ( $count <= 12 ) {
   $mmSelect = "";
   $optVal = $count;
   $optVal =~ s/^0//g;
#   if ($count eq $mm ){
#	$mmSelect = "SELECTED";
#   }
    print "<OPTION VALUE=\"$optVal\" $mmSelect>$MonthNames{ $count }</option>\n";
  $count++;
} # end-while

print qq (
</select>
<SELECT name=DepDay >
	<option value="" selected>- Day -
	<OPTION VALUE="1" >1</option>
	<OPTION VALUE="2" >2</option>
	<OPTION VALUE="3" >3</option>
	<OPTION VALUE="4" >4</option>
	<OPTION VALUE="5" >5</option>
	<OPTION VALUE="6" >6</option>
	<OPTION VALUE="7" >7</option>
	<OPTION VALUE="8" >8</option>
	<OPTION VALUE="9" >9</option>
	<OPTION VALUE="10" >10</option>
	<OPTION VALUE="11" >11</option>
	<OPTION VALUE="12" >12</option>
	<OPTION VALUE="13" >13</option>
	<OPTION VALUE="14" >14</option>
	<OPTION VALUE="15" >15</option>
	<OPTION VALUE="16" >16</option>
	<OPTION VALUE="17" >17</option>
	<OPTION VALUE="18" >18</option>
	<OPTION VALUE="19" >19</option>
	<OPTION VALUE="20" >20</option>
	<OPTION VALUE="21" >21</option>
	<OPTION VALUE="22" >22</option>
	<OPTION VALUE="23" >23</option>
	<OPTION VALUE="24" >24</option>
	<OPTION VALUE="25" >25</option>
	<OPTION VALUE="26" >26</option>
	<OPTION VALUE="27" >27</option>
	<OPTION VALUE="28" >28</option>
	<OPTION VALUE="29" >29</option>
	<OPTION VALUE="30" >30</option>
	<OPTION VALUE="31" >31</option>

</SELECT>
<SELECT name=DepYear>
	<OPTION value="" selected>- Year -
 );
$bookyr = $yy;
for ($i = 1;$i<3;$i++){
	print "<OPTION value=$bookyr>$bookyr";
	$bookyr = $bookyr+1;
}
print qq(
					</SELECT>
					<!-- <a href="#" onClick="popUp('/jscal/popcalendarV2.htm?$mmOut,$yy,$dd,1,2','POPUP','height=200,width=300,status=no,toolbar=no,scrollbars=no,resizable=yes')"><img src="/images/calendar.gif" border=0 alt="View Calendar"></a> -->
      				</td>
  				</tr>
</table>
<p>If you want to stay more than 14 nights or arrive within 14 days, please call us at (910) 579-3515 for availability and to book a property. Partial stay reservations are only allowed during September through May and can be booked 45 days in advance or less.</p>
</blockquote>
);

print qq(
	<p><B>Property Features:</B><blockquote>
<table border=0>
<tr>
  <th align=right><font face="$fontFace" size=-1>Location:</font></th>                       
  <th align=left><font face="$fontFace" size=-1>

);

# Connect to database in order to do upcoming searches:

my $conn = Mysql->Connect($dbserver, $db)
  or print qq {"Sorry, we are temporarily unable to process your search request.  Please try again in a little while.<p>$Mysql::db_errstr"};

# get Sleeps drop-down list:
$result = $conn->Query(qq{SELECT DISTINCT Location FROM $dbtable WHERE Location >= 'A' ORDER BY Location}) or
          print qq {query.html Select Location: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};

if ($result->numrows() != 0) {
   print "<SELECT NAME=Location><OPTION VALUE=\"Any\">- Any Location - </OPTION>";
   
   while (($Location) = $result->fetchrow()) {

      print "<OPTION VALUE=\"$Location\"";
	print ">$Location\n";

   } # end-while

   print qq (
           <OPTION VALUE='2nd Row'>Second Row
           <OPTION VALUE='3'>3rd Row - 6th Row
           <OPTION VALUE='7'>7th Row - 12th Row
           <OPTION VALUE='13'>13th Row and up

         </SELECT>);
} # end-if there are properties in database

print qq (
    </font>                                      
  </th>
</tr>

<tr>
  <th align=right><font face="$fontFace" size=-1>Type:</font></th>                       
  <th align=left><font face="$fontFace" size=-1>

);


# get Sleeps drop-down list:
$result = $conn->Query(qq{SELECT DISTINCT Type FROM $dbtable ORDER BY Type}) or
          print qq {query.html Select Type: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};

if ($result->numrows() != 0) {
   print "<SELECT NAME=Type><OPTION VALUE=\"Any\">- Any Type - </OPTION>";
   
   while (($Type) = $result->fetchrow()) {

      print "<OPTION VALUE=\"$Type\"";
	print ">$Type\n";

   } # end-while

   print "</SELECT>";
} # end-if there are properties in database

print qq (
    </font>                                      
  </th>
</tr>


<!--<tr>
  <th align=right><font face="$fontFace" size=-1>Minimum Occupancy:</font></th>                       
  <th align=left><font face="$fontFace" size=-1>

);

# get Sleeps drop-down list:
$result = $conn->Query(qq{SELECT DISTINCT Sleeps FROM $dbtable ORDER BY Sleeps}) or
          print qq {query.html Select Sleeps: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};

if ($result->numrows() != 0) {
   print "<SELECT NAME=Sleeps><OPTION VALUE=\"Any\">- Any Number - </OPTION>";
   
   while (($Sleeps) = $result->fetchrow()) {

      print "<OPTION VALUE=\"$Sleeps\"";
	print ">$Sleeps\n";

   } # end-while

   print "</SELECT>";
} # end-if there are properties in database

print qq (

    </font>                                      
  </th>
</tr>-->

<tr>
  <th align=right><font face="$fontFace" size=-1>Minimum Bedrooms:</font></th>
  <th align=left><font face="$fontFace" size=-1>

);

# get Bedrooms drop-down list:
$result = $conn->Query(qq{SELECT DISTINCT Bedrooms FROM $dbtable ORDER BY Bedrooms}) or
          print qq {query.html Select Bedrooms: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};

if ($result->numrows() != 0) {
   print "<SELECT NAME=Bedrooms><OPTION VALUE=\"Any\">- Any - </OPTION>";

   while (($Bedrooms) = $result->fetchrow()) {
      print "<OPTION VALUE=\"$Bedrooms\"";
	print ">$Bedrooms\n";

   } # end-while

   print "</SELECT>";
} # end-if there are properties in database

print qq (

    </font>                                      
  </th>
</tr>

<tr>
  <th align=right><font face="$fontFace" size=-1>Minimum Full Baths:</font></th>
  <th align=left><font face="$fontFace" size=-1>

);

# get FullBaths drop-down list:
$result = $conn->Query(qq{SELECT DISTINCT FullBaths FROM $dbtable ORDER BY FullBaths}) or
          print qq {query.html Select FullBaths: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};

if ($result->numrows() != 0) {
   print "<SELECT NAME=FullBaths><OPTION VALUE=\"Any\">- Any - </OPTION>";

   while (($FullBaths) = $result->fetchrow()) {

      print "<OPTION VALUE=\"$FullBaths\"";
	print ">$FullBaths\n";

   } # end-while

   print "</SELECT>";
} # end-if there are properties in database

print qq (

    </font>                                      
  </th>
</tr>
</table>

);

###################################
# get Number of properties having each amenity:
$result = $conn->Query(qq{SELECT Count(*) FROM $dbtable WHERE upper(ScreenedPorch)='Y'}) or
          print qq {query.html Count Screened Porch: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};
$NumPorch = $result->fetchrow();

$result = $conn->Query(qq{SELECT Count(*) FROM $dbtable WHERE upper(SunDeck)='Y'}) or
          print qq {query.html Count Sundeck: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};
$NumSunDeck = $result->fetchrow();

$result = $conn->Query(qq{SELECT Count(*) FROM $dbtable WHERE NonSmoking='Y'}) or
          print qq {query.html Count NonSmoking: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};

$NumNonSmoking = $result->fetchrow();

$result = $conn->Query(qq{SELECT Count(*) FROM $dbtable WHERE Special='Y'}) or
          print qq {query.html Count Specials: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};
$NumSpecials = $result->fetchrow();

$result = $conn->Query(qq{SELECT Count(*) FROM $dbtable WHERE upper(EastSide)='Y'}) or
          print qq {query.html Count East Side: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};
$NumEastSide = $result->fetchrow();

$result = $conn->Query(qq{SELECT Count(*) FROM $dbtable WHERE upper(WestSide)='Y'}) or
          print qq {query.html Count West Side: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};
$NumWestSide = $result->fetchrow();

$result = $conn->Query(qq{SELECT Count(*) FROM $dbtable WHERE upper(Canal)='Y'}) or
          print qq {query.html Count Canal: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<br>$Mysql::db_errstr};
$NumCanal = $result->fetchrow();

###################################

print qq (

<p><B>Amenities:</B> (The number of properties that match the amenity is shown in parentheses next to it.)

<table width=95%>
  <tr>
    <td align=left valign=top><font face="$fontFace" size=-1>
<INPUT TYPE="CHECKBOX"  NAME="NonSmoking" VALUE="Y">Non-Smoking  <font size=1>($NumNonSmoking)</font>     
    </font>
    </td>
    <td align=left valign=top><font face="$fontFace" size=-1>
<INPUT TYPE="CHECKBOX"  NAME="ScreenedPorch" VALUE="Y">Screened Porch <font size=1>($NumPorch)</font>
    </font>
    </td>
  </tr>
  <tr>
    <td align=left valign=top><font face="$fontFace" size=-1>
<INPUT TYPE="CHECKBOX"  NAME="SunDeck" VALUE="Y">Sundeck  <font size=1>($NumSunDeck)</font>   
    </font>
    </td>
    <td align=left valign=top><font face="$fontFace" size=-1>
<INPUT TYPE="CHECKBOX"  NAME="Special" VALUE="Y">Special Properties <font size=1>($NumSpecials)</font>
    </font>
    </td>
  </tr>

  <tr>
    <td align=left valign=top><font face="$fontFace" size=-1>
<INPUT TYPE="CHECKBOX"  NAME="EastSide" VALUE="Y">East Side of Island  <font size=1>($NumEastSide)</font>     
    </font>
    </td>
    <td align=left valign=top><font face="$fontFace" size=-1>
<INPUT TYPE="CHECKBOX"  NAME="WestSide" VALUE="Y">West Side of Island <font size=1>($NumWestSide)</font>
    </font>
    </td>
  </tr>
  <tr>
    <td align=left valign=top><font face="$fontFace" size=-1>
<INPUT TYPE="CHECKBOX"  NAME="Canal" VALUE="Y">On Canal  <font size=1>($NumCanal)</font>     
    </font>
    </td>
    <td align=left valign=top><font face="$fontFace" size=-1>
&nbsp;
    </font>
    </td>
  </tr>

</table>

<B>Results:</B>
<table width=90%>
<input type="hidden" name="Photos" value="1">
<input type="hidden" name="Limit" value="5">
  <tr>
   <th align="right" bgcolor="#cccccc"><font face="$fontFace" size=-1>
How would you like the results sorted? 
    </font>
   </th>
   <th align="left" valign="top"><font face="$fontFace" size=-1>
 <SELECT NAME="Sort">
 <OPTION value="Bedrooms ASC, Name ASC">Bedroom
 <OPTION value="Location ASC, Bedrooms DESC">Location 
 <OPTION value="Name ASC, Bedrooms DESC">Name 
 <OPTION value="PMSUnitID ASC">Number
 </SELECT>
    </font>
  </th>
 </tr>
</table>
<p>

<CENTER>
<B>
<input type="submit" VALUE="Submit" > <input type="RESET" value="Clear Fields">
</B>
</CENTER>
</FORM>

</FONT>
<center>
<p>
);
$bottom = &VDS::readFile('bottom.html');
print $bottom;


############################################
# Get the end range date for the allowable
# dates on the search. No reservations are allowed
# for dates beyond this date.
sub getEndRange{

	$StartDay = 6;  #SAT

	# Generate the weekend dates
	my ($todayyear, $todaymm, $todaydd) = Today();
    $dow = Day_of_Week($todayyear,$todaymm,$todaydd);

	# if thurs. or greater
	if($dow > 1){
		$weeks = 51;
	}
	else{
		# if < thurs.
		$weeks = 50;
	}

	$days = 7 * $weeks;  

	### Next years week 
	my $NYdate = Date_to_Days($todayyear, $todaymm, $todaydd) + $days;

	if ($dow != $StartDay ){
		if ($dow < $StartDay){
			$deltadiff = $StartDay - $dow;
			$NYdate += $deltadiff;
		}
		elsif ($dow > $StartDay){
			$deltadiff = $dow - $StartDay;
			$NYdate = $NYdate - $deltadiff;
		}
	}

	return $NYdate;

}