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

Diff for /loncom/interface/lonmenu.pm between versions 1.308 and 1.312

version 1.308, 2009/11/30 21:29:47 version 1.312, 2010/01/19 19:00:02
Line 150  sub prep_menuitem { Line 150  sub prep_menuitem {
     } else {             # textual Link      } else {             # textual Link
         $link = &mt($$menuitem[3]);          $link = &mt($$menuitem[3]);
     }      }
       if($$menuitem[4] eq 'newmsg'){   #special style for New Messages
           return '<li><a href="'.$$menuitem[0].'"><span class="LC_new_message">'.$link.'</span></a></li>';
       }
     return '<li><a href="'.$$menuitem[0].'">'.$link.'</a></li>';      return '<li><a href="'.$$menuitem[0].'">'.$link.'</a></li>';
 }  }
   
Line 290  sub initlittle { Line 293  sub initlittle {
                                        'roles' => (&Apache::loncommon::show_course()?                                         'roles' => (&Apache::loncommon::show_course()?
                                                     'Courses':'Roles'),                                                      'Courses':'Roles'),
                                        'other' => 'Other Roles',                                         'other' => 'Other Roles',
                                        'docs' => 'Edit Course',                                         'docs' => 'Course Editor',
                                        'exit' => 'Logout',                                         'exit' => 'Logout',
                                        'login' => 'Log In',                                         'login' => 'Log In',
        'launch' => 'Launch Remote Control',         'launch' => 'Launch Remote Control',
Line 839  ENDMENUITEMS Line 842  ENDMENUITEMS
     my $inlinebuttons='';      my $inlinebuttons='';
     if ($addremote) {      if ($addremote) {
   
         #SD START (work in progress!)  
         Apache::lonhtmlcommon::clear_breadcrumb_tools();          Apache::lonhtmlcommon::clear_breadcrumb_tools();
         # Arrows for navigation  
         Apache::lonhtmlcommon::add_breadcrumb_tool( 'A', $inlineremote[21] );  
         Apache::lonhtmlcommon::add_breadcrumb_tool( 'A', $inlineremote[23] );  
         if(hidden_button_check() ne 'yes'){  
             # notes  
             Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[93]);  
             # bookmark  
             Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[91]);  
             # evaluate  
             Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[81]);  
             # feedback  
             Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[82]);  
             # print  
             Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[83]);  
             # metadata  
             Apache::lonhtmlcommon::add_breadcrumb_tool( 'B', $inlineremote[63]);  
   
             # ?  
             Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[61]);  
             # ?  
             Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[71]);  
             # ?  
             Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[72]);  
             # ?  
             Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[73]);  
             # ?  
             Apache::lonhtmlcommon::add_breadcrumb_tool( 'C', $inlineremote[92]);  
   
               Apache::lonhtmlcommon::add_breadcrumb_tool(
                   'navigation', @inlineremote[21,23]);
   
           if(hidden_button_check() ne 'yes') {
               Apache::lonhtmlcommon::add_breadcrumb_tool(
                   'tools', @inlineremote[93,91,81,82,83,63]);
   
               Apache::lonhtmlcommon::add_breadcrumb_tool(
                   'advtools', @inlineremote[61,71,72,73,92]);
         }          }
   
         #SD END  
 #       # Registered, textual output  #       # Registered, textual output
 #        if ( $env{'environment.icons'} eq 'iconsonly' ) {  #        if ( $env{'environment.icons'} eq 'iconsonly' ) {
 #            $inlinebuttons = (<<ENDARROWSINLINE);  #            $inlinebuttons = (<<ENDARROWSINLINE);
Line 906  ENDMENUITEMS Line 889  ENDMENUITEMS
 #            }  #            }
 #        }  #        }
     }      }
         #SD see below  
         $breadcrumb = &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);          $breadcrumb = &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);
     $result =(<<ENDREGTEXT);      $result =(<<ENDREGTEXT);
 <script type="text/javascript">  <script type="text/javascript">
Line 1336  sub inlinemenu { Line 1318  sub inlinemenu {
     undef(%category_members);      undef(%category_members);
 # calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control  # calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control
     &rawconfig(1);      &rawconfig(1);
     my $output='<table id="LC_mainmenu"><tr>';      my $output='<table><tr>';
     for (my $col=1; $col<=2; $col++) {      for (my $col=1; $col<=2; $col++) {
         $output.='<td class="LC_mainmenu_col_fieldset">';          $output.='<td class="LC_mainmenu_col_fieldset">';
         for (my $row=1; $row<=8; $row++) {          for (my $row=1; $row<=8; $row++) {
             foreach my $cat (keys(%category_members)) {              foreach my $cat (keys(%category_members)) {
                if ($category_positions{$cat} ne "$col,$row") { next; }                 if ($category_positions{$cat} ne "$col,$row") { next; }
                #$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';                 #$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';
                $output.='<div class="LC_Box">';                 $output.='<div class="LC_Box LC_400Box">';
        $output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>';         $output.='<h3 class="LC_hcell">'.&mt($category_names{$cat}).'</h3>';
                $output.='<table>';                 $output.='<table>';
                my %active=();                 my %active=();
                foreach my $menu_item (split(/\:/,$category_members{$cat})) {                 foreach my $menu_item (split(/\:/,$category_members{$cat})) {
Removed from v.1.308  
changed lines
  Added in v.1.312

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