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

Diff for /loncom/interface/lonmenu.pm between versions 1.341 and 1.342

version 1.341, 2011/01/13 19:43:12 version 1.342, 2011/01/16 22:45:05
Line 107  entries from mydesk.tab Line 107  entries from mydesk.tab
   
 Same as primary_menu() but operates on @secondary_menu.  Same as primary_menu() but operates on @secondary_menu.
   
 =item show_return_link()  
   
 =item innerregister()  =item innerregister()
   
 This gets called in order to register a URL in the body of the document  This gets called in order to register a URL in the body of the document
Line 276  sub secondary_menu { Line 274  sub secondary_menu {
     my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);       my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec); 
     my $author        = getauthor();      my $author        = getauthor();
   
     my $showlink = &show_return_link();  
     my %groups = &Apache::lonnet::get_active_groups(      my %groups = &Apache::lonnet::get_active_groups(
                      $env{'user.domain'}, $env{'user.name'},                       $env{'user.domain'}, $env{'user.name'},
                      $env{'course.' . $env{'request.course.id'} . '.domain'},                       $env{'course.' . $env{'request.course.id'} . '.domain'},
Line 288  sub secondary_menu { Line 285  sub secondary_menu {
         next if    $$menuitem[4]   ne 'always'          next if    $$menuitem[4]   ne 'always'
                 && $$menuitem[4]   ne 'author'                  && $$menuitem[4]   ne 'author'
                 && !$env{'request.course.id'};                  && !$env{'request.course.id'};
         next if    $$menuitem[4]   eq 'showreturn'  
                 && !$showlink  
                 && !($env{'request.state'} eq 'construct');  
         next if    $$menuitem[4]   =~ /^mdc/          next if    $$menuitem[4]   =~ /^mdc/
                 && !$canedit;                  && !$canedit;
         next if    $$menuitem[4]  eq 'nvgr'          next if    $$menuitem[4]  eq 'nvgr'
Line 346  sub secondary_menu { Line 340  sub secondary_menu {
     return "<ul id=\"LC_secondary_menu\">$menu</ul>";      return "<ul id=\"LC_secondary_menu\">$menu</ul>";
 }  }
   
 sub show_return_link {  
     if (($env{'request.noversionuri'} =~ m{^/adm/(viewclasslist|navmaps)($|\?)})  
         || ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($|\?)})) {  
   
         return if ($env{'form.register'});  
     }  
     return (($env{'request.noversionuri'}=~m{^/(res|public)/} &&  
      $env{'request.symb'} eq '')  
     ||  
     ($env{'request.noversionuri'}=~ m{^/cgi-bin/printout.pl})  
     ||  
     (($env{'request.noversionuri'}=~/^\/adm\//) &&  
      ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&  
      ($env{'request.noversionuri'}!~  
       m{^/adm/.*/(smppg|bulletinboard)($|\?)})  
            ));  
 }  
   
 sub innerregister {  sub innerregister {
     my ($forcereg,$bread_crumbs) = @_;      my ($forcereg,$bread_crumbs) = @_;
     my $const_space = ($env{'request.state'} eq 'construct');      my $const_space = ($env{'request.state'} eq 'construct');
Line 613  ENDMENUITEMS Line 589  ENDMENUITEMS
 #  #
     $menuitems=(<<ENDMENUITEMS);      $menuitems=(<<ENDMENUITEMS);
 c&3&1  c&3&1
 s&2&1&back.png&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&&1  s&2&1&back.png&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1
 s&2&3&forw.png&forward[_1]&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&&3  s&2&3&forw.png&forward[_1]&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3
 c&6&3  c&6&3
 c&8&1  c&8&1
 c&8&2  c&8&2
Line 686  ENDMENUITEMS Line 662  ENDMENUITEMS
     foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }      foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
     if ($addremote) {      if ($addremote) {
   
         Apache::lonhtmlcommon::clear_breadcrumb_tools();          &Apache::lonhtmlcommon::clear_breadcrumb_tools();
   
             Apache::lonhtmlcommon::add_breadcrumb_tool(              &Apache::lonhtmlcommon::add_breadcrumb_tool(
                 'navigation', @inlineremote[21,23]);                  'navigation', @inlineremote[21,23]);
   
         if(hidden_button_check() ne 'yes') {          if(hidden_button_check() ne 'yes') {
             Apache::lonhtmlcommon::add_breadcrumb_tool(              &Apache::lonhtmlcommon::add_breadcrumb_tool(
                 'tools', @inlineremote[93,91,81,82,83]);                  'tools', @inlineremote[93,91,81,82,83]);
   
             #publish button in construction space              #publish button in construction space
             if ($env{'request.state'} eq 'construct'){              if ($env{'request.state'} eq 'construct'){
                 Apache::lonhtmlcommon::add_breadcrumb_tool(                  &Apache::lonhtmlcommon::add_breadcrumb_tool(
                      'advtools', @inlineremote[63]);                       'advtools', @inlineremote[63]);
             }else{              } else {
                 Apache::lonhtmlcommon::add_breadcrumb_tool(                  &Apache::lonhtmlcommon::add_breadcrumb_tool(
                      'tools', @inlineremote[63]);                       'tools', @inlineremote[63]);
             }              }
                           
             unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {              unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {
                 Apache::lonhtmlcommon::add_breadcrumb_tool(                  &Apache::lonhtmlcommon::add_breadcrumb_tool(
                     'advtools', @inlineremote[61,71,72,73,92]);                      'advtools', @inlineremote[61,71,72,73,92]);
             }              }
         }          }
     }      }
   
     return   Apache::lonhtmlcommon::scripttag('', 'start')      return   &Apache::lonhtmlcommon::scripttag('', 'start')
            . Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)             . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
            . Apache::lonhtmlcommon::scripttag('', 'end');             . &Apache::lonhtmlcommon::scripttag('', 'end');
 }  }
   
 sub is_course_upload {  sub is_course_upload {
Removed from v.1.341  
changed lines
  Added in v.1.342

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