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

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

version 1.84, 2006/11/15 00:53:48 version 1.86, 2007/01/13 20:39:57
Line 84  sub handler { Line 84  sub handler {
     my $lonid=$cookies{'lonID'};      my $lonid=$cookies{'lonID'};
     my $cookie;      my $cookie;
     if ($lonid) {      if ($lonid) {
  my $handle=$lonid->value;   my $handle=&LONCAPA::clean_handle($lonid->value);
         $handle=~s/\W//g;  
         my $lonidsdir=$r->dir_config('lonIDsDir');          my $lonidsdir=$r->dir_config('lonIDsDir');
  if (-e "$lonidsdir/$handle.id") {   if (-e "$lonidsdir/$handle.id") {
 # Is there an existing token file?  # Is there an existing token file?
Line 420  ENDSERVERFORM Line 419  ENDSERVERFORM
         
    <!-- A cell that will hold the 'access', 'about', and 'catalog' links -->     <!-- 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="left" bgcolor="$sidebg">     <td valign="top" height="60" align="left" bgcolor="$sidebg">
     <table cellpadding="0" cellspacing="2" border="0">      <table cellpadding="0" cellspacing="2" border="0">
      <tr>       <tr>
       <td>&nbsp;</td>        <td>&nbsp;</td>
       <td><a href="/adm/login?interface=textual"><b>$lt{'access'}</b></a></td>        <td><a href="/adm/login?interface=textual"><b>$lt{'access'}</b></a></td>
     </tr>       </tr>
     <tr>       <tr>
      <td>&nbsp;</td>        <td>&nbsp;</td>
      <td><a href="/adm/about.html"><b>$lt{'about'}</b></a></td>        <td><a href="/adm/about.html"><b>$lt{'about'}</b></a></td>
     </tr>       </tr>
     <tr>       <tr>
      <td>&nbsp;</td>        <td>&nbsp;</td>
      <td><a href="/adm/coursecatalog"><b>$lt{'catalog'}</b></a></td>        <td><a href="/adm/coursecatalog"><b>$lt{'catalog'}</b></a></td>
     </tr>       </tr>
     <tr>       <tr>
       <td colspan="2">&nbsp;</td>        <td colspan="2">&nbsp;</td>
     </tr>       </tr>
    </table>      </table>
      </td>
    <!-- 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>
Removed from v.1.84  
changed lines
  Added in v.1.86

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