Diff for /modules/gci/lonlogin.pm between versions 1.13 and 1.17

version 1.13, 2020/03/18 19:42:53 version 1.17, 2024/04/15 23:57:21
Line 30  package Apache::lonlogin; Line 30  package Apache::lonlogin;
   
 use strict;  use strict;
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::File ();  use Apache::File();
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonauth();  use Apache::lonauth();
Line 83  sub handler { Line 83  sub handler {
     &Apache::loncommon::end_page();      &Apache::loncommon::end_page();
         my $dest = '/adm/roles';          my $dest = '/adm/roles';
         if ($env{'form.role'}) {          if ($env{'form.role'}) {
             $dest .= '?selectrole=1&'.$env{'form.role'}.'=1';               $dest .= '?selectrole=1&'.$env{'form.role'}.'=1';
         }          }
         if ($env{'form.symb'}) {          if ($env{'form.symb'}) {
             $dest .= ($dest =~ /\?/) ? '&' : '?';               $dest .= ($dest =~ /\?/) ? '&' : '?'; 
Line 115  sub handler { Line 115  sub handler {
   
     my $textbrowsers=$r->dir_config('lonTextBrowsers');      my $textbrowsers=$r->dir_config('lonTextBrowsers');
     my $httpbrowser=$ENV{"HTTP_USER_AGENT"};      my $httpbrowser=$ENV{"HTTP_USER_AGENT"};
       
     foreach (split(/\:/,$textbrowsers)) {      foreach (split(/\:/,$textbrowsers)) {
  if ($httpbrowser=~/$_/i) {   if ($httpbrowser=~/$_/i) {
     $env{'form.interface'}='textual';      $env{'form.interface'}='textual';
Line 772  ENDBLOCK Line 772  ENDBLOCK
   
 sub forgotpwdisplay {  sub forgotpwdisplay {
     my (%lt) = @_;      my (%lt) = @_;
     my $prompt_for_resetpw = 1;       my $prompt_for_resetpw = 1;
     if ($prompt_for_resetpw) {      if ($prompt_for_resetpw) {
         return '<br />&nbsp;&nbsp;&nbsp;<a href="/adm/resetpw"><b>'.$lt{'forgotpw'}.'</b></a><br />';          return '<br />&nbsp;&nbsp;&nbsp;<a href="/adm/resetpw"><b>'.$lt{'forgotpw'}.'</b></a><br />';
     }      }

Removed from v.1.13  
changed lines
  Added in v.1.17


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>