#!/usr/bin/perl -w use CGI qw/:all/; use CGI::Carp qw(fatalsToBrowser); use DBI; my $dbh=DBI->connect('dbi:mysql:parc_demog:localhost','parcdemog','parc9904')or die "Couldn't connect to database: " . DBI->errstr; #my $dbh=DBI->connect('dbi:mysql:parc_demog:localhost:3306','root','root') or die "Unable to connect: $DBI::errstr\n"; my $conCode= url_param('conCode'); my $cityCode=url_param('cityCode'); my $locCode=url_param('locCode'); my $typeCode= url_param('typeCode'); my $hasVisited= url_param('hasVisited'); if ($conCode eq '') { $conCode= "All"; } if ($cityCode eq '') { $cityCode= "All"; } if ($locCode eq '') { $locCode= "All"; } if ($typeCode eq '') { $typeCode= "All"; } if ($hasVisited eq '') { $hasVisited= "All"; } $strCon="select distinct conCode,conName from cf_location"; $sthCon=$dbh->prepare($strCon); $sthCon->execute; $strCity="select distinct cityCode,cityName from cf_location"; $sthC=$dbh->prepare($strCity); $sthC->execute; ### $strLoc="select distinct locCode,locName from cf_location"; $sthL=$dbh->prepare($strLoc); $sthL->execute; ### #$strS="select distinct ShID,fName,lName from shopper"; #$sthS=$dbh->prepare($strS); #$sthS->execute; ### ######Checking for Country $strCond=""; if ($conCode ne "All") { $strCond="l.conCode='$conCode'"; } ######Checking for City if ($cityCode ne "All") { if ($strCond ne "") { $strCond="$strCond and l.cityCode='$cityCode'"; } else { $strCond="l.cityCode='$cityCode'"; } } #########Checking for Location if ($locCode ne "All") { if ($strCond ne "") { $strCond="$strCond and v.locCode='$locCode'"; } else { $strCond="v.locCode='$locCode'"; } } #########Checking for Mailed #if ($hasMailed ne "All") #{ # if ($strCond ne "") # { # $strCond="$strCond and hasMailed='$hasMailed'"; # } # else # { # $strCond="hasMailed='$hasMailed'"; # } #} #########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 v.planCode,v.locCode,l.locName,l.typeName,l.cityName,v.planTime,v.hasVisited from cf_location l,cf_visitPlan v where v.locCode=l.locCode"; } else { $strVisit="SELECT v.planCode,v.locCode,l.locName,l.typeName,l.cityName,v.planTime,v.hasVisited from cf_location l,cf_visitPlan v where v.locCode=l.locCode and $strCond"; } $sthV=$dbh->prepare($strVisit); $sthV->execute; $cnt=$sthV->rows; print < PAN ARAB RESEARCH CENETER - Mystery Shopping
 

PAN ARAB RESEARCH CENTER

Visit Details

Country: blk2 while (@City=$sthC->fetchrow_array()) { print ""; } print <  Location:  Visited: GO

blk4 my $i= 0; while ($visit=$sthV->fetchrow_hashref()) { $i=$i+1; my $planCode ="$visit->{'planCode'}"; my $code ="$visit->{'locCode'}"; my $city ="$visit->{'cityName'}"; my $location ="$visit->{'locName'}"; my $type ="$visit->{'typeName'}"; my $planTime ="$visit->{'planTime'}"; my $hasVisited ="$visit->{'hasVisited'}"; $mod=$i%2; if($mod == 0) { $col='#D7DADE'; } else { $col='#FFFFFF'; } print < blk5 } print <
planCode Code City Location Store Type Time Visit
$planCode $code $city $location $type $planTime $hasVisited
 
Message:
 
blk7