#!/usr/bin/perl -w use CGI qw/:all/; use CGI::Carp qw(fatalsToBrowser); use DBI; #my $dbh=DBI->connect('dbi:mysql:parc_demog:localhost:3306','root','root') or die "Unable to connect: $DBI::errstr\n"; my $dbh=DBI->connect('dbi:mysql:parc_demog:localhost','parcdemog','parc9904')or die "Couldn't connect to database: " . DBI->errstr; my $conCode= url_param('conCode'); my $natCode=url_param('natCode'); my $areaName=url_param('areaName'); my $selValue=url_param('selValue'); my $gender= url_param('gender'); my $hasVisited= url_param('hasVisited'); if ($conCode eq '') { $conCode= "All"; } if ($natCode eq '') { $natCode= "All"; } if ($areaName eq '') { $areaName= "All"; } if ($selValue eq '') { $selValue= "All"; } if ($gender eq '') { $gender= "All"; } #if ($hasVisited eq '') #{ # $hasVisited= "All"; #} $strCon="select distinct conCode,conName from cf_location"; $sthCon=$dbh->prepare($strCon); $sthCon->execute; ### $strNat="select distinct natCode,natName from nationality"; $sthN=$dbh->prepare($strNat); $sthN->execute; ### $strArea="select distinct area from shopper"; $sthArea=$dbh->prepare($strArea); $sthArea->execute; #$strS="select distinct ShID,fName,lName from shopper"; #$sthS=$dbh->prepare($strS); #$sthS->execute; ### ######Checking for Country $strCond=""; if ($conCode ne "All") { $strCond="s.country='$conCode'"; } #########Checking for Nationality if ($natCode ne "All") { if ($strCond ne "") { $strCond="$strCond and s.nationality='$natCode'"; } else { $strCond="s.nationality='$natCode'"; } } ######Checking for City if ($areaName ne "All") { if ($strCond ne "") { $strCond="$strCond and s.area='$areaName'"; } else { $strCond="s.area='$areaName'"; } } #########Checking for Gender if ($gender ne "All") { if ($strCond ne "") { $strCond="$strCond and gender='$gender'"; } else { $strCond="gender='$gender'"; } } #########Checking for Visited #if ($hasVisited ne "All") #{ # if ($strCond ne "") # { # $strCond="$strCond and hasVisited='$hasVisited'"; # } # else # { # $strCond="hasVisited='$hasVisited'"; # } #} ## #if ($typeCode ne "All") #{ # if ($strCond ne "") # { # $strCond="$strCond and typeCode='$typeCode'"; # } # else # { # $strCond="typeCode='$typeCode'"; # } #} ## #########Checking for Shopper #if ($shID ne "All") #{ # if ($strCond ne "") # { # $strCond="$strCond and v.shID='$shID'"; # } # else # { # $strCond="v.shID='$shID'"; # } #} ######### if ($strCond eq "") { $strVisit="SELECT s.ShID,s.fName,s.lName,s.gender,n.natName,s.mobile,s.email,s.area from shopper s,nationality n where s.nationality=n.natCode"; } else { $strVisit="SELECT s.ShID,s.fName,s.lName,s.gender,n.natName,s.mobile,s.email,s.area from shopper s,nationality n where s.nationality=n.natCode and $strCond"; } $sthV=$dbh->prepare($strVisit); $sthV->execute; $cnt=$sthV->rows; print < PAN ARAB RESEARCH CENETER - Mystery Shopping

PAN ARAB RESEARCH CENTER

Shopper Details

Country: blk2 while (@nat=$sthN->fetchrow_array()) { print ""; } print < Area:

blk4 my $i= 0; while ($visit=$sthV->fetchrow_hashref()) { $i=$i+1; my $ShID ="$visit->{'ShID'}"; my $name ="$visit->{'fName'} $visit->{'lName'}"; my $gender ="$visit->{'gender'}"; if($gender==1) { $gender='Male'; } else { $gender='Female'; } my $natName ="$visit->{'natName'}"; my $mobile ="$visit->{'mobile'}"; my $email ="$visit->{'email'}"; my $area ="$visit->{'area'}"; $mod=$i%2; if($mod == 0) { $col='#D7DADE'; } else { $col='#FFFFFF'; } print < blk5 } print <

ID	Name	Gender	Nationality	e-mail	Phone No.	Area
$ShID	$name	$gender	$natName	$email	$mobile	$area

blk7