version 1.151, 2012/04/18 18:57:34
|
version 1.152, 2012/08/27 00:52:45
|
Line 374 ENDSCRIPT
|
Line 374 ENDSCRIPT
|
|
|
my $forgotpw = &forgotpwdisplay(%lt); |
my $forgotpw = &forgotpwdisplay(%lt); |
$forgotpw .= '<br />' if $forgotpw; |
$forgotpw .= '<br />' if $forgotpw; |
my $loginhelp = &loginhelpdisplay($authdomain,%lt); |
my $loginhelp = &Apache::lonauth::loginhelpdisplay($authdomain); |
$loginhelp .= '<br />' if $loginhelp; |
if ($loginhelp) { |
|
$loginhelp = '<a href="'.$loginhelp.'">'.$lt{'help'}.'</a><br />'; |
|
} |
|
|
# ---------------------------------------------------- Serve out DES JavaScript |
# ---------------------------------------------------- Serve out DES JavaScript |
{ |
{ |
Line 656 sub forgotpwdisplay {
|
Line 658 sub forgotpwdisplay {
|
} |
} |
return; |
return; |
} |
} |
|
|
sub loginhelpdisplay { |
|
my ($authdomain,%lt) = @_; |
|
my $login_help = 1; |
|
if ($login_help) { |
|
my $dom = $authdomain; |
|
if ($dom eq '') { |
|
$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 '<a href="'.$loginhelp_url.'">'.$lt{'help'}.'</a>'; |
|
} else { |
|
return '<a href="/adm/loginproblems.html">'.$lt{'help'}.'</a>'; |
|
} |
|
} |
|
return; |
|
} |
|
|
|
sub coursecatalog_link { |
sub coursecatalog_link { |
my ($linkname) = @_; |
my ($linkname) = @_; |