--- loncom/auth/lonlogin.pm 2006/09/28 00:59:02 1.81
+++ loncom/auth/lonlogin.pm 2006/12/05 02:55:56 1.85
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Login Screen
#
-# $Id: lonlogin.pm,v 1.81 2006/09/28 00:59:02 albertel Exp $
+# $Id: lonlogin.pm,v 1.85 2006/12/05 02:55:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -84,8 +84,7 @@ sub handler {
my $lonid=$cookies{'lonID'};
my $cookie;
if ($lonid) {
- my $handle=$lonid->value;
- $handle=~s/\W//g;
+ my $handle=&LONCAPA::clean_handle($lonid->value);
my $lonidsdir=$r->dir_config('lonIDsDir');
if (-e "$lonidsdir/$handle.id") {
# Is there an existing token file?
@@ -150,8 +149,6 @@ ENDFAILED
}
my $role = $r->dir_config('lonRole');
my $loadlim = $r->dir_config('lonLoadLim');
- my $servadm = $r->dir_config('lonAdmEMail');
- my $sysadm = $r->dir_config('lonSysEMail');
my $lonhost = $r->dir_config('lonHostID');
my $tabdir = $r->dir_config('lonTabDir');
my $include = $r->dir_config('lonIncludes');
@@ -254,7 +251,6 @@ ENDFAILED
Please attempt to login to one of the following servers:
$spares -If the problem persists, please contact $servadm.