--- loncom/auth/lonlogin.pm 2009/12/01 14:23:49 1.130 +++ loncom/auth/lonlogin.pm 2009/12/04 13:50:48 1.131 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.130 2009/12/01 14:23:49 bisitz Exp $ +# $Id: lonlogin.pm,v 1.131 2009/12/04 13:50:48 jms Exp $ # # Copyright Michigan State University Board of Trustees # @@ -85,13 +85,21 @@ sub handler { if ($env{'form.firsturl'} ne '') { $dest = $env{'form.firsturl'}; } + + my $dom = &Apache::lonnet::default_login_domain(); + my %helpconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],$dom); + + my $loginhelp_page = $helpconfig{'helpsettings'}{'loginhelpurl'}; + if ($loginhelp_page eq '') { + $loginhelp_page = '/adm/loginproblems.html'; + } $r->print( $start_page .'
'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].', '','','','').'
' - .'' - .$end_page + .'' + .$dom.' '.$end_page ); return OK; } @@ -353,6 +361,7 @@ my %lt=&Apache::lonlocal::texthash( 'newuser' => 'New User?', ); # -------------------------------------------------- Change password field name + my $forgotpw = &forgotpwdisplay(%lt); my $loginhelp = &loginhelpdisplay(%lt); @@ -581,7 +590,14 @@ sub loginhelpdisplay { my (%lt) = @_; my $login_help = 1; if ($login_help) { - return ''.$lt{'help'}.''; + my $dom = &Apache::lonnet::default_login_domain(); + my %helpconfig = &Apache::lonnet::get_dom('configuration',['helpsettings'],$dom); + my $loginhelp_url = $helpconfig{'helpsettings'}{'loginhelpurl'}; + if ($loginhelp_url ne '') { + return ''.$lt{'help'}.''; + } else { + return ''.$lt{'help'}.''; + } } return; }