--- loncom/auth/lonlogin.pm 2006/11/15 00:53:48 1.84 +++ loncom/auth/lonlogin.pm 2007/01/13 20:39:57 1.86 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.84 2006/11/15 00:53:48 raeburn Exp $ +# $Id: lonlogin.pm,v 1.86 2007/01/13 20:39:57 raeburn 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? @@ -420,24 +419,25 @@ ENDSERVERFORM - + - - - - - - - - - - + + + + + + + + + + - -
  $lt{'access'}
 $lt{'about'}
 $lt{'catalog'}
 $lt{'about'}
 $lt{'catalog'}
 
+ + +