#Search Records & Return Found 3 buttons # 0 Member ID # 1 Last Name # 2 Business Name elsif ($action eq "updatetable_167"){ warn("Entered updatetable_167"); my $kind = $query->param('kind'); my $searchterm = $query->param('searchterm'); my @row; warn("searchterm = '$searchterm'"); # $searchterm = "'" + $searchterm + "'"; my $searchfield = ""; if ($kind == 0) { $searchfield = 'user_id'; } if ($kind == 1) { $searchfield = 'lastname'; } if ($kind == 2) { $searchfield = 'business'; } # SELECT * FROM users WHERE lastname = 'DeWitt' my $stmt = "SELECT * FROM users WHERE $searchfield = $searchterm"; warn("statement = '$stmt'"); #my $sth = $dbh->prepare ($stmt); my $sth = $dbh->prepare ($stmt) or die "Error Preparing:\n" . $stmt . "\nDBI returned: \n", $dbh->errstr; $sth->execute () or die "Unable to execute query: " . $sth->errstr; warn("Finished sub search record"); generateResponseHash($sth); }