#!/usr/bin/perl -w use CGI qw/:all/; use CGI::Carp qw(fatalsToBrowser); use DBI; my $locCode=param("locCode"); my $username=param("user"); my $userpassword=param("pass"); my $location =param("location"); my $frmType = param("frmType"); my $visitCode=param('visitCode'); 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 $strQuery="select ShID,fName,nationality,N.natName,gender,age,country from shopper S, nationality N where S.nationality=N.natCode and username='$username' and userpassword='$userpassword' and forCF='T'"; $sthN=$dbh->prepare($strQuery); $sthN->execute or die "Couldn't execute statement: " . $dbh->errstr; #$intCount=$sthN->rows; $intCount=0; my @Sha; while (@Sh=$sthN->fetchrow_array()) { $intCount=1; $Sha[0]="$Sh[0]"; $Sha[1]="$Sh[1]"; $Sha[2]="$Sh[2]"; $Sha[3]="$Sh[3]"; $Sha[4]="$Sh[4]"; $Sha[5]="$Sh[5]"; $Sha[6]="$Sh[6]"; } $sthVisit=$dbh->prepare("select hasVisited, hasMailed from cf_visitDetail where visitCode='$visitCode'"); $sthVisit->execute or die "Couldn't execute statement: " . $dbh->errstr; while ($hasvisited=$sthVisit->fetchrow_hashref()) { $visited="$hasvisited->{'hasVisited'}"; $mailed="$hasvisited->{'hasMailed'}"; } print < blk1