#!/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; @mon=("January","February","March","April","May","June","July","August","September","October","November","December"); @mn=("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"); my $shID= param('shID'); my $cityName=param('cityName'); my $conCode=param('conCode'); #### my $planDay=param('planDay'); my $planTime=param('planTime'); #### $locCode=param('locCode'); ##### #$conCode=971; if($cityName eq "") { $cityName="All"; } if ($locCode eq '') { $locCode= "All"; } $strCond=""; if ($cityName ne "All") { $strCond="l.cityName='$cityName'"; } ########################### if ($planDay eq '') { $planDay= "All"; } if ($planTime eq '') { $planTime= "All"; } ########################### #########Checking for Location if ($locCode ne "All") { if ($strCond ne "") { $strCond="$strCond and l.locCode='$locCode'"; } else { $strCond="l.locCode='$locCode'"; } } ##################### if ($planDay ne "All") { if ($strCond ne "") { $strCond="$strCond and v.planDay='$planDay'"; } else { $strCond="v.planDay='$planDay'"; } } if ($planTime ne "All") { if ($strCond ne "") { $strCond="$strCond and v.planTime='$planTime'"; } else { $strCond="v.planTime='$planTime'"; } } ##################### if ($strCond eq "") { $strLOC="SELECT l.locCode as locCode, cityName, locName, typeName, planTime,planCode,planDay FROM cf_location l, cf_visitPlan v WHERE v.locCode = l.locCode and l.conCode='$conCode' and hasVisited='F'"; } else { $strLOC="SELECT l.locCode as locCode, cityName, locName, typeName, planTime,planCode,planDay FROM cf_location l, cf_visitPlan v WHERE v.locCode = l.locCode and l.conCode='$conCode' and hasVisited='F' and $strCond"; } $sthL=$dbh->prepare($strLOC); $sthL->execute; $cnt=$sthL->rows; $strCity="select distinct cityName from cf_location"; $sthC=$dbh->prepare($strCity); $sthC->execute; ### $strLok="select distinct locCode,locName from cf_location where conCode=$conCode order by locCode"; $sthLo=$dbh->prepare($strLok); $sthLo->execute; ### $strDay="select distinct (planDay) from cf_visitPlan v, cf_location l where l.conCode=$conCode and l.locCode=v.locCode order by planDay "; $strPd=$dbh->prepare($strDay); $strPd->execute; ### $strTime="select distinct (planTime) from cf_visitPlan v, cf_location l where l.conCode=$conCode and l.locCode=v.locCode"; $strPt=$dbh->prepare($strTime); $strPt->execute; ### $strHead="select planDesc, planMonth, planYear from cf_visitPlanHead"; $sthHd=$dbh->prepare($strHead); $sthHd->execute; while (@planHead=$sthHd->fetchrow_array()) { $strHead=$planHead[0]; $mm=$planHead[1] - 1; $yy=$planHead[2]; } print < PAN ARAB RESEARCH CENETER - Mystery Shopping

City :  blk2a while (@loc=$sthLo->fetchrow_array()) { print ""; } print <  Day: blk2c while (@time=$strPt->fetchrow_array()) { print ""; } print < GO

blk2 my $i= 0; while ($visit=$sthL->fetchrow_hashref()) { $i = $i + 1; my $n1 = "pa1".$i; my $n2 = "pb2".$i; my $n3 = "pc3".$i; my $n4 = "pd4".$i; my $n5 = "pe5".$i; my $n6 = "pf6".$i; my $n7 = "pg7".$i; my $n8 = "ph8".$i; my $code ="$visit->{'locCode'}"; my $city ="$visit->{'cityName'}"; my $location ="$visit->{'locName'}"; my $type ="$visit->{'typeName'}"; my $planTime ="$visit->{'planTime'}"; my $planCode ="$visit->{'planCode'}"; my $planDay ="$visit->{'planDay'}"; print < blk3 } print <
planCode City Location Store Type Time Day Date
 
X
SunMonTueWedThuFriSat
blk4