#Search Records & Return Found 3 buttons
# 0 Member ID
# 1 Last Name 
# 2 Business Name 
#elsif ($action eq "search_Records")

 sub search_Records {
    warn("Entered search_Records");
    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';	
	}

    $sortindex = $kind;
	
    restoreOrder($kind);

    #Sort Index For The Three Kinds Of ORDER Supposed to be global.
	
    warn("sortindex =  '$sortindex'");
	
	warn("searchfield =  '$searchfield'");
	
    $stmt = "SELECT * FROM users WHERE $searchfield = ? ORDER BY ? ASC";
#    my $stmt = "SELECT * FROM users WHERE user_id = 15 ORDER BY user_id ASC";
	
	warn("statement =  '$stmt'");	
	
    $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);
	}
}