sub doUserSearch {
	debug("+doUserSearch");
	my $uname = $state->{srcUname};
	debug("$uname");
	my $SQL  = "SELECT username, firstname, lastname, password FROM user WHERE username =\'$uname\'";
	my $sth  = $dbh->prepare( $SQL );
	$sth->execute;
	my $in = $sth->fetchrow_hashref;
	if ( $in->{username} ne $uname ) {
		# user does not exist so clear values and set up a new username value.
		$user->{firstname} = "";
		$user->{lastname}  = "";
		$user->{password}  = "";
		$user->{username}  = $uname;
	} else {
		$user->{firstname} = $in->{firstname};
		$user->{lastname}  = $in->{lastname};
		$user->{password}  = $in->{password};
		$user->{username}  = $in->{username};
	}
	debug("$user->{username} $user->{firstname} $user->{lastname} $user->{password}");
	$nb->raise('page1');
	debug("-doUserSearch");
}