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

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

version 1.97, 2003/11/01 16:37:21 version 1.99, 2003/11/10 15:15:08
Line 66  sub initlittle { Line 66  sub initlittle {
 # ============================= This gets called at the top of the body section  # ============================= This gets called at the top of the body section
   
 sub menubuttons {  sub menubuttons {
     &Apache::lonlocal::reroutetrans();  
     my $forcereg=shift;      my $forcereg=shift;
     my $target  =shift;      my $target  =shift;
     my $registration=shift;      my $registration=shift;
Line 149  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 164  $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 177  ENDINLINEMENU Line 177  ENDINLINEMENU
 # ====================================== This gets called in the header section  # ====================================== This gets called in the header section
   
 sub registerurl {  sub registerurl {
     &Apache::lonlocal::reroutetrans();  
     my $forcereg=shift;      my $forcereg=shift;
     my $target = shift;      my $target = shift;
     my $result = '';      my $result = '';
Line 213  sub registerurl { Line 212  sub registerurl {
 # =========== and in the body of the document  # =========== and in the body of the document
   
 sub innerregister {  sub innerregister {
     &Apache::lonlocal::reroutetrans();  
     my $forcereg=shift;      my $forcereg=shift;
     my $target = shift;      my $target = shift;
     my $result = '';      my $result = '';
Line 233  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 254  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 655  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 '';
Line 894  sub handler { Line 895  sub handler {
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
     &Apache::lonlocal::clearreroutetrans();  
   
     my $form=&serverform();      my $form=&serverform();
     my $bodytag=&Apache::loncommon::bodytag('Main Menu');      my $bodytag=&Apache::loncommon::bodytag('Main Menu');
     my $function='student';      my $function='student';
Line 928  $utility Line 927  $utility
 $bodytag  $bodytag
 ENDHEADER  ENDHEADER
     $r->print('<table>'.&inlinemenu().'</table>'.$form);      $r->print('<table>'.&inlinemenu().'</table>'.$form);
     $r->print(&Apache::lonlocal::endreroutetrans());  
     $r->print('</body></html>');      $r->print('</body></html>');
     return OK;      return OK;
 }  }
Removed from v.1.97  
changed lines
  Added in v.1.99

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