[BACK]Return to lonlogin.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / modules / gci

Diff for /modules/gci/lonlogin.pm between versions 1.10 and 1.16

version 1.10, 2010/12/05 18:09:25 version 1.16, 2023/03/22 16:32:51
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 63  sub handler { Line 63  sub handler {
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
   
 # Are we re-routing?  # Are we re-routing?
     if (-e '/home/httpd/html/lon-status/reroute.txt') {      if (-e '/home/httpd/html/lon-status/reroute.txt') {
  &Apache::lonauth::reroute($r);   &Apache::lonauth::reroute($r);
Line 84  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 632  END_OF_BLOCK2 Line 631  END_OF_BLOCK2
  Javascript must be enabled in your web browser in order to use this web site.   Javascript must be enabled in your web browser in order to use this web site.
  </font></noscript>   </font></noscript>
 <p>&nbsp;</p>  <p>&nbsp;</p>
 <input type="hidden" name="imagesuppress"  value="" />  <input type="hidden" name="imagesuppress" value="" />
 <input type="hidden" name="embedsuppress"  value="" />  <input type="hidden" name="embedsuppress" value="" />
 <input type="hidden" name="appletsuppress"  value="" />  <input type="hidden" name="appletsuppress" value="" />
 <input type="hidden" name="fontenhance"  value="" />  <input type="hidden" name="fontenhance" value="" />
 <input type="hidden" name="blackwhite"  value="" />  <input type="hidden" name="blackwhite" value="" />
 <input type="hidden" name="remember"  value="" />  <input type="hidden" name="remember" value="" />
 END_OF_BLOCK3  END_OF_BLOCK3
     } else {      } else {
         $r->print(<<ENDACCESSOPTIONS);          $r->print(<<ENDACCESSOPTIONS);
Line 714  ENDTEXTUAL Line 713  ENDTEXTUAL
    <input type="hidden" name="upass1" value="" />     <input type="hidden" name="upass1" value="" />
    <input type="hidden" name="upass2" value="" />     <input type="hidden" name="upass2" value="" />
    <input type="hidden" name="udom" value="" />     <input type="hidden" name="udom" value="" />
    <input type="hidden" name="imagesuppress"  value="" />     <input type="hidden" name="imagesuppress" value="" />
    <input type="hidden" name="appletsuppress"  value="" />     <input type="hidden" name="appletsuppress" value="" />
    <input type="hidden" name="embedsuppress"  value="" />     <input type="hidden" name="embedsuppress" value="" />
    <input type="hidden" name="fontenhance"  value="" />     <input type="hidden" name="fontenhance" value="" />
    <input type="hidden" name="blackwhite"  value="" />     <input type="hidden" name="blackwhite" value="" />
    <input type="hidden" name="remember"  value="" />     <input type="hidden" name="remember" value="" />
    <input type="hidden" name="localpath" value="$env{'form.localpath'}" />     <input type="hidden" name="localpath" value="$env{'form.localpath'}" />
    <input type="hidden" name="localres" value="$env{'form.localres'}" />     <input type="hidden" name="localres" value="$env{'form.localres'}" />
   </form>    </form>
Line 766  function helpdesk() { Line 765  function helpdesk() {
 ENDSCRIPT  ENDSCRIPT
     }      }
     $contactblock .= <<"ENDBLOCK";      $contactblock .= <<"ENDBLOCK";
      &nbsp;&nbsp;&nbsp;$version      &nbsp;&nbsp;&nbsp;$version
 ENDBLOCK  ENDBLOCK
     return $contactblock;      return $contactblock;
 }  }
   
 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.10  
changed lines
  Added in v.1.16

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