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

Diff for /loncom/interface/lonmenu.pm between versions 1.98 and 1.99

version 1.98, 2003/11/07 23:22:21 version 1.99, 2003/11/10 15:15:08
Line 148  ENDRELOAD Line 148  ENDRELOAD
 <script>  <script>
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 </script>  </script>
 <table bgcolor="$pgbg" width="100%" border="0" cellpadding="3" cellspacing="3">  <font face="Arial,Helvetica,sans-serif"><table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">
 <tr>  <tr>
 <td bgcolor="$tabbg">  <td bgcolor="$tabbg">
 <a href="/adm/menu" target="_top"><font color="$font">$lt{'main'}</font></a>  <a href="/adm/menu" target="_top"><font color="$font">$lt{'main'}</font></a>
Line 163  $navmaps Line 163  $navmaps
 <b>LON-CAPA</b></td>  <b>LON-CAPA</b></td>
 </tr>  </tr>
 </table>  </table>
   </font>
 <script>  <script>
 // END LON-CAPA Internal  // END LON-CAPA Internal
 </script>  </script>
Line 230  sub innerregister { Line 231  sub innerregister {
   
     my $newmail='';      my $newmail='';
     if ($noremote) {      if ($noremote) {
  $newmail='<table bgcolor="'.$pgbg.'" border="0" cellspacing="3" cellpadding="3" width="100%"><tr><td bgcolor="'.$tabbg.'">';   $newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">';
     }      }
     if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {      if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {
  my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'});   my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'});
Line 251  sub innerregister { Line 252  sub innerregister {
                           'swmenu.setstatus("you have","messages");');                            'swmenu.setstatus("you have","messages");');
     }      }
     if ($noremote) {      if ($noremote) {
  $newmail.='</td></tr></table>';   $newmail.='</td></tr></table></font>';
     }      }
     my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');      my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
     my $tablestart=($noremote?'<table bgcolor="'.$pgbg.'" border="0" cellspacing="3" cellpadding="3" width="100%">':'');      my $tablestart=($noremote?'<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%">':'');
     my $tableend=($noremote?'</table>':'');      my $tableend=($noremote?'</table></font>':'');
 # =============================================================================  # =============================================================================
 # ============================ This is for URLs that actually can be registered  # ============================ This is for URLs that actually can be registered
     if (($ENV{'request.noversionuri'}!~/^\/(res\/)*adm\//) || ($forcereg)) {      if (($ENV{'request.noversionuri'}!~/^\/(res\/)*adm\//) || ($forcereg)) {
Line 652  sub switch { Line 653  sub switch {
        if ($nobreak==2) { return ''; }         if ($nobreak==2) { return ''; }
        my $text=$top.' '.$bot;         my $text=$top.' '.$bot;
        $text=~s/\s*\-\s*//gs;         $text=~s/\s*\-\s*//gs;
          my $pic=
      '<img border="0" alt="'.$text.'" src="/res/adm/pages/'.$img.'" />';
        if ($nobreak==3) {         if ($nobreak==3) {
    $inlineremote[10*$row+$col]="\n".     $inlineremote[10*$row+$col]="\n".
      '<td width="50%" colspan="2" align="right" bgcolor="'.$tabbg.'">'.       '<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.
      '<a href="javascript:'.$act.';"><font color="'.$font.'" size="+1">'.$text.       '</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.
      '</font></a></td></tr>';       '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
        } elsif ($nobreak) {         } elsif ($nobreak) {
    $inlineremote[10*$row+$col]="\n<tr>".     $inlineremote[10*$row+$col]="\n<tr>".
      '<td width="50%" colspan="2" align="left" bgcolor="'.$tabbg.'">'.       '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.
      '<a href="javascript:'.$act.';"><font color="'.$font.'" size="+1">'.$text.       '<a href="javascript:'.$act.';">'.$pic.
      '</font></a></td>';       '</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></td>';
        } else {         } else {
    $inlineremote[10*$row+$col]="\n<tr>".     $inlineremote[10*$row+$col]="\n<tr>".
      '<td width="50%" colspan="4" align="left" bgcolor="'.$tabbg.'">'.       '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.
      '<a href="javascript:'.$act.';"><font color="'.$font.'">'.$desc.       '<a href="javascript:'.$act.';">'.$pic.
      '</font></a></td></tr>';              '</a></td><td colspan="3"><font color="'.$font.'">'.$desc.
        '</font></td></tr>';       
        }         }
    }     }
     return '';      return '';
Removed from v.1.98  
changed lines
  Added in v.1.99

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