--- loncom/auth/lonlogin.pm 2002/03/13 19:32:55 1.14 +++ loncom/auth/lonlogin.pm 2002/05/23 20:00:11 1.16 @@ -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.16 2002/05/23 20:00:11 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -46,6 +46,12 @@ sub handler { $r->send_http_header; return OK if $r->header_only; + + &Apache::loncommon::get_unprocessed_cgi + ($ENV{'QUERY_STRING'},['interface']); + + my $fullgraph=($ENV{'form.interface'} ne 'textual'); + my $iconpath= $r->dir_config('lonIconsURL'); my $domain = $r->dir_config('lonDefDomain'); my $role = $r->dir_config('lonRole'); @@ -86,7 +92,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); @@ -104,7 +114,7 @@ ENDHEADER $r->print(<$jsh>); } # ---------------------------------------------------------- Serve rest of page - $r->print(<print(< @@ -128,10 +138,14 @@ ENDHEADER this.document.server.submit(); } +ENDSCRIPT - - + if ($fullgraph) { + $r->print( + '
'); + } + $r->print(< @@ -139,7 +153,8 @@ ENDHEADER - +ENDSERVERFORM + if ($fullgraph) { $r->print(< @@ -167,7 +182,7 @@ ENDHEADER @@ -192,6 +207,9 @@ ENDHEADER
- +
+ENDTOP +} + $r->print(< @@ -219,8 +237,10 @@ ENDHEADER
- +ENDLOGIN + if ($fullgraph) { + $r->print(< @@ -293,10 +313,10 @@ ENDHEADER - - ENDDOCUMENT +} + $r->print(''); return OK; }