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

Diff for /loncom/interface/lonmenu.pm between versions 1.60 and 1.64

version 1.60, 2003/04/17 13:21:36 version 1.64, 2003/04/18 01:20:25
Line 203  sub innerregister { Line 203  sub innerregister {
     my $reopen=&Apache::lonmenu::reopenmenu();      my $reopen=&Apache::lonmenu::reopenmenu();
   
     my $newmail='';      my $newmail='';
     if (($textual) && ($ENV{'request.symb'})) {      if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {
  my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'});   my ($mapurl,$rid,$resurl)=split(/\_\_\_/,$ENV{'request.symb'});
         $newmail=&Apache::lonnet::gettitle($mapurl).': '.          $newmail=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
          &Apache::lonnet::gettitle($resurl).'   ';          my $maptitle=&Apache::lonnet::gettitle($mapurl);
    my $restitle=&Apache::lonnet::gettitle($resurl);
           if ($maptitle) {
       $newmail.=', '.$maptitle;
           }
           if ($restitle) {
       $newmail.=': '.$restitle;
           }
           $newmail.='   ';
     }      }
     if (&Apache::lonmsg::newmail()) {       if (&Apache::lonmsg::newmail()) { 
        $newmail=($textual?         $newmail=($textual?
Line 336  $inlinebuttons Line 344  $inlinebuttons
 $tableend  $tableend
 $form  $form
 <script>  <script>
 //END LON-CAPA Internal  // END LON-CAPA Internal
 </script>  </script>
   
 ENDREGTEXT  ENDREGTEXT
Line 582  sub switch { Line 590  sub switch {
        my $text=$top.' '.$bot;         my $text=$top.' '.$bot;
        $text=~s/\- //;         $text=~s/\- //;
        $inlineremote[10*$row+$col]="\n".($nobreak?' ':'<br />').         $inlineremote[10*$row+$col]="\n".($nobreak?' ':'<br />').
         '<a href="javascript:'.$act.';" target="_top">'.$text.'</a> '.          '<a href="javascript:'.$act.';">'.$text.'</a> '.
         ($nobreak?'':$desc);          ($nobreak?'':$desc);
    } else {     } else {
 # Inline Remote  # Inline Remote
Line 592  sub switch { Line 600  sub switch {
        $inlineremote[10*$row+$col]="\n".         $inlineremote[10*$row+$col]="\n".
          ($nobreak==3?'<td width="50%" colspan="2" align="right"':'<tr><td').           ($nobreak==3?'<td width="50%" colspan="2" align="right"':'<tr><td').
          ' bgcolor="'.$tabbg.'"'.($nobreak==1?' width="50%" colspan="2"':'').           ' bgcolor="'.$tabbg.'"'.($nobreak==1?' width="50%" colspan="2"':'').
      '"><a href="javascript:'.$act.';" target="_top"><font color="'.$font.'"'.       '"><a href="javascript:'.$act.';"><font color="'.$font.'"'.
           ($nobreak?' size="+1"':'').            ($nobreak?' size="+1"':'').
      '>'.$text.'</font></a></td>'.       '>'.$text.'</font></a></td>'.
      ($nobreak?'':'<td colspan="3" width="80%"><font color="'.$font.'" size="-1">'.$desc.'</font>').($nobreak!=1?'</tr>':'');       ($nobreak?'':'<td colspan="3" width="80%"><font color="'.$font.'" size="-1">'.$desc.'</font>').($nobreak!=1?'</tr>':'');
Line 794  ENDUTILITY Line 802  ENDUTILITY
 sub serverform {  sub serverform {
     return(<<ENDSERVERFORM);      return(<<ENDSERVERFORM);
   
 <form name="server" action="/adm/logout" method="post">  <form name="server" action="/adm/logout" method="post" target="_top">
 <input type="hidden" name="postdata" value="none" />  <input type="hidden" name="postdata" value="none" />
 <input type="hidden" name="command" value="none" />  <input type="hidden" name="command" value="none" />
 <input type="hidden" name="url" value="none" />  <input type="hidden" name="url" value="none" />
Removed from v.1.60  
changed lines
  Added in v.1.64

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