#==================================
#Set up "order by clause" depending on searchfield
sub restoreOrder{ 
    my $searchIndex = shift;  
   
    if ($searchIndex == 0)  {
       $searchfield = "user_id"; 

     }
    elsif ($searchIndex == 1)  {
       $searchfield = "lastname";

     }
    elsif ($searchIndex == 1)  {
	   $searchfield =  "business";
	}

   warn("in restoreOrder index = '$searchIndex'");
	
	my $stmt = "alter table users order by $searchfield asc";
	
    my $sth = $dbh->prepare ($stmt) or die "Error Preparing:\n" . $stmt . "\nDBI returned: \n", $dbh->errstr;	
	
	DBI->trace(3,$dbitracelog); 
	
	$sth->execute() or die "Unable to execute query: " . $sth->errstr;	

}