#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;


use lib qw(/home/u484518444/domains/aklaat.com/public_html/cgi-bin);
use CGI qw(:standard escapeHTML);
use AklaatDB;
use AklaatUser;
use AklaatDB::Session;
use Recipe;
use Rate;

my $basedir = '/home/u484518444/domains/aklaat.com/public_html/';

my $rate_base_url = 'http://www.aklaat.com/cgi-bin/rates/ShowRecipeRate.pl';

my $summary_file = '/home/u484518444/domains/aklaat.com/public_html/hidden/summaries.htm';
my $summary_terms = '';

my $baseurl = '../';

my $link_url = '../index.htm';

my ($name, $value, $page_title, $pair, @pairs, $rec_to_display, $total_rec, %FORM, $page, $buffer);
my %rates;
$total_rec = 0;
$page = 0;
$rec_to_display = 25;

if ($ENV{'REQUEST_METHOD'} eq 'POST') {
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { 
	$buffer = $ENV{'QUERY_STRING'};
}
@pairs = split(/&/,$buffer);

foreach $pair (@pairs)
	{
	($name,$value) = split(/=/,$pair);
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$FORM{$name} = $value;
	}

$page_title = "���";	

my ($ALL, $APPT, $ARTC, $DSRT, $DIET, $DRNK, $DISH, $SALD, $PSTR, $SOUP);

&resetListSelection;
&assign_selected_flag;
&return_html;
#############################################################
sub assign_selected_flag
{
 	if ($FORM{'lstSearch'} eq 'ALL') {
		$ALL = 'selected';
	} elsif ($FORM{'lstSearch'} eq 'APPT') {
		$APPT = 'selected';
	} elsif ($FORM{'lstSearch'} eq 'ARTC') {
		$ARTC = 'selected';
	} elsif ($FORM{'lstSearch'} eq 'DSRT') {
		$DSRT = 'selected';
	} elsif ($FORM{'lstSearch'} eq 'DIET') {
		$DIET = 'selected';
	} elsif ($FORM{'lstSearch'} eq 'DRNK') {
		$DRNK = 'selected';
	} elsif ($FORM{'lstSearch'} eq 'DISH') {
		$DISH = 'selected';
	} elsif ($FORM{'lstSearch'} eq 'SALD') {
		$SALD = 'selected';
	} elsif ($FORM{'lstSearch'} eq 'PSTR') {
		$PSTR = 'selected';
	} elsif ($FORM{'lstSearch'} eq 'SOUP') {
		$SOUP = 'selected';
	}
}
#############################################################
sub is_search_criteria_exist
{
	if (validateSearchTerm($FORM{'terms1'}) ne '') { 
		return ('true');
	} elsif (validateSearchTerm($FORM{'terms2'}) ne '') { 
		return ('true');
	} elsif (validateSearchTerm($FORM{'terms3'}) ne '') { 
		return ('true');
	} elsif (validateSearchTerm($FORM{'terms4'}) ne '') { 
		return ('true');
	} elsif (validateSearchTerm($FORM{'noterms1'}) ne '') { 
		return ('true');
	} elsif (validateSearchTerm($FORM{'noterms2'}) ne '') { 
		return ('true');
	} elsif (validateSearchTerm($FORM{'noterms3'}) ne '') { 
		return ('true');
	} elsif (validateSearchTerm($FORM{'noterms4'}) ne '') { 
		return ('true');
	} elsif (validateSearchTerm($FORM{'terms'}) ne '') { 
		return ('true');
	}
	return ('false');
}
#############################################################
sub get_search_query_all
{
	my $sql = "SELECT * FROM recipes WHERE ";
	$sql .= AklaatDB::trim(get_search_query());
	$sql =~ s/WHERE AND/WHERE/g;
	$sql .= " ORDER BY re_title";
	return ("$sql");
}
#############################################################
sub get_search_query
{
	#used to check if the query is for count result or record result
	chomp $FORM{'terms1'};
	$FORM{'terms1'} =~ s/\cM\n/ /g;
	my $terms1 = AklaatDB::trim($FORM{'terms1'});
	
	my $sqlTitle = '';
	my $sql = '';
	my $sqlDetail = '';
	my $sqlType = '';
	$summary_terms = '';

	if ($FORM{'lstSearch'} eq 'APPT') {
		$sqlType = " re_type = 'appetizers'";
	} elsif ($FORM{'lstSearch'} eq 'ARTC') {
		$sqlType = " re_type = 'articles'";
	} elsif ($FORM{'lstSearch'} eq 'DSRT') {
		$sqlType = " re_type = 'deserts'";
	} elsif ($FORM{'lstSearch'} eq 'DIET') {
		$sqlType = " re_type = 'diet'";
	} elsif ($FORM{'lstSearch'} eq 'DRNK') {
		$sqlType = " re_type = 'drinks'";
	} elsif ($FORM{'lstSearch'} eq 'DISH') {
		$sqlType = " re_type = 'maindishes'";
	} elsif ($FORM{'lstSearch'} eq 'SALD') {
		$sqlType = " re_type = 'salads'";
	} elsif ($FORM{'lstSearch'} eq 'PSTR') {
		$sqlType = " re_type = 'pastry'";
	} elsif ($FORM{'lstSearch'} eq 'SOUP') {
		$sqlType = " re_type = 'soups'";
	} else {
		$sqlType = "";
	}
	
	if ($FORM{'type'} eq 'advance') {
		chomp $FORM{'terms2'};
		$FORM{'terms2'} =~ s/\cM\n/ /g;
		my $terms2 = AklaatDB::trim($FORM{'terms2'});
		
		chomp $FORM{'terms3'};
		$FORM{'terms3'} =~ s/\cM\n/ /g;
		my $terms3 = AklaatDB::trim($FORM{'terms3'});
		
		chomp $FORM{'terms4'};
		$FORM{'terms4'} =~ s/\cM\n/ /g;
		my $terms4 = AklaatDB::trim($FORM{'terms4'});
		
		chomp $FORM{'noterms1'};
		$FORM{'noterms1'} =~ s/\cM\n/ /g;
		my $noterms1 = AklaatDB::trim($FORM{'noterms1'});
		
		chomp $FORM{'noterms2'};
		$FORM{'noterms2'} =~ s/\cM\n/ /g;
		my $noterms2 = AklaatDB::trim($FORM{'noterms2'});
		
		chomp $FORM{'noterms3'};
		$FORM{'noterms3'} =~ s/\cM\n/ /g;
		my $noterms3 = AklaatDB::trim($FORM{'noterms3'});
		
		chomp $FORM{'noterms4'};
		$FORM{'noterms4'} =~ s/\cM\n/ /g;
		my $noterms4 = AklaatDB::trim($FORM{'noterms4'});
		
		if ($terms1 ne '') { 
			$sqlTitle .= get_search_all_criteria($terms1, 'true');
			$sqlDetail .= get_search_all_criteria($terms1, 'false');
			$summary_terms = "$summary_terms $terms1";
		}
		
		if ($terms2 ne '') { 
			$sqlTitle .= get_search_all_criteria($terms2, 'true');
			$sqlDetail .= get_search_all_criteria($terms2, 'false');
			$summary_terms = "$summary_terms $terms2";
		}
		
		if ($terms3 ne '') { 
			$sqlTitle .= get_search_all_criteria($terms3, 'true');
			$sqlDetail .= get_search_all_criteria($terms3, 'false');
			$summary_terms = "$summary_terms $terms3";			
		}
		
		if ($terms4 ne '') { 
			$sqlTitle .= get_search_all_criteria($terms4, 'true');
			$sqlDetail .= get_search_all_criteria($terms4, 'false');
			$summary_terms = "$summary_terms $terms4";			
		}
		
		if ($noterms1 ne '') { 
			$sqlTitle .= get_search_not_all_criteria($noterms1, 'true');
			$sqlDetail .= get_search_not_all_criteria($noterms1, 'false');
			$summary_terms = "$summary_terms - $noterms1";
		}
		
		if ($noterms2 ne '') { 
			$sqlTitle .= get_search_not_all_criteria($noterms2, 'true');
			$sqlDetail .= get_search_not_all_criteria($noterms2, 'false');
			$summary_terms = "$summary_terms - $noterms2";
		}
		
		if ($noterms3 ne '') { 
			$sqlTitle .= get_search_not_all_criteria($noterms3, 'true');
			$sqlDetail .= get_search_not_all_criteria($noterms3, 'false');
			$summary_terms = "$summary_terms - $noterms3";
		}
		
		if ($noterms4 ne '')  {
			$sqlTitle .= get_search_not_all_criteria($noterms4, 'true');
			$sqlDetail .= get_search_not_all_criteria($noterms4, 'false');
			$summary_terms = "$summary_terms - $noterms4";
		}
		$sql = "$sqlType $sqlTitle UNION SELECT * FROM recipes WHERE ";
		$sql .= AklaatDB::trim("$sqlType  $sqlDetail");
		
	} elsif ($FORM{'type'} eq 'submitter') {
		if ($terms1 ne '') {
			$sql .= " $sqlType AND re_submitted_by LIKE '%$terms1%' ";
			$summary_terms = "$summary_terms $terms1";
		}
		
		#$sql .= " ORDER BY re_title";
		
	} elsif ($FORM{'type'} eq 'quick') {
		if ($terms1 ne '') { 
			$sql .= get_search_part_criteria($terms1, $sqlType);
			$summary_terms = "$summary_terms $terms1";
		}
	} else {
		chomp $FORM{'terms'};
		$FORM{'terms'} =~ s/\cM\n/ /g;
		my $terms = AklaatDB::trim($FORM{'terms'});
		
		if ($terms ne '') { 
			$sql .= get_search_part_criteria($terms, $sqlType);
			$FORM{'terms1'} = $terms;
			$summary_terms = "$summary_terms $terms";
		}
	}

	return ($sql);
}
#############################################################
sub get_search_part_criteria
{
	my ($terms, $sqlType) = @_;
	$terms = AklaatDB::trim($terms);
	my @words = split(/ /,$terms);
	my $word;
	my @chars;
	my $sql = "";
	my $sql1 = "";
	my $sql2 = "";
	my $sqlTitle = "";
	my $count = 0;
    foreach $word (@words) {
		$word = filterSearchTerm($word);
        
		if ($word ne "") {
			$sql1 .= " AND (re_keywords LIKE '%$word%') ";
			$sql2 .= " OR (re_keywords LIKE '%$word%') ";
			$sqlTitle .= " AND (re_title LIKE '%$word%') ";
			++$count;
		}
	}
	
	$sql .= " $sqlType $sqlTitle ";
	$sql .= " UNION SELECT * FROM recipes WHERE ";
	$sql .= AklaatDB::trim("$sqlType  $sql1");
	
	#disable the "OR" search for quick and more efficent search
	$count = 0;
	if ($count > 1) {
		$sql .= " UNION SELECT * FROM recipes WHERE (";
		#if (AklaatDB::trim($sqlType) eq "1=1") {
	    #		$sql .= substr($sql2, 4);
		#	$sql .= " ) ";
		#} else {
			$sql .= " $sqlType AND (";
			$sql .= substr($sql2, 4);
			$sql .= " ) )";
	#	}
	}
	return ($sql);
	
}
#############################################################
sub get_search_all_criteria
{
	my ($terms, $isTitle) = @_;
	
	$terms = AklaatDB::trim($terms);
	my @words = split(/ /,$terms);
	my $word;
	my @chars;
	my $sql = "";
    foreach $word (@words) {
		$word = filterSearchTerm($word);
        
		if ($word ne "") {
			if ($isTitle eq 'true') {
				$sql .= " AND (re_title LIKE '%$word%') ";
			} else {
				$sql .= " AND (re_keywords LIKE '%$word%') ";
			}
		}
	}
	
	return ($sql);
}
#############################################################
sub get_search_not_all_criteria
{
	my ($terms, $isTitle) = @_;
	$terms = AklaatDB::trim($terms);
	my @words = split(/ /,$terms);
	my $word;
	my @chars;
	my $sql = "";
    foreach $word (@words) {
		$word = filterSearchTerm($word);
        
		if ($word ne "") {
			if ($isTitle eq 'true') {
				$sql .= " AND (re_title NOT LIKE '%$word%') ";
			} else {
				$sql .= " AND (re_keywords NOT LIKE '%$word%') ";
			}
		}
	}
	
	return ($sql);
}
#############################################################
sub return_html
{
	print "Content-type: text/html\n\n";

	# First we build a summary file for the webmaster and the visitor:
	my ($dbh, $sth, $ref);
	
	my @recipes = ();
	my $hitcount = 0;
	my $search_criteria_exist = is_search_criteria_exist();
	
	if ($search_criteria_exist eq 'true') {
	  &init_recipe_rate();
	  $dbh = AklaatDB::connect ();
	  $dbh->do ('SET NAMES CP1256');
	  $dbh->do ('SET COLLATION_CONNECTION=CP1256_GENERAL_CI');
	  my $sqlTemp = get_search_query_all();
	  $sth = $dbh->prepare ($sqlTemp);
	  $sth->execute ();
	
	  while ($ref = $sth->fetchrow_hashref ())
	  {
		my $rec = new Recipe(); 

		#set object attributes
		$rec->setFileName($ref->{re_filename});
		$rec->setTitle($ref->{re_title});
		$rec->setSubmittedBy($ref->{re_submitted_by});
		$rec->setDescription($ref->{re_description});

		$hitcount = push(@recipes, $rec);
	  }
	}

	my $docstring = "���� $hitcount";
	$docstring = "����� �����: ���� �����" if ($hitcount == 1);
	$docstring = "����� �����: ������" if ($hitcount == 2);
	$docstring = "����� �����: $hitcount �����" if ($hitcount > 2 && $hitcount < 11);
	$docstring = "����� �����: $hitcount ����" if ($hitcount > 10);
	$docstring = "�� ���� ����� �����" unless ($hitcount);
	
	if ($summary_terms ne '') {
	    my ($sec,$min,$hr,$mday,$mon,$wday,$yday,$isdst) = localtime(time);
		my $day = (localtime)[3];
        my $month = ((localtime)[4]) + 1;
        my $year = (localtime)[5] + 1900;
        my $date = "$day/$month/$year";
	    my $summary = "<div dir=rtl><H3>$date&nbsp;&nbsp;&nbsp;<font color=red>����� ��: $summary_terms</font>&nbsp;&nbsp;&nbsp;";
	    $summary = "$summary <font color=green>$docstring</font></H3></div>\n";
	
	    open(SUMMARY,">>$summary_file");
	    print SUMMARY $summary;
	    close(SUMMARY);
	}

print <<EOM;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<HTML>
<HEAD>
<TITLE>$page_title</TITLE>
<META http-equiv="Content-Type" content="text/html; charset=windows-1256">
<META name="description" content="">
<META name="keywords" content="">
EOM

my $data_file="includes/style.htm";
my @raw_data = OpenFile("$basedir$data_file","read");
my $line;
foreach $line (@raw_data) {
  print "$line";
}

$data_file="includes/script.htm";
@raw_data = OpenFile("$basedir$data_file","read");
foreach $line (@raw_data) {
  print "$line";
}

print <<EOM;
<script language="Javascript">
  function callRateScreen(fileName, title) {
    document.frmPageDetail.title.value = title;
    document.frmPageDetail.fileName.value = fileName;
    document.frmPageDetail.submit();
  }

</script>
<STYLE type="text/css">
<!--
A:hover { COLOR: #cc0000; TEXT-DECORATION: underline}
.ratings { FONT-WEIGHT: bold; FONT-SIZE: 19px; BORDER-TOP-STYLE: none; FONT-FAMILY: "Courier New", Courier, mono; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none }
.ratingsT { FONT-WEIGHT: bold; FONT-SIZE: 14px; BORDER-TOP-STYLE: none; FONT-FAMILY: "Traditional Arabic"; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none }
.submitted { FONT-WEIGHT: normal; FONT-SIZE: 13px; BORDER-TOP-STYLE: none; FONT-FAMILY: "Courier New (Arabic)", Courier, mono; BORDER-RIGHT-STYLE: none; BORDER-LEFT-STYLE: none; BORDER-BOTTOM-STYLE: none }
.mnlink { COLOR: #ffffff; TEXT-DECORATION: none}
.mslink { COLOR: #cc0000; TEXT-DECORATION: none}
.lnlink { COLOR: #CC0000; TEXT-DECORATION: none}
.lslink { COLOR: #FF3300; TEXT-DECORATION: none}
.wlink {TEXT-DECORATION: none;}
.wslink { COLOR: #cc0000; TEXT-DECORATION: none;}
.wnlink { COLOR: #993300; TEXT-DECORATION: none;}
.V10 { font-family: Verdana, Arial, sans-serif; FONT-SIZE: 11px;}
.pageDisplay {
	FONT-SIZE: 13px; FONT-FAMILY: Simplified Arabic; color: #ff0000; FONT-WEIGHT: bold; TEXT-DECORATION: none
}
.selectedPage {
	FONT-SIZE: 13px; FONT-FAMILY: Simplified Arabic; color: #ffffff; FONT-WEIGHT: bold; TEXT-DECORATION: none
}
-->
</STYLE>
</HEAD>
<BODY>
EOM

require "ui/top.pl";
print <<EOM;
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
                <td vAlign="top" align="right" width="82%" rowSpan="2">
EOM
	if ($FORM{'type'} eq 'advance') {
		&search_advanced;
    } elsif ($FORM{'type'} eq 'submitter') {
		&search_submitter;
	} else {
		&search_quick;
	}

if ($FORM{'clear'} ne 'y') {
my $bgColor = 0;

print <<EOM;    
	
      <TABLE style="BORDER-RIGHT: #ff8800 2px solid; BORDER-LEFT: #ff8800 2px solid; BORDER-TOP: #ff8800 2px solid; BORDER-BOTTOM: #ff8800 2px solid" valign=top align=center border=0 cellPadding=2 cellSpacing=2 width="95%">
      <tr><td>
          <TABLE valign=top align=center border=0 cellPadding=2 cellSpacing=2 width="100%">
			<TR><TD align=right valign=top><B><SPAN dir=rtl lang=AR-SA><FONT color=red>$docstring</FONT></SPAN></B></TD></TR></table>
	  </td></tr>

EOM

	if ($search_criteria_exist eq 'true') {

	my $recipes = \@recipes;
	for (my $i=0; $i<$hitcount; $i++)
	{
		my $rec = $recipes[$i];
		
		if ($bgColor == 0) {
			print "<TR><TD align=absmiddle bgcolor=PapayaWhip>\n";
		    $bgColor = 1;
		} else {
		    print "<TR><TD align=absmiddle>\n";
		    $bgColor = 0;
		}
	
		if ($FORM{'action'} ne 'articles') {
			print <<EOM;
			<TABLE border=0 cellPadding=2 cellSpacing=2 width='100%'>
			  <TR>
			    <TD valign=top align=right style="padding:4px 0px 4px 8px;" width="15%">
EOM


				&show_recipe_rate($rec->getFileName());

				print "</TD>";
				print "<TD align=right vAlign=bottom style='padding:4px 0px;' width='85%'>";
				print "<B><SPAN dir=rtl lang=AR-SA style=\"font-size: 15px; font-family: 'Simplified Arabic';\">";
				print "<A href=\"$baseurl";
				print $rec->getFileName();
				print "\">";
				print $rec->getTitle();
				print "</A></SPAN></B><BR>";
	
			if ($rec->getSubmittedBy() ne '') {
    				print "<nowrap><SPAN dir=rtl lang=AR-SA><FONT class=submitted>&nbsp;����� ��&nbsp;";
    				print $rec->getSubmittedBy();
    				print "</FONT></SPAN></nowrap><BR>";
    			}
    	
		      print "<div style='margin-top:6px;'><B><SPAN dir=rtl lang=AR-SA style='FONT-SIZE: 11pt'>&nbsp;";
		      print $rec->getDescription();
		      print "</SPAN></B></div>";
	print <<EOM
		    </TD>
		  </TR>
		</TABLE>
EOM
    		} else {
    			print "<P align=right><FONT color=red><B><SPAN dir=rtl lang=AR-SA>";
    			print "<A href=\"$baseurl$ref->{re_filename}\">";
    			print $rec->getTitle();
    			print "</A></SPAN></B></FONT>";
    			if ($rec->getDescription() ne '') {
    				print "<BR><B><SPAN dir=rtl lang=AR-SA style='FONT-SIZE: 11pt'>&nbsp;";
    				print $rec->getDescription();
    				print "</SPAN></B></P>";
    			}	
    		}
    		print "</TD></TR>\n";
    	}	
    	}

	print "</TABLE>";
	}
	print "</TD>";

require "ui/nav.pl";

print "</TR></TABLE></BODY>";
$data_file="includes/key_press.htm";
@raw_data = OpenFile("$basedir$data_file","read");

foreach $line (@raw_data) {
  print "$line";
}

print "</HTML>";

if ($search_criteria_exist eq 'true') {
	$sth->finish ();
	$dbh->disconnect ();
}
exit(0);

}
#############################################################
sub OpenFile
{
	my (@temp, $filename, $action, @data);
	($filename, $action, @data) = @_;
	if(lc $action eq "read")			# Read File specified by $filename
	{
		open DATA,"<$filename" or dienice("Error Opening File, $filename","$!");
		@temp = <DATA>;
		close DATA;
		return @temp;
	}
	if(lc $action eq "write")			# Write array @data over $filename
	{
		open DATA,">$filename" or dienice("Error Opening File, $filename","$!");
		print DATA @data;
		close DATA;
	}
	if(lc $action eq "append")			# Append array @data on end of $filename
	{	
		open DATA,">>$filename" or dienice("Error Opening File, $filename","$!");
		print DATA @data;
		close DATA;
	}
}
#############################################################
sub init_recipe_rate
{
	my $dbh = AklaatDB::connect ();
	$dbh->do ('SET NAMES CP1256');
	$dbh->do ('SET COLLATION_CONNECTION=CP1256_GENERAL_CI');
	my $sth = $dbh->prepare ("SELECT recipe, COUNT(*) AS recCount FROM rates GROUP BY recipe");
	$sth->execute ();
	my $ref;
	my $new_rate;
	my $rate;
	while ($ref = $sth->fetchrow_hashref ())
	{
		$new_rate = new Rate();
		$new_rate->setTotalRates($ref->{recCount});
		$rates{$ref->{recipe}} = $new_rate;
	}
	
	$sth = $dbh->prepare ("SELECT recipe, COUNT(*) AS recCount FROM rates WHERE comments != '' GROUP BY recipe");
	$sth->execute ();
	while ($ref = $sth->fetchrow_hashref ())
	{
		$rate = $rates{$ref->{recipe}};
		$rate->setTotalReviews($ref->{recCount});
		$rates{$ref->{recipe}} = $rate;
	}
	
	$sth = $dbh->prepare ("SELECT recipe, SUM( genrating ) AS sum, COUNT( recipe ) AS count FROM rates WHERE genrating > 0 GROUP BY recipe");
	$sth->execute ();
	while ($ref = $sth->fetchrow_hashref ())
	{
		$rate = $rates{$ref->{recipe}};
		$rate->setGeneralRateSum($ref->{sum});
		$rate->setGeneralRateCount($ref->{count});
		$rates{$ref->{recipe}} = $rate;
	}
}
#############################################################
sub show_recipe_rate
{

	my($filename) = shift;
	
	my $rate = $rates{$filename};
	my $total = 0;
	my $reviews = 0;
	my $count = 0;
	my $sum = 0;
	if ($rate != '') {
		$total = ($rate->getTotalRates() eq ''? 0 : $rate->getTotalRates());
		$reviews = ($rate->getTotalReviews() eq ''? 0 : $rate->getTotalReviews());
		$sum = ($rate->getGeneralRateSum() eq ''? 0 : $rate->getGeneralRateSum());
		$count = ($rate->getGeneralRateCount() eq ''? 0 : $rate->getGeneralRateCount());
	}

	print <<EOM;
	  <TABLE border=0 cellPadding=0 cellSpacing=0 width='100%'>
	    <TR>
	      <TD align=right>
EOM
	
	my $red = 0;
	my $gray = 0;
	
	if ($count != 0) {
		$red = AklaatDB::round($sum / $count);
	}
	$gray = 5 - $red;
			    
	print "<FONT class=ratings color=#cccccc>";
	for($count=0; $count<$gray; $count++) {
	        print "*";
	}
	print "</FONT>";
	                    
	print "<FONT class=ratings color=#cc3300>";
	for($count=0; $count<$red; $count++) {
		print "*";
	}
	print <<EOM;
	  <BR>
	    <A href=\"$rate_base_url?filename=$filename">
	      <FONT class=ratingsT><SPAN dir=rtl lang=AR-SA>������:&nbsp;$total<BR>�������:&nbsp;$reviews</SPAN></FONT>
	    </A>
	    </TD>
	  </TR>
      </TABLE>
EOM

}
#######################################################################
sub search_quick {

print <<EOM;
<p align=center>
<img src="http://www.aklaat.com/images/white_4.gif">
<table style="BORDER-RIGHT: #ff8800 2px solid; BORDER-LEFT: #ff8800 2px solid; BORDER-BOTTOM: #ff8800 2px solid"
	dir="rtl" cellpadding="0" cellspacing="0" width="95%" border="0">
	<TR bgcolor="#ff8800">
		<td align="right" height=40>
			<a href="http://www.aklaat.com/cgi-bin/advancesearch.pl?type=quick&clear=y"><img src="../images/buttons/quick_search_sel.gif" border="0"></a>
			<a href="http://www.aklaat.com/cgi-bin/advancesearch.pl?type=advance&clear=y"><img src="../images/buttons/adv_search.gif" border="0"></a>
			<a href="http://www.aklaat.com/cgi-bin/advancesearch.pl?type=submitter&clear=y"><img src="../images/buttons/submit_search.gif" border="0"></a>
		</td>
		<td></td>
	</TR>
	<TR>
		<td colspan="2">
			<table cellpadding="2" cellspacing="0" width="100%" border="0" bgcolor="#ffffff" ID="Table2">
				<form name="frmSearch1" method="post" action="../cgi-bin/advancesearch.pl" ID="Form1">
					<TBODY>
						<TR>
							<TD dir="rtl" align="right"><FONT color="#cc0000"><B>����� ��:</B></FONT>
							</TD>
							<TD align="right">
								<input type="text" name="terms1" size="30" dir="rtl" ID="Text1" value="$FORM{'terms1'}">
							</TD>
						</TR>
						<TR>
							<TD dir="rtl" align="right"><FONT color="#cc0000"><B>����� ��:</B></FONT>
							</TD>
							<TD align="right">
								<select dir="rtl" name="lstSearch" ID="Select1">
									<option value="ALL" $ALL>���� �������</option>
									<option value="SOUP" $SOUP>��������</option>
									<option value="APPT" $APPT>��������</option>
									<option value="SALD" $SALD>�������</option>
									<option value="PSTR" $PSTR>��������</option>
									<option value="DISH" $DISH>������� ��������</option>
									<option value="DSRT" $DSRT>��������</option>
									<option value="DRNK" $DRNK>������� ����������</option>
									<option value="DIET" $DIET>����� ����� ��������</option>
									<option value="ARTC" $ARTC>��������</option>
								</select>
							</TD>
						</TR>
						<TR>
							<TD align="center" colSpan="2">
								<input type="submit" value=" ��� " name="btnSubmit" class="sbttn">
							</TD>
						</TR>
						<input type="hidden" name="type" value="quick" ID="Hidden1">
				</form>
			</table>
		</td>
	</TR>
</table>
</p>
EOM
}
#######################################################################
sub search_advanced {

print <<EOM;
<p align=center>
<img src="http://www.aklaat.com/images/white_4.gif">
<table style="BORDER-RIGHT: 2px solid #FF8800; BORDER-LEFT: #ff8800 2px solid; BORDER-BOTTOM: 2px solid #FF8800"
	dir="rtl" cellpadding="0" cellspacing="0" width="95%" border="0" bordercolor="#ffffff">
	<TR bgcolor="#ff8800">
		<td align="right" height="40">
			<a href="http://www.aklaat.com/cgi-bin/advancesearch.pl?type=quick&clear=y"><img src="../images/buttons/quick_search.gif" border="0"></a>
			<a href="http://www.aklaat.com/cgi-bin/advancesearch.pl?type=advance&clear=y"><img src="../images/buttons/adv_search_sel.gif" border="0"></a>
			<a href="http://www.aklaat.com/cgi-bin/advancesearch.pl?type=submitter&clear=y"><img src="../images/buttons/submit_search.gif" border="0"></a>
		</td>
		<td></td>
	</TR>
	<TR>
		<td colspan="2">
			<table cellpadding="2" cellspacing="0" width="100%" border="0" bgcolor="#ffffff">
				<form name="frmSearch1" method="post" action="../cgi-bin/advancesearch.pl">
					<TR>
						<TD width="25%" dir="rtl" align="right"><FONT color="#cc0000"><B>������ ����� ���:</B></FONT>
						</TD>
						<TD dir="rtl" align="right"><FONT color="#cc0000"><B> ������ <u>��</u> ����� ���:</B></FONT>
						</TD>
					</TR>
					<TR>
						<TD align="right">
							<input type="text" name="terms1" size="20" dir="rtl" ID="Text2" value="$FORM{'terms1'}">
						</TD>
						<TD align="right">
							<input type="text" name="noterms1" size="20" dir="rtl" ID="Text1" value="$FORM{'noterms1'}">
						</TD>
					</TR>
					<TR>
						<TD align="right">
							<input type="text" name="terms2" size="20" dir="rtl" ID="Text4" value="$FORM{'terms2'}">
						</TD>
						<TD align="right">
							<input type="text" name="noterms2" size="20" dir="rtl" ID="Text3" value="$FORM{'noterms2'}">
						</TD>
					</TR>
					<TR>
						<TD align="right">
							<input type="text" name="terms3" size="20" dir="rtl" ID="Text6" value="$FORM{'terms3'}">
						</TD>
						<TD align="right">
							<input type="text" name="noterms3" size="20" dir="rtl" ID="Text5" value="$FORM{'noterms3'}">
						</TD>
					</TR>
					<TR>
						<TD align="right">
							<input type="text" name="terms4" size="20" dir="rtl" ID="Text8" value="$FORM{'terms4'}">
						</TD>
						<TD align="right">
							<input type="text" name="noterms4" size="20" dir="rtl" ID="Text7" value="$FORM{'noterms4'}">
						</TD>
					</TR>
					<TR>
						<td colspan="2">
							<table width="100%" cellpadding="0" cellspacing="0" border="0" ID="Table4">
								<tr>
									<TD width="15%" dir="rtl" align="right"><FONT color="#cc0000"><B>����� ��:</B></FONT>
									</TD>
									<TD align="right">
										<select dir="rtl" name="lstSearch" ID="Select1">
											<option value="ALL" $ALL>���� �������</option>
											<option value="SOUP" $SOUP>��������</option>
											<option value="APPT" $APPT>��������</option>
											<option value="SALD" $SALD>�������</option>
											<option value="PSTR" $PSTR>��������</option>
											<option value="DISH" $DISH>������� ��������</option>
											<option value="DSRT" $DSRT>��������</option>
											<option value="DRNK" $DRNK>������� ����������</option>
											<option value="DIET" $DIET>����� ����� ��������</option>
											<option value="ARTC" $ARTC>��������</option>
										</select>
									</TD>
								</tr>
							</table>
						</td>
					</TR>
					<TR>
						<TD align="center" colSpan="2">
							<input type="submit" value=" ��� " name="btnSubmit" class="sbttn" ID="Submit1">
						</TD>
					</TR>
					<input type="hidden" name="type" value="advance">
				</form>
			</table>
		</td>
	</TR>
</table>
</p>
EOM
}
#######################################################################
sub search_submitter {

print <<EOM;
<p align=center>
<img src="http://www.aklaat.com/images/white_4.gif">
<table dir="rtl" style="BORDER-RIGHT: #ff8800 2px solid; BORDER-LEFT: #ff8800 2px solid; BORDER-BOTTOM: #ff8800 2px solid"
	borderColor="#ffffff" cellSpacing="0" cellPadding="0" width="95%" border="0">
		<TR bgcolor="#ff8800">
			<td align="right" height="40">
				<a href="http://www.aklaat.com/cgi-bin/advancesearch.pl?type=quick&clear=y"><img src="../images/buttons/quick_search.gif" border="0"></a>
				<a href="http://www.aklaat.com/cgi-bin/advancesearch.pl?type=advance&clear=y"><img src="../images/buttons/adv_search.gif" border="0"></a>
				<a href="http://www.aklaat.com/cgi-bin/advancesearch.pl?type=submitter&clear=y"><img src="../images/buttons/submit_search_sel.gif" border="0"></a>
			</td>
			<td></td>
		</TR>
		<TR>
			<td colSpan="2">
				<table cellSpacing="0" cellPadding="2" width="100%" bgColor="#ffffff" border="0">
					<form name="frmSearch1" action="../cgi-bin/advancesearch.pl" method="post" ID="Form1">
						<TR>
							<TD align="right"><FONT color="#cc0000"><B>����� ��:</B></FONT>
							</TD>
							<TD align="right"><input id="Text1" dir="rtl" type="text" size="30" name="terms1" value="$FORM{'terms1'}">
							</TD>
						</TR>
						<TR>
							<TD align="right"><FONT color="#cc0000"><B>����� ��:</B></FONT>
							</TD>
							<TD align="right"><select id="Select1" dir="rtl" name="lstSearch">
								<option value="ALL" $ALL>���� �������</option>
								<option value="SOUP" $SOUP>��������</option>
								<option value="APPT" $APPT>��������</option>
								<option value="SALD" $SALD>�������</option>
								<option value="PSTR" $PSTR>��������</option>
								<option value="DISH" $DISH>������� ��������</option>
								<option value="DSRT" $DSRT>��������</option>
								<option value="DRNK" $DRNK>������� ����������</option>
								<option value="DIET" $DIET>����� ����� ��������</option>
							</select>
						</TD>
					</TR>
					<TR>
						<TD align="center" colSpan="2">
							<input type="submit" value=" ��� " name="btnSubmit" class="sbttn" ID="Submit1">
						</TD>
					</TR>
					<input type="hidden" name="type" value="submitter">
				</form>
			</table>
		</td>
	</TR>
</table>
</p>

EOM
}
#############################################################
	sub resetListSelection {
		$ALL = '';
		$SOUP = '';
		$APPT = '';
		$SALD = '';
		$PSTR = '';
		$DISH = '';
		$DSRT = '';
		$DRNK = '';
		$DIET = '';
		$ARTC = '';
	}
#############################################################
sub filterSearchTerm {
	my($word) = shift;
	my @skipWordList = ('���','���','�����','�����',
		'�����','�����','����','����','�����','�����','���','������','�����',
		'����','���','�����','�����','����','����','���','���','����','��','��','���','���',
		'��','��','���','����','����','��',
		'����','����','����','�����',' �����','������');
	
	my $key;
	my %skipWords = ();
	foreach $key (@skipWordList) {
		$skipWords{$key}='';
	}
	
	$word = AklaatDB::trim($word);
    my @chars=split//,$word;
    if (($chars[0] eq '�') && ($chars[1] eq '�')) {
		$chars[0]=" ";
		$chars[1]=" ";
	} else {
	    if (($chars[0] eq '�') && ($chars[1] eq '�') && ($chars[2] eq '�')) {
		    $chars[0]=" ";
		    $chars[1]=" ";
		    $chars[2]=" ";
	    }			
	}
	$word = join '',@chars;
	$word = AklaatDB::trim($word);
	
	if (exists($skipWords{$word})) {
		return "";
	}
	return $word;
}
#############################################################
sub validateSearchTerm {
	my($terms) = shift;
	$terms = AklaatDB::trim($terms);
	my @words = split(/ /,$terms);
	my $word;
	my $filteredTerms = "";
    foreach $word (@words) {
		$word = filterSearchTerm($word);
		$word = AklaatDB::trim($word);
		$filteredTerms .= $word ." ";
	}
	$filteredTerms = AklaatDB::trim($filteredTerms);
	return $filteredTerms;	
}