|
From: Chris W. <la...@us...> - 2001-11-13 04:03:27
|
Update of /cvsroot/openinteract/OpenInteract/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv25618
Modified Files:
Auth.pm
Log Message:
updated so we check to see if the login exists before trying to fetch by it (duh)
Index: Auth.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Auth.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Auth.pm 2001/11/06 14:30:28 1.12
--- Auth.pm 2001/11/13 04:03:24 1.13
***************
*** 140,144 ****
--- 140,146 ----
my $login_name = $apr->param( $login_field );
+ return undef unless ( $login_name );
$R->DEBUG && $R->scrib( 1, "Found login name from form: ($login_name)" );
+
my $user = eval { $R->user->fetch_by_login_name( $login_name,
{ return_single => 1,
|