--- loncom/auth/lonlogin.pm 2002/03/23 21:06:54 1.15 +++ loncom/auth/lonlogin.pm 2002/05/25 22:15:03 1.18 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.15 2002/03/23 21:06:54 www Exp $ +# $Id: lonlogin.pm,v 1.18 2002/05/25 22:15:03 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -46,6 +46,14 @@ sub handler { $r->send_http_header; return OK if $r->header_only; + + &Apache::loncommon::get_unprocessed_cgi + ($ENV{'QUERY_STRING'},['interface']); + + $ENV{'form.interface'}=~s/\W//g; + + 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'); @@ -108,7 +116,7 @@ ENDHEADER $r->print(<$jsh>); } # ---------------------------------------------------------- Serve rest of page - $r->print(<print(< @@ -132,18 +140,24 @@ ENDHEADER this.document.server.submit(); } +ENDSCRIPT - - + if ($fullgraph) { + $r->print( + '
'); + } + $r->print(< + - +ENDSERVERFORM + if ($fullgraph) { $r->print(< @@ -171,7 +185,7 @@ ENDHEADER @@ -196,6 +210,9 @@ ENDHEADER
- +
+ENDTOP +} + $r->print(< @@ -223,8 +240,10 @@ ENDHEADER
- +ENDLOGIN + if ($fullgraph) { + $r->print(< @@ -297,10 +316,10 @@ ENDHEADER - - ENDDOCUMENT +} + $r->print(''); return OK; }