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

Diff for /loncom/interface/lonmenu.pm between versions 1.324 and 1.325

version 1.324, 2010/03/29 14:50:46 version 1.325, 2010/04/12 15:05:45
Line 177  sub prep_menuitem { Line 177  sub prep_menuitem {
     return '<li><a'       return '<li><a' 
            # highlighting for new messages             # highlighting for new messages
            . ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '')              . ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '') 
            . qq| href="$$menuitem[0]">$link</a></li>|;             . qq| href="$$menuitem[0]" target="_top">$link</a></li>|;
 }  }
   
 # primary_menu() evaluates @primary_menu and returns XHTML for the menu  # primary_menu() evaluates @primary_menu and returns XHTML for the menu
Line 216  sub primary_menu { Line 216  sub primary_menu {
         if ($$menuitem[3] eq 'Help') { # special treatment for helplink          if ($$menuitem[3] eq 'Help') { # special treatment for helplink
             $menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';              $menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
         } else {          } else {
             my @items = @{$menuitem};              $menu .= prep_menuitem($menuitem);
             $items[0] = 'javascript:'.$menuitem->[0].';';  
             $menu .= &prep_menuitem(\@items);  
         }          }
     }      }
       $menu =~ s/\[domain\]/$env{'user.domain'}/g;
       $menu =~ s/\[user\]/$env{'user.name'}/g;
   
     return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";      return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";
 }  }
Line 674  sub edit_course_upload { Line 674  sub edit_course_upload {
   
 # ================================================================== Raw Config  # ================================================================== Raw Config
   
 #SD  
 #this is called by  
 #lonmenu  
 #  
 sub clear {  sub clear {
     my ($row,$col)=@_;      my ($row,$col)=@_;
     $inlineremote[10*$row+$col]='';      $inlineremote[10*$row+$col]='';
Line 1068  function go(url) { Line 1064  function go(url) {
    }     }
 }  }
   
 function gotop(url) {  
     if (url!='' && url!= null) {  
         top.location.href = url;  
     }  
 }  
   
 function gopost(url,postdata) {  function gopost(url,postdata) {
    if (url!='') {     if (url!='') {
       this.document.server.action=url;        this.document.server.action=url;
Removed from v.1.324  
changed lines
  Added in v.1.325

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