There is currently no method in WebGUI::User.pm for getting a user object when you only know the username. I needed that for a project I was working on, so I wrote one (it's pasted below).

It would be stellar if this or something w/ equivalent functionality ended up in WebGUI 7.4.

Thanks!

 

#-------------------------------------------------------------------

=head2 newByUsername ( session, username )

Instanciates a user by username. Returns undef if the username could not be found.

=head3 session

A reference to the current session.

=head3 username

The username to search for.

=cut

sub newByUsername {
  my $class = shift;
  my $session = shift;
  my $username = shift;
  my ($id) = $session->dbSlave->quickArray("select userId from users where username=?",[$username]);
  my $user = $class->new($session, $id);
  return undef if ($user->userId eq "1"); # visitor is never valid for this method
  return undef unless $user->username;
  return $user;

perlDreamer 7/6/2007 11:59 am	I have this prototyped and tested for 7.4.  If it is approved, then I'll commit it.
JT 7/6/2007 12:02 pm	approved for
perlDreamer 7/6/2007 12:08 pm	Committed for 7.4. cap10morgan, please contact me with your real name so that I can give you props in the changelog, for submitting a patch.
cap10morgan 7/6/2007 12:38 pm	My real name is Wes Morgan. I work for U.S. PIRG (http://www.uspirg.org/). Thanks guys!
perlDreamer 7/12/2007 4:37 pm	This RFE has been added to the core, so it can be closed.