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);
	}