sub doTLUser {
	if (! Exists($tlu)) {
		$tlu = $mainwindow->Toplevel();
		$tlu->title("User Management");

		$lb = $tlu->BrowseEntry(-label => 'Username',
			-variable => \$search_string,)->pack;
		$lb->bind("<Return>", \&do_search);
		$lb->focus;
		$SQL = "SELECT username FROM user;";
		$sth = &Do_SQL;

		while ($username = $sth->fetchrow_array) {
			push @listnames, $username;
		}
		$sth->finish;
		$lb->insert('end', @listnames);

		$tlu->LabEntry(-label => "First Name",
			-labelPack => [-side => "left", -anchor => "w"],
			-width => 20,
			-textvariable => \$user->{firstname})->pack(-side => "top",
				-anchor => "ne");

		$tlu->LabEntry(-label => "Last Name",
			-labelPack => [-side => "left", -anchor => "w"],
			-width => 20,
			-textvariable => \$user->{lastname})->pack(-side => "top",
				-anchor => "ne");

		$tlu->LabEntry(-label => "Password",
			-labelPack => [-side => "left", -anchor => "w"],
			-width => 20,
			-textvariable => \$user->{password})->pack(-side => "top",
				-anchor => "ne");


		$tlu->Button(-text => "Close",
			-command => sub {$tlu->withdraw})->pack(-side => "bottom");
	} else {
		$tlu->deiconify();
		$tlu->raise();
	}
}

#
# do_search
# Take the variable returned by the BrowseEntry and search for it in the database.
#
sub do_search {
	print "String returned: $search_string\n";
	$SQL  = "SELECT username, firstname, lastname, password FROM user WHERE username =\'$search_string\'";
	$sth = &Do_SQL;
	while ($user = $sth->fetchrow_hashref) {
		print "$user->{firstname}\n";
		return;
	}
	print "User not found so enter data\n";
	return;
}