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

Diff for /loncom/interface/lonmenu.pm between versions 1.91 and 1.94

version 1.91, 2003/09/17 23:40:25 version 1.94, 2003/09/23 01:55:41
Line 351  s&2&3&forw.gif&forward&&gopost('/adm/fli Line 351  s&2&3&forw.gif&forward&&gopost('/adm/fli
 c&6&3  c&6&3
 c&8&1  c&8&1
 c&8&2  c&8&2
 s&8&3&prt.gif&prepare&printout&gopost('/adm/printout',currentURL)&Prepare a printable document  
 s&9&1&sbkm.gif&set&bookmark&set_bookmark()&Set a bookmark for this resource&2  s&9&1&sbkm.gif&set&bookmark&set_bookmark()&Set a bookmark for this resource&2
 s&9&3&anot.gif&anno-&tations&annotate()&Make notes and annotations about this resource&2  s&9&3&anot.gif&anno-&tations&annotate()&Make notes and annotations about this resource&2
 ENDMENUITEMS  ENDMENUITEMS
Line 641  sub switch { Line 640  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;
        $inlineremote[10*$row+$col]="\n".($nobreak?' ':'<br />').         if ($nobreak) {
         '<a href="javascript:'.$act.';">'.$text.'</a> '.     $inlineremote[10*$row+$col]=
         ($nobreak?'':$desc);         '<a href="javascript:'.$act.';">'.$text.'</a>';
          } else {
      $inlineremote[10*$row+$col]="\n<br />".
          '<a href="javascript:'.$act.';">'.$desc.'</a>';
          }
    } else {     } else {
 # Inline Remote  # Inline Remote
        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;
        $inlineremote[10*$row+$col]="\n".         if ($nobreak==3) {
          ($nobreak==3?'<td width="50%" colspan="2" align="right"':'<tr><td').     $inlineremote[10*$row+$col]="\n".
          ' bgcolor="'.$tabbg.'"'.($nobreak==1?' width="50%" colspan="2"':'').       '<td width="50%" colspan="2" align="right" bgcolor="'.$tabbg.'">'.
      '"><a href="javascript:'.$act.';"><font color="'.$font.'"'.       '<a href="javascript:'.$act.';"><font color="'.$font.'" size="+1">'.$text.
           ($nobreak?' size="+1"':'').       '</font></a></td></tr>';
      '>'.$text.'</font></a></td>'.         } elsif ($nobreak) {
      ($nobreak?'':'<td colspan="3" width="80%"><font color="'.$font.'" size="-1">'.$desc.'</font>').($nobreak!=1?'</tr>':'');     $inlineremote[10*$row+$col]="\n<tr>".
        '<td width="50%" colspan="2" align="left" bgcolor="'.$tabbg.'">'.
        '<a href="javascript:'.$act.';"><font color="'.$font.'" size="+1">'.$text.
        '</font></a></td>';
          } else {
      $inlineremote[10*$row+$col]="\n<tr>".
        '<td width="50%" colspan="4" align="left" bgcolor="'.$tabbg.'">'.
        '<a href="javascript:'.$act.';"><font color="'.$font.'">'.$desc.
        '</font></a></td></tr>';       
          }
    }     }
     return '';      return '';
 }  }
Line 875  ENDSERVERFORM Line 887  ENDSERVERFORM
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
     $r->content_type('text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
   
Removed from v.1.91  
changed lines
  Added in v.1.94

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