--- modules/relate/lonlogin.pm 2012/02/07 14:49:47 1.1 +++ modules/relate/lonlogin.pm 2012/02/11 18:19:26 1.4 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.1 2012/02/07 14:49:47 raeburn Exp $ +# $Id: lonlogin.pm,v 1.4 2012/02/11 18:19:26 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -295,7 +295,7 @@ sub handler { 'helpdesk' => 'Contact Helpdesk', 'forgotpw' => 'Forgot your password?', 'newuser' => 'New User?', - 'learn' => 'Learn Physics includes an online physics course, to which you may receive admission after successfully completing a pre-course test.', + 'learn' => 'Learn Physics includes an online mechanics course, to which you may receive admission after successfully completing a pre-course test.', 'click' => 'Click here to sign up', 'plea' => 'Please log-in', 'supp' => 'Support from NSF, NIH, Google', @@ -386,8 +386,8 @@ ENDSCRIPT alink => "$alink", onload => 'javascript:enableInput();',); - my $css_url = "/css/$domain/login.css"; - $js .= "\n".''."\n"; + my $css_url = "/css/relate/login.css"; + $js .= "\n".''."\n"; $r->print(&Apache::loncommon::start_page($pagetitle,$js, {'redirect' => [$expire,'/adm/roles'], 'add_entries' => \%add_entries, @@ -395,19 +395,82 @@ ENDSCRIPT # ------------------------------------------------------------ Additional Texts $lt{'newto'} = &mt('New to the [_1]Learn Physics[_2] site?','',''); - $lt{'runson'} = &mt('Learn Physics runs on [_1]LON-CAPA[_2] - an open source freeware distributed learning content management and assessment system.', - '',''); + $lt{'runson'} = &mt('Learn Physics runs on [_1]LON-CAPA[_2] - an open source, freeware, distributed learning content management and assessment system.', + '', + ' LC'); $lt{'newhere'} = &mt('New to [_1]Learn Physics[_2]:','',''); $lt{'exist'} = &mt('Existing [_1]Learn Physics[_2] user','',''); $lt{'browser'} = &mt('Your browser must allow [_1]cookies[_2]', - '',''); + '',''); + + my ($contactrow,$domainrow,$serverrow,$loadrow,$userloadrow,$versionrow); + $contactrow = <<"END"; + + + $contactblock + + +END + $domainrow = <<"END"; + + + $lt{'dom'}:  + + +  $domain + + +END + $serverrow = <<"END"; + + + $lt{'serv'}:  + + +  $lonhost ($role) + + +END + if ($loadlim) { + $loadrow = <<"END"; + + + $lt{'load'}:  + + +  $loadpercent $lt{'perc'} + + +END + } + if ($uloadlim) { + $userloadrow = <<"END"; + + + $lt{'userload'}:  + + +  $userloadpercent $lt{'perc'} + + +END + } + if (($version ne '') && ($version ne '')) { + $versionrow = <<"END"; + + + $version + + +END + } # -------------------------------------------- Static cid for prerequisite test - $prereqcid = 'relate_9615072b469884921relatel1'; + my $prereqcid = 'relate_3H121116c19344ff3relatel1'; # ---------------------------------------------------- Warning if no Javascript - my $noscript_warning = '