--- loncom/auth/lonlogin.pm 2002/03/13 19:32:55 1.14 +++ loncom/auth/lonlogin.pm 2002/03/23 21:06:54 1.15 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.14 2002/03/13 19:32:55 albertel Exp $ +# $Id: lonlogin.pm,v 1.15 2002/03/23 21:06:54 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -86,7 +86,11 @@ sub handler { } my $lextkey=hex($lkey); + if ($lextkey>2147483647) { $lextkey-=4294967296; } + my $uextkey=hex($ukey); + if ($uextkey>2147483647) { $uextkey-=4294967296; } + my $logtoken=Apache::lonnet::reply( 'tmpput:'.$ukey.$lkey.'&'.$firsturl, $lonhost);