sub updatetable_167 {
    warn("Entered updatetable_167");
    my $kind = $query->param('kind');
 	my $searchterm = $query->param('searchterm');
	my $result;
	warn("searchterm = '$searchterm'");
    my $searchfield = "";

    if ($kind == 0) {
	  $searchfield = 'user_id';
	} 
	if ($kind == 1) {
   	  $searchfield = 'lastname';	
	}
	if ($kind == 2) {
	  $searchfield = 'business';	
	}
	
    #Sort Index For The Three Kinds Of ORDER Supposed to be global.
	
    $sortindex = $kind;
    warn("sortindex =  '$sortindex'");
	
	warn("searchfield =  '$searchfield'");
	
    my $stmt = "SELECT * FROM users WHERE $searchfield = ? ORDER BY ? ASC";
	
	warn("statement =  '$stmt'");	
	
    my $sth = $dbh->prepare ($stmt) or die "Error Preparing:\n" . $stmt . "\nDBI returned: \n", $dbh->errstr;
    
    $sth->execute($searchterm, $searchfield) or die "Unable to execute query: " . $sth->errstr;	
#    $sth->execute() or die "Unable to execute query: " . $sth->errstr;	

    my $searchResult = $sth->fetchrow_hashref();

    my $count = $sth->rows;

    warn("count = '$count'");
    if ($count == 0) {
	  warn("Failed Search: '$searchfield' equal to '$searchterm' "); 
      my %searchFail = ( SearchError => $kind);
	  my $json = JSON->new; 
	  $json->canonical(1);
	  $json = encode_json(\%searchFail);
  	  print "Content-Type: application/json\n\n";
	  print $json;
	  warn("Finished print 0 count $json");	
      exit(1);
     }  #{"SearchError":0} Good
    else {
	  warn("count = '$count'");
      my $json = JSON->new; 
	  $json->canonical(1);
	  $json = encode_json($searchResult);
	  print "Content-Type: application/json\n\n";
	  print $json;
	  warn("Finished print $json");	
      exit(0);
	}

##</code><code>##


[Mon Mar 19 19:01:04 2018] update_tables.cgi: statement =  'SELECT * FROM users WHERE lastname = ? ORDER BY ? ASC' at update_tables.cgi line 462.

[Mon Mar 19 19:01:04 2018] update_tables.cgi: count = '1' at update_tables.cgi line 486.

[Mon Mar 19 19:01:04 2018] update_tables.cgi: Finished print 

{"DD":"2018-01-30","DP":"2018-12-31","MD":"120.00","MJ":"2017-01-30","address1":"1345 Griffin Ave","address2":"$47","business":"ZI Inc","city":"Deluth","comments":"Another test at the Z enc","email":"tz@voyager.net","forename":"Adam","id":58,"lastname":"Zorky","password":"xxxxxx","phone_cell":"(517) 240-1004","phone_home":"(345) 247-1655","pin":null,"position":"General Member","state":"MN","user_id":2,"username":"bwm2","zip":"38456"} at update_tables.cgi line 492.