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

Diff for /loncom/auth/lonlogin.pm between versions 1.83 and 1.84

version 1.83, 2006/11/10 02:02:57 version 1.84, 2006/11/15 00:53:48
Line 302  my %lt=&Apache::lonlocal::texthash( Line 302  my %lt=&Apache::lonlocal::texthash(
   'perc' => 'percent',    'perc' => 'percent',
   'load' => 'Load',    'load' => 'Load',
                   'userload' => 'User Load',                    'userload' => 'User Load',
                   'about'  => 'aboutlon.gif',                    'about'  => 'About LON-CAPA',
                   'access' => 'accessbutton.gif',                    'access' => 'Accessibility Options',
                     'catalog' => 'Course Catalog',
   'auth' => 'userauthentication.gif',    'auth' => 'userauthentication.gif',
   'log' => 'Log in',    'log' => 'Log in',
   'help' => 'Help',    'help' => 'Log-in Help',
   'serv' => 'Server',    'serv' => 'Server',
                   'helpdesk' => 'Contact Helpdesk',                    'helpdesk' => 'Contact Helpdesk',
                   'forgotpw' => 'Forgot password?');                    'forgotpw' => 'Forgot password?');
 # -------------------------------------------------- Change password field name  # -------------------------------------------------- Change password field name
     my $now=time;      my $now=time;
     my $forgotpw = &forgotpwdisplay(\%lt);      my $forgotpw = &forgotpwdisplay(%lt);
       my $loginhelp = &loginhelpdisplay(%lt);
 # ---------------------------------------------------------- Serve rest of page  # ---------------------------------------------------------- Serve rest of page
     $r->print(<<ENDSCRIPT);      $r->print(<<ENDSCRIPT);
   
Line 416  ENDSERVERFORM Line 418  ENDSERVERFORM
   </tr>    </tr>
   <tr>    <tr>
         
    <!-- A cell that will hold the 'access' and 'about' buttons -->     <!-- A cell that will hold the 'access', 'about', and 'catalog' links -->
    <!-- Row 3 Column 1 -->     <!-- Row 3 Column 1 -->
    <td valign="top" height=60 align="center" bgcolor="$sidebg">     <td valign="top" height=60 align="left" bgcolor="$sidebg">
     <a href="/adm/login?interface=textual"><img src="$iconpath/$lt{'access'}" border=0 alt="Accessibility Options" /></a>      <table cellpadding="0" cellspacing="2" border="0">
     <br />       <tr>
     <a href="/adm/about.html"><img src="$iconpath/$lt{'about'}" border=0 alt="About LON-CAPA" /></a>        <td>&nbsp;</td>
    </td>        <td><a href="/adm/login?interface=textual"><b>$lt{'access'}</b></a></td>
       </tr>
       <tr>
        <td>&nbsp;</td>
        <td><a href="/adm/about.html"><b>$lt{'about'}</b></a></td>
       </tr>
       <tr>
        <td>&nbsp;</td>
        <td><a href="/adm/coursecatalog"><b>$lt{'catalog'}</b></a></td>
       </tr>
       <tr>
         <td colspan="2">&nbsp;</td>
       </tr>
      </table>
    <!-- The shaded space between the two main columns -->     <!-- The shaded space between the two main columns -->
    <!-- Row 3 Column 2 -->     <!-- Row 3 Column 2 -->
    <td width=27 height=60 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td>     <td width=27 height=60 background="$iconpath/fillleft.gif"><img src="$iconpath/fillleft.gif" alt="" /></td>
Line 489  ENDNOOPT Line 503  ENDNOOPT
        <td bgcolor="$mainbg"><input type="text" name="udom" size="10" value="$authdomain" /></td>         <td bgcolor="$mainbg"><input type="text" name="udom" size="10" value="$authdomain" /></td>
       </tr>        </tr>
       <tr>        <tr>
        <td bgcolor="$mainbg">&nbsp;&nbsp;&nbsp;<a href="/adm/loginproblems.html">$lt{'help'}</a></td>         <td bgcolor="$mainbg">&nbsp;</td>
        <td bgcolor="$mainbg" valign="bottom" align="center">         <td bgcolor="$mainbg" valign="bottom" align="center">
         <br />          <br />
         <input type="submit" value="$lt{'log'}" />          <input type="submit" value="$lt{'log'}" />
Line 497  ENDNOOPT Line 511  ENDNOOPT
       </tr>        </tr>
       <tr>        <tr>
        <td bgcolor="$mainbg" valign="bottom" align="left" colspan="2">         <td bgcolor="$mainbg" valign="bottom" align="left" colspan="2">
           $loginhelp
         $forgotpw          $forgotpw
        </td>         </td>
       </tr>        </tr>
Line 610  sub contactdisplay { Line 625  sub contactdisplay {
         $showhelpdesk = 1;          $showhelpdesk = 1;
     }      }
     if ($showhelpdesk) {      if ($showhelpdesk) {
         $contactblock .= '<b>&nbsp;&nbsp;&nbsp;<a href="javascript:helpdesk()">'.$$lt{'helpdesk'}.'</a></b><br />';          $contactblock .= '<b>&nbsp;&nbsp;&nbsp;<a href="javascript:helpdesk()"><font size="+1">'.$lt->{'helpdesk'}.'</font></a></b><br />';
         my $thisurl = &escape('/adm/login');          my $thisurl = &escape('/adm/login');
         $$helpdeskscript = <<"ENDSCRIPT";          $$helpdeskscript = <<"ENDSCRIPT";
 <script type="text/javascript">  <script type="text/javascript">
Line 633  ENDBLOCK Line 648  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">'.$lt->{'forgotpw'}.'</a></b><br /><br />';          return '<br />&nbsp;&nbsp;&nbsp;<a href="/adm/resetpw">'.$lt{'forgotpw'}.'</a></b><br /><br />';
       }
       return;
   }
   
   sub loginhelpdisplay {
       my (%lt) = @_;
       my $login_help = 1;
       if ($login_help) {
           return '&nbsp;&nbsp;&nbsp;<a href="/adm/loginproblems.html">'.$lt{'help'}.'</a></b>';
     }      }
     return;      return;
 }  }
    
   
 1;  1;
 __END__  __END__
Removed from v.1.83  
changed lines
  Added in v.1.84

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