--- loncom/auth/lonlogin.pm 2003/09/11 20:54:11 1.49 +++ loncom/auth/lonlogin.pm 2003/09/16 18:15:43 1.50 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.49 2003/09/11 20:54:11 www Exp $ +# $Id: lonlogin.pm,v 1.50 2003/09/16 18:15:43 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -41,6 +41,7 @@ use Apache::File (); use Apache::lonnet(); use Apache::loncommon(); use Apache::lonauth(); +use Apache::lonlocal; sub handler { my $r = shift; @@ -60,6 +61,10 @@ sub handler { ($ENV{'QUERY_STRING'}.'&'.$ENV{'request.querystring'}, ['interface','username','domain','firsturl','localpath','localres']); +# -------------------------------------------------------------------- Language + + &Apache::lonlocal::get_language_handle(); + # ----------------------------------------------------------- Process Interface $ENV{'form.interface'}=~s/\W//g;