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

Diff for /loncom/auth/lonlogin.pm between versions 1.109 and 1.111

version 1.109, 2008/12/01 15:03:43 version 1.111, 2008/12/10 10:14:55
Line 253  my $vlink= Line 253  my $vlink=
 my $alink=&Apache::loncommon::designparm('login.alink',$domain);  my $alink=&Apache::loncommon::designparm('login.alink',$domain);
 my $mainbg=  my $mainbg=
 ($fullgraph?&Apache::loncommon::designparm('login.mainbg',$domain):'#FFFFFF');  ($fullgraph?&Apache::loncommon::designparm('login.mainbg',$domain):'#FFFFFF');
 my $sidebg=  
 ($fullgraph?&Apache::loncommon::designparm('login.sidebg',$domain):'#FFFFFF');  
 my $textcol =   my $textcol = 
 ($fullgraph?&Apache::loncommon::designparm('login.textcol',$domain):'#000000');  ($fullgraph?&Apache::loncommon::designparm('login.textcol',$domain):'#000000');
 my $bgcol =  my $bgcol =
Line 348  my %lt=&Apache::lonlocal::texthash( Line 346  my %lt=&Apache::lonlocal::texthash(
   'helpdesk' => 'Contact Helpdesk',    'helpdesk' => 'Contact Helpdesk',
   'forgotpw' => 'Forgot password?',    'forgotpw' => 'Forgot password?',
   'newuser'  => 'New User?',    'newuser'  => 'New User?',
   'options_headline' => 'Select Accessibility Options',    );
   'sprs_img' => 'Suppress rendering of images',  
   'sprs_applet' => 'Suppress Java applets',  
   'sprs_embed' => 'Suppress rendering of embedded multimedia',  
   'sprs_font' => 'Increase font size',  
   'sprs_blackwhite' => 'Switch to black and white mode',  
   'remember' => 'Remember these settings for next login');  
 # -------------------------------------------------- Change password field name  # -------------------------------------------------- Change password field name
 my $forgotpw = &forgotpwdisplay(%lt);  my $forgotpw = &forgotpwdisplay(%lt);
 my $loginhelp = &loginhelpdisplay(%lt);  my $loginhelp = &loginhelpdisplay(%lt);
Line 461  HEADER Line 453  HEADER
         $forgotpw<br /><br />          $forgotpw<br /><br />
         $newuserlink<br />          $newuserlink<br />
         $coursecatalog<br /><br />          $coursecatalog<br /><br />
         <a href="/adm/about.html"><b>$lt{'about'}</b></a><br />          <a href="/adm/about.html"><b>$lt{'about'}</b></a><br/>
         $helpdeskscript   $contactblock
 </div>  </div>
   
 <div class="LC_loginpage_space">&nbsp;</div>  <div class="LC_loginpage_space">&nbsp;</div>
Line 476  if ($fullgraph) { Line 468  if ($fullgraph) {
 $r->print(<<ENDDOCUMENT);  $r->print(<<ENDDOCUMENT);
      <table border=0 cellspacing=0 cellpadding=0>       <table border=0 cellspacing=0 cellpadding=0>
       <tr>        <tr>
        <td bgcolor="$sidebg" align="left" valign="top">         <td  align="left" valign="top">
         <small><b>&nbsp;&nbsp;&nbsp;$lt{'dom'}:&nbsp;</b></small>          <small><b>&nbsp;&nbsp;&nbsp;$lt{'dom'}:&nbsp;</b></small>
        </td>         </td>
        <td bgcolor="$sidebg" align="left" valign="top">         <td  align="left" valign="top">
         <small><tt>&nbsp;$domain</tt></small>          <small><tt>&nbsp;$domain</tt></small>
        </td>         </td>
       </tr>        </tr>
       <tr>        <tr>
        <td bgcolor="$sidebg" align="left" valign="top">         <td  align="left" valign="top">
         <small><b>&nbsp;&nbsp;&nbsp;$lt{'serv'}:&nbsp;</b></small>          <small><b>&nbsp;&nbsp;&nbsp;$lt{'serv'}:&nbsp;</b></small>
        </td>         </td>
        <td bgcolor="$sidebg" align="left" valign="top">         <td align="left" valign="top">
         <small><tt>&nbsp;$lonhost ($role)</tt></small>          <small><tt>&nbsp;$lonhost ($role)</tt></small>
        </td>         </td>
       </tr>        </tr>
       <tr>        <tr>
        <td bgcolor="$sidebg" align="left" valign="top">         <td align="left" valign="top">
         <small><b>&nbsp;&nbsp;&nbsp;$lt{'load'}:&nbsp;</b></small>          <small><b>&nbsp;&nbsp;&nbsp;$lt{'load'}:&nbsp;</b></small>
        </td>         </td>
        <td bgcolor="$sidebg" align="left" valign="top">         <td align="left" valign="top">
         <small><tt>&nbsp;$loadpercent $lt{'perc'}</tt></small>          <small><tt>&nbsp;$loadpercent $lt{'perc'}</tt></small>
        </td>         </td>
       </tr>        </tr>
       <tr>        <tr>
        <td bgcolor="$sidebg" align="left" valign="top">         <td align="left" valign="top">
         <small><b>&nbsp;&nbsp;&nbsp;$lt{'userload'}:&nbsp;</b></small>          <small><b>&nbsp;&nbsp;&nbsp;$lt{'userload'}:&nbsp;</b></small>
        </td>         </td>
        <td bgcolor="$sidebg" align="left" valign="top">         <td align="left" valign="top">
         <small><tt>&nbsp;$userloadpercent $lt{'perc'}</tt></small>          <small><tt>&nbsp;$userloadpercent $lt{'perc'}</tt></small>
        </td>         </td>
       </tr>        </tr>
      </table>       </table>
        
     $contactblock  
   
  </div>   </div>
   
 <script type="text/javascript">  <script type="text/javascript">
Line 539  sub contactdisplay { Line 528  sub contactdisplay {
                          '<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.$servadm.'</tt><br />&nbsp;<br />';                           '<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.$servadm.'</tt><br />&nbsp;<br />';
     }      }
     if ($showhelpdesk) {      if ($showhelpdesk) {
         $contactblock .= '<b>&nbsp;&nbsp;&nbsp;<a href="javascript:helpdesk()"><font size="+1">'.$lt->{'helpdesk'}.'</font></a></b><br />';          $contactblock .= '<b><a href="javascript:helpdesk()">'.$lt->{'helpdesk'}.'</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">
Removed from v.1.109  
changed lines
  Added in v.1.111

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