#!/usr/bin/perl

# alpha.html: Alphabetical list of sales property from RandR98 database
#             User can Select a property from this form to view
#             Modified 12/05/97 by Celeste

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

use Mysql;	# mSQL database routines

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

# retrieve the CGI variables.

print header();
$top = &VDS::readFile('top.html');
$top =~ s/BROWSERTITLE/$clientName - $clientLocation: $Number: $Name/;
$top =~ s#PAGETITLE#Alphabetic Listing of Properties#;
$top =~ s#BANNER#Rental Search#;

print $top;

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

$result = $conn->Query(qq{SELECT Name, Num, ID FROM $dbtable ORDER BY Name}) or
          print qq{"alpha.html Select: Sorry, we are temporarily unable to process your search request.  Try resubmitting your search request in a couple of minutes.<p>$Mysql::db_errstr"};

if ($result->numrows() != 0) {
   print "<h3>Alphabetic Property Listing</h3>";

   #print "<b>There are " . $result->numrows() . " properties:</b><p>";
   print "<center>";

   $letter='A';
   while( $letter lt 'Z' ){
      $navBar .= "<a href=#$letter>$letter</a> | ";
      $letter++;
   }
   $navBar .= "<a href=#Z>Z</a>";
   #print "<font face=\"$fontFace\">Click on the letter that begins the name of the property you are interested in viewing.<br><font size=-1>$navBar</font></font>";
   print "<font face=\"$fontFace\"><font size=-2>$navBar</font></font>";

   print "<p><table  width=95% border=1>";

   $lastLetter = "FIRST";
   $col = 4;

   while (($Name, $Num, $ID ) = $result->fetchrow()) {
      $SendName = $Name;
      $SendName =~ s/ /+/g;

      $letter = substr($Name, 0, 1);
      
      if ($lastLetter ne $letter) {
         $col = 4;
      }
      $col += 1;
      if ($col > 4) {
         if( $lastletter ne "FIRST" ){
            print "</tr>\n";
         }
         print $newRow;
         if ($lastLetter ne $letter) {
            print "\n<TR><TD bgcolor=\"#57A2D2\" ALIGN=\"CENTER\"><font face=\"$fontFace\" size=2><a name=\"$letter\"><b>$letter</b></font></td>"; 
            $lastLetter = $letter;
         }
         else {
            print "<tr><td></td>\n";
         }
         $col = 2;
      }
      $sendNum = $ID;
      $sendNum =~ s/ /+/g;
      $sendNum =~ s/\&/\%26/g;
      $sendNum =~ s/\#/\%23/g;
      print "<th align=left><font face=\"$fontFace\" size=-1><a href=\"/book/house.html?ID=$sendNum\"> $Name $condoString</font></th>\n";
   } # end-while

   print "</tr></table>";

} # end-if

print "</font>";

$bottom = &VDS::readFile('bottom.html');
print $bottom;
exit;