sub no_user {
        my $query = shift;
        print $query->h1( "Sorry, you must specify a username." );
        print $query->startform();
        print $query->popup_menu( -name=>'user',
                            	  -values=>['main','foo','bar'],
				  -default=>['main']
                                );
	print $query->submit;
}