--- loncom/auth/lonlogin.pm 2002/03/23 21:06:54 1.15 +++ 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.15 2002/03/23 21:06:54 www 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'); @@ -108,7 +114,7 @@ ENDHEADER $r->print(<$jsh>); } # ---------------------------------------------------------- Serve rest of page - $r->print(<print(< @@ -132,10 +138,14 @@ ENDHEADER this.document.server.submit(); } +ENDSCRIPT - - + if ($fullgraph) { + $r->print( + '
'); + } + $r->print(< @@ -143,7 +153,8 @@ ENDHEADER - +ENDSERVERFORM + if ($fullgraph) { $r->print(< @@ -171,7 +182,7 @@ ENDHEADER @@ -196,6 +207,9 @@ ENDHEADER
- +
+ENDTOP +} + $r->print(< @@ -223,8 +237,10 @@ ENDHEADER
- +ENDLOGIN + if ($fullgraph) { + $r->print(< @@ -297,10 +313,10 @@ ENDHEADER - - ENDDOCUMENT +} + $r->print(''); return OK; }