--- loncom/auth/lonlogin.pm 2002/03/13 19:32:55 1.14 +++ loncom/auth/lonlogin.pm 2002/05/25 21:46:15 1.17 @@ -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.17 2002/05/25 21:46:15 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,18 +138,24 @@ ENDHEADER this.document.server.submit(); } +ENDSCRIPT - - + if ($fullgraph) { + $r->print( + '
'); + } + $r->print(< + - +ENDSERVERFORM + if ($fullgraph) { $r->print(< @@ -167,7 +183,7 @@ ENDHEADER @@ -192,6 +208,9 @@ ENDHEADER
- +
+ENDTOP +} + $r->print(< @@ -219,8 +238,10 @@ ENDHEADER
- +ENDLOGIN + if ($fullgraph) { + $r->print(< @@ -293,10 +314,10 @@ ENDHEADER - - ENDDOCUMENT +} + $r->print(''); return OK; }