[Openinteract-commits] CVS: OpenInteract/OpenInteract Auth.pm,1.12,1.13

[Chris W. <la...@us...>]

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,