#!/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 $locCode = param("locCode"); my $ShID = param("ShID"); #start direct entry my $dow = param("dow"); my $slNo = trim(param("slNo")); # end $intCount=0; $invCode=0; $url=""; sub trim { $out=""; $str=$_[0]; $str=~ s/^\s+//; $str =~ s/\s+$//; $out=$str; return $out; } if($ShID eq "" || $dow eq "" || $slNo eq "" || $locCode eq "") { $invCode=1; #$url = "http://localhost:8081/cfuae/cfend.pl?cod=$invCode"; $url = "http://www.arabdemog.com/cfuae/cfend.pl?cod=$invCode/"; print "Location: $url\n\n"; } if($slNo ne "") { $strSlno="select slNo from cf_entry where slNo='$slNo'"; $strSl=$dbh->prepare($strSlno); $strSl->execute; $intCount=$strSl->rows; if($intCount > 0) { $invCode=2; #$url = "http://localhost:8081/cfuae/cfend.pl?cod=$invCode"; $url = "http://www.arabdemog.com/cfuae/cfend.pl?cod=$invCode"; #$url ="/var/www/vhosts/arabdemog.com/cfuae/cfend.pl?cod=jjj"; print "Location: $url\n\n"; } } if($slNo ne "") { $strPlanDet="select * from cf_slNo where slNo='$slNo'"; $strPlDet=$dbh->prepare($strPlanDet); $strPlDet->execute; while($srl=$strPlDet->fetchrow_hashref()) { $strsrlno=trim("$srl->{'slNo'}"); $strlocCode= trim(uc "$srl->{'locCode'}"); $strdow= trim(uc "$srl->{'DOW'}"); } $nlocCode= trim(uc $locCode); $ndow= trim(uc $dow); if($strsrlno != trim($slNo) || $strlocCode ne trim($nlocCode) || $strdow ne trim($ndow)) { $invCode=3; #$url = "http://localhost:8081/cfuae/cfend.pl?cod=$invCode"; $url = "http://www.arabdemog.com/cfuae/cfend.pl?cod=$invCode"; print "Location: $url\n\n"; } } if($ShID ne "") { $strShprDet="select S.*,N.natName as nName from shpr S, nationality N where S.nationality=N.natCode and ShID=$ShID"; $strShpr=$dbh->prepare($strShprDet); $strShpr->execute; $shidcnt=$strShpr->rows; if($shidcnt > 0) { while($shppr=$strShpr->fetchrow_hashref()) { $fName="$shppr->{'fName'}"; $lName="$shppr->{'lName'}"; $Nationality="$shppr->{'nationality'}"; $Gender="$shppr->{'gender'}"; $Age="$shppr->{'age'}"; $natName="$shppr->{'nName'}"; } } else { $invCode=4; #$url = "http://localhost:8081/cfuae/cfend.pl?cod=$invCode"; $url = "http://www.arabdemog.com/cfuae/cfend.pl?cod=$invCode"; print "Location: $url\n\n"; } } my $questNo = param("qno"); my $visitCode=param('visitCode'); #my $Nationality = param("Nationality"); #my $Gender = param("Gender"); #my $Age = param("Age"); #my $fName = param("fName"); #my $natName = param("natName"); my $genName=""; if($Gender == 1) { $genName='Male'; } elsif($Gender == 2) { $genName='Female'; } $strLOC="select * from cf_location where locCode='$locCode'"; $sthL=$dbh->prepare($strLOC); $sthL->execute; $conCode=0; $conName=""; $cityCode=0; $cityName=""; $locName=""; $typeCode=0; $typeName=""; while ($Locaton=$sthL->fetchrow_hashref()) { $conCode="$Locaton->{'conCode'}"; $conName="$Locaton->{'conName'}"; $cityCode="$Locaton->{'cityCode'}"; $cityName="$Locaton->{'cityName'}"; $locName="$Locaton->{'locName'}"; $typeCode="$Locaton->{'typeCode'}"; $typeName="$Locaton->{'typeName'}"; } my $strQuery="select dcode,dname from cfDOW"; $sthD=$dbh->prepare($strQuery); $sthD->execute; #my $strQuery="select lcode,lname from alkLocation"; #$sthL=$dbh->prepare($strQuery); #$sthL->execute; print < Pan Arab Research Center
$strSlno - $intCount - $url
 Serial No. - $slNo  Shopper Name - $fName $lName   
Country:   City:  
Store Type:   Location:  
Questionnaire No:   Receipt No.  
Date:   Arrival Time(HH:MM):  
Day of Week:   Departure Time(HH:MM):  
Tilt Number:   Amount Spent:  
Was Staff Name Visible:   Yes    NO
Staff Name:   Shopper Id:  
Staff Gender:   Shopper Nationality:  
Shopper Age:   Shopper Gender:  
 
  A. Was the staff well presentable  
 
Staff Appearance Yes No NA Comments
  1. Is the cashier presentable in full uniform (Tie, ID, Badge: Does not apply when cashiers are wearing a promotional T-shirts or Polo´s)  
  1.1 Shirt tucked in and cuffs buttoned  
  1.2 Tie worn properly  
  1.3 ID worn correctly not inside out    
 
Cleanliness Yes No NA Comments
  2. Is the counter clean    
 
Welcome / Greetings Yes No NA Comments
  3.1 Did the cashier smile?    
  3.2 Did the cashier greet the customer (Good morning/afternoon/evening Sir/Madam)    
 
Staff Behaviour Yes No NA Comments
  4. Did the cashier clearly announce the bill amount (Sir/Ma’am you bill is xxx dirhams)    
  5. Did the cashier clearly count the change to the customer (Sir/Madam your change is xxx dirhams) or politely ask the customer to sign the credit card receipt (Sir/Madam please sign the receipt)    
 
Farewell Yes No NA Comments
  6. Did the cashier smile and say "Thank you, Please come again"    
  7. Did the cashier fully complete the current customer before attending to the next customer?    
 
Helpfulness (Rate the following attributes on a scale of 1 - 5) 1. Not at all Helpful 2. 3. 4. 5. Very Helpful NA
8. How helpful is the staff to provide correct location/direction  
 9.   Other Observations:     
 
Upload Receipt :        ( *.jpg )
 
 
X
SunMonTueWedThuFriSat
blk2