--- modules/relate/lonlogin.pm 2012/02/07 14:49:47 1.1 +++ modules/relate/lonlogin.pm 2012/06/05 12:51:03 1.11 @@ -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.11 2012/06/05 12:51:03 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -266,7 +266,7 @@ sub handler { .'' .'

'.&mt('The LearningOnline Network with CAPA').'

' .'' - .'

'.&mt("This Learn Physics server is temporarily not available for login.").'

' + .'

'.&mt("This Mechanics Online course server is temporarily not available for login.").'

' .'' .'' ); @@ -277,7 +277,7 @@ sub handler { $servadm=~s/\,/\
/g; # ----------------------------------------------------------------------- Texts - my $pagetitle = 'Learn Physics Login'; # Do not localize. + my $pagetitle = 'Mechanics Online Log-in'; # Do not localize. my %lt=&Apache::lonlocal::texthash( 'needu' => 'You must provide a username', 'needp' => 'You must provide a password', @@ -293,14 +293,16 @@ sub handler { 'serv' => 'Server', 'servadm' => 'Server Administration', 'helpdesk' => 'Contact Helpdesk', + 'exist' => 'Existing user - sign-up with existing username', + 'create' => 'New user - create username and sign-up', + 'already' => 'Already signed up?', '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.', - 'click' => 'Click here to sign up', - 'plea' => 'Please log-in', - 'supp' => 'Support from NSF, NIH, Google', - 'note' => 'Please Note:', - 'jscr' => 'Javascript must be enabled in your web browser in order to use this web site.', + 'click' => 'Click here to sign up', + 'plea' => 'Please log-in', + 'supp' => 'Support from NSF, NIH, Google', + 'note' => 'Please Note:', + 'jscr' => 'Javascript must be enabled in your web browser in order to use this web site.', ); # ----------------------------------------------------------- Front page design my $font=&Apache::loncommon::designparm('login.font',$domain); @@ -319,6 +321,7 @@ sub handler { # ---------------------------------------- Assemble Javascript to put in + my $js = (< @@ -370,6 +373,16 @@ function enableInput() { return; } +function SubmitSignUp() { + if (document.signup.usertype[0].checked == true) { + document.signup.action = '/adm/createaccount'; + } + if (document.signup.usertype[1].checked == true) { + document.signup.action = '/adm/selfenroll'; + } + return true; +} + // ]]> @@ -386,28 +399,92 @@ 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, 'only_body' => 1,})); # ------------------------------------------------------------ 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{'newhere'} = &mt('New to [_1]Learn Physics[_2]:','',''); - $lt{'exist'} = &mt('Existing [_1]Learn Physics[_2] user','',''); + $lt{'newto'} = &mt('New to the [_1]Mechanics Online[_2] site?','',''); + $lt{'mech'} = &mt('Mechanics Online is a Newtonian Mechanics course developed by Professor David Pritchard and the RELATE education group at MIT. [_1]Learn more[_2]','',''); + $lt{'runson'} = &mt('Mechanics Online runs on [_1]LON-CAPA[_2] - an open source, freeware, distributed learning content management and assessment system.', + '', + ''); + $lt{'newhere'} = &mt('New to [_1]Mechanics Online[_2]:','',''); $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"; + + + + LC $version + + +END + } # -------------------------------------------- Static cid for prerequisite test - $prereqcid = 'relate_9615072b469884921relatel1'; + my $prereqcid = 'relate_2764113e81b9e4f0crelatel1'; # ---------------------------------------------------- Warning if no Javascript - my $noscript_warning = '