loncom/auth/lonlogin.pm - diff

Return to lonlogin.pm CVS log

Up to [LON-CAPA] / loncom / auth

-version 1.151, 2012/04/18 18:57:34
+version 1.152, 2012/08/27 00:52:45
  Line 374  ENDSCRIPT
      my $forgotpw = &forgotpwdisplay(%lt);
      $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
      {
- Line 656  sub forgotpwdisplay {
+ Line 658  sub forgotpwdisplay {
      }
      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 {
      my ($linkname) = @_;