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

Diff for /loncom/interface/lonmenu.pm between versions 1.309.2.16 and 1.309.2.18

version 1.309.2.16, 2010/10/04 23:00:46 version 1.309.2.18, 2010/11/08 22:51:23
Line 165  sub prep_menuitem { Line 165  sub prep_menuitem {
 sub primary_menu {  sub primary_menu {
     my $menu;      my $menu;
     my $custommenu = &Apache::loncommon::needs_gci_custom();      my $custommenu = &Apache::loncommon::needs_gci_custom();
       my $numdc = &Apache::loncommon::check_for_gci_dc();
     # each element of @primary contains following array:      # each element of @primary contains following array:
     # (link url, icon path, alt text, link text, condition)      # (link url, icon path, alt text, link text, condition)
     foreach my $menuitem (@primary_menu) {      foreach my $menuitem (@primary_menu) {
Line 183  sub primary_menu { Line 184  sub primary_menu {
         next if    $$menuitem[4]        eq 'gci'          next if    $$menuitem[4]        eq 'gci'
                 && (!$custommenu || $env{'request.role'} =~ m{^st\./gcitest/});                  && (!$custommenu || $env{'request.role'} =~ m{^st\./gcitest/});
         next if    $$menuitem[4]        eq 'home'          next if    $$menuitem[4]        eq 'home'
                 && $custommenu;                  && (($custommenu) || ($env{'user.domain'} eq 'gcitest') || 
                       (($env{'user.domain'} eq 'gci') && !$numdc));
         next if    $$menuitem[4]        eq 'gcitest'          next if    $$menuitem[4]        eq 'gcitest'
                 && $env{'user.domain'}  eq 'gci';                  && (($env{'user.domain'} eq 'gci') || ($env{'request.role'} eq 'cm'));
         next if    $$menuitem[4]        eq 'roles'     # hide links which are          next if    $$menuitem[4]        eq 'roles'     # hide links which are
                 && $custommenu;                        # not visible when GCI                  && $custommenu;                        # not visible when GCI
         next if    $$menuitem[4]        eq 'courses'   # tabbed interface in use          next if    $$menuitem[4]        eq 'courses'   # tabbed interface in use
Line 224  sub secondary_menu { Line 226  sub secondary_menu {
                      $env{'course.' . $env{'request.course.id'} . '.num'});                       $env{'course.' . $env{'request.course.id'} . '.num'});
     my $custommenu = &Apache::loncommon::needs_gci_custom();      my $custommenu = &Apache::loncommon::needs_gci_custom();
     my $numdc = &Apache::loncommon::check_for_gci_dc();      my $numdc = &Apache::loncommon::check_for_gci_dc();
       my $role = $env{'request.role'};
     foreach my $menuitem (@secondary_menu) {      foreach my $menuitem (@secondary_menu) {
         # evaluate conditions           # evaluate conditions 
         next if    ref($menuitem)  ne 'ARRAY';          next if    ref($menuitem)  ne 'ARRAY';
         next if    $$menuitem[4]   eq 'showmenu'          next if    $$menuitem[4]   eq 'showmenu'
                 && ($custommenu || !$numdc);                     && ($custommenu || (!$numdc && $role eq 'cm'));
           next if    $$menuitem[4]   ne 'showmenu'
                   && $$menuitem[4]   ne 'author'
                   && !$env{'request.course.id'};
         next if    $$menuitem[4]   eq 'showreturn'          next if    $$menuitem[4]   eq 'showreturn'
                 && !$showlink                  && !$showlink
                 && !($env{'request.state'} eq 'construct');                  && !($env{'request.state'} eq 'construct');
Line 250  sub secondary_menu { Line 256  sub secondary_menu {
                 && !$canviewgrps                  && !$canviewgrps
                 && !%groups;                  && !%groups;
         next if   $$menuitem[4]  eq 'showroles'          next if   $$menuitem[4]  eq 'showroles'
                 && ($custommenu || !$numdc);                  && ($custommenu || !$numdc || ($numdc && $env{'request.noversionuri'} eq '/adm/roles'));
         if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'} && !$custommenu) {          if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'} && !$custommenu) {
             # special treatment for role selector              # special treatment for role selector
             my $roles_selector = &roles_selector(              my $roles_selector = &roles_selector(
Line 317  sub gci_secondary_menu { Line 323  sub gci_secondary_menu {
     foreach my $key (keys(%courses)) {      foreach my $key (keys(%courses)) {
         $links{$key} = "javascript:switchpage('$key');";          $links{$key} = "javascript:switchpage('$key');";
         if ($env{'request.course.id'} eq $courses{$key}) {          if ($env{'request.course.id'} eq $courses{$key}) {
             $links{$key} = '/adm/navmaps';              if ($env{'environment.remotenavmap'} eq 'on') {
                   $links{$key} = "javascript:gonav('/adm/navmaps')";
               } else {
                   $links{$key} = '/adm/navmaps';
               }
             $current = $key;              $current = $key;
             $links{'managetest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu';              $links{'managetest'} = '/adm/roles?selectrole=1&cm=1&orgurl=%2fadm%2fmenu';
         }          }
Line 326  sub gci_secondary_menu { Line 336  sub gci_secondary_menu {
     my $tabs;      my $tabs;
     foreach my $item (@menutabs) {      foreach my $item (@menutabs) {
         if ($item eq $current) {          if ($item eq $current) {
             $tabs .= ' <li id="current"><a href="'.$links{$item}.'">'.              $tabs .= '<li id="current"><a href="'.$links{$item}.'">'.
                      $linktext{$item}.'</a></li>';                       $linktext{$item}.'</a></li>';
         } else {          } else {
             $tabs .= ' <li><a href="'.$links{$item}.'">'.              $tabs .= '<li><a href="'.$links{$item}.'">'.
                      $linktext{$item}.'</a></li>';                       $linktext{$item}.'</a></li>';
         }          }
     }      }
Line 529  ENDINLINEMENU Line 539  ENDINLINEMENU
 }  }
   
 sub show_return_link {  sub show_return_link {
       return unless ($env{'request.course.id'});
     if (($env{'request.noversionuri'} =~ m{^/adm/(viewclasslist|navmaps)($|\?)})      if (($env{'request.noversionuri'} =~ m{^/adm/(viewclasslist|navmaps)($|\?)})
         || ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($|\?)})) {          || ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($|\?)})) {
         return if ($env{'form.register'});          return if ($env{'form.register'});
Line 617  sub innerregister { Line 628  sub innerregister {
         my @crumbs;          my @crumbs;
         unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps')          unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps')
                 && ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {                  && ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
               my $link = "javascript:gopost('/adm/navmaps','')";
               if ($env{'environment.remotenavmap'} eq 'on') {
                   $link = "javascript:gonav('/adm/navmaps','')"
               }
             @crumbs = ({text  => Apache::loncommon::course_type()              @crumbs = ({text  => Apache::loncommon::course_type()
                                 . ' Contents',                                  . ' Contents',
                         href  => "Javascript:gopost('/adm/navmaps','')"});                          href  => $link});
         }          }
         if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {           if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { 
             push(@crumbs, {text  => '...',              push(@crumbs, {text  => '...',
Line 1438  ENDSCRIPT Line 1453  ENDSCRIPT
         }          }
         if ($env{'request.course.id'}) {          if ($env{'request.course.id'}) {
             if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {              if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
                   my $navlink;
                   if ($env{'environment.remotenavmap'} eq 'on') {
                       $navlink = "javascript:gonav('/adm/navmaps')";
                   } else {
                       $navlink = '/adm/navmaps';
                   }
                 $output .=                   $output .= 
                   '<div class="LC_Box LC_800Box LC_GCI_Menu">'.                    '<br /><br clear="all" /><div class="LC_Box LC_GCI_Menu">'.
                   '<h3 class="LC_hcell">'.&mt('Test Management').'</h3>'.                    '<h3 class="LC_hcell">'.&mt('Management').'</h3>'.
                   '<div class="LC_GCI_Menu_left">'.                    '<div class="LC_GCI_Menu_left">'.
                   '<dl class="LC_GCI_Menu">'.                    '<dl class="LC_GCI_Menu">'.
                   '<dt><a href="/adm/navmaps">'.&mt('Concept Test Contents').'</a></dt>'.                    '<dt><a href="'.$navlink.'">'.&mt('Concept Test Contents').'</a></dt>'.
                   '<dd style="background-image:url(\'/res/adm/pages/nav.png\');"><a class="LC_menubuttons_link" href="/adm/navmaps">'.&mt('Display the table of contents for your Concept Test.').'</a></dd>'.                    '<dd style="background-image:url(\'/res/adm/pages/nav.png\');"><a class="LC_menubuttons_link" href="'.$navlink.'">'.&mt('Display the table of contents for your Concept Test.').'</a></dd>'.
                   '<dt><a href="/adm/coursedocs">'.&mt('Assemble Concept Test').'</a></dt>'.                    '<dt><a href="/adm/coursedocs">'.&mt('Assemble Concept Test').'</a></dt>'.
                   '<dd style="background-image:url(\'/res/adm/pages/docs.png\');"><a class="LC_menubuttons_link" href="/adm/coursedocs">'.&mt('If no students have attempted the Concept Test you will be able to modify it. You can also change the start and end date of the test itself.').'</a></dd>'.                    '<dd style="background-image:url(\'/res/adm/pages/docs.png\');"><a class="LC_menubuttons_link" href="/adm/coursedocs">'.&mt('If no students have attempted the Concept Test you will be able to modify it. You can also change the start and end date of the test itself.').'</a></dd>'.
                   '<dt><a href="/adm/createuser">'.&mt('Enrollment and Student Activity').'</a></dt>'.                    '<dt><a href="/adm/createuser">'.&mt('Enrollment and Student Activity').'</a></dt>'.
Line 1469  ENDSCRIPT Line 1490  ENDSCRIPT
                     $navtext = &mt('Display Test Contents');                      $navtext = &mt('Display Test Contents');
                     $navdesc = &mt('Display the table of contents for this Concept Test');                      $navdesc = &mt('Display the table of contents for this Concept Test');
                 }                  }
                   my $navlink;
                   if ($env{'environment.remotenavmap'} eq 'on') {
                       $navlink = "javascript:gonav('/adm/navmaps');"
                   } else {
                       $navlink = '/adm/navmaps';
                   }
                 $output .=                   $output .= 
                            '<div class="LC_Box LC_800Box LC_GCI_Menu">'.                             '<div class="LC_Box LC_GCI_Menu">'.
                            '<h3 class="LC_hcell">'.&mt('Utilities').'</h3>'.                             '<h3 class="LC_hcell">'.&mt('Utilities').'</h3>'.
                            '<div class="LC_GCI_Menu_left">'.                             '<div class="LC_GCI_Menu_left">'.
                            '<dl class="LC_GCI_Menu">'.                             '<dl class="LC_GCI_Menu">'.
                            '<dt><a href="/adm/navmaps">'.$navtext.'</dt>'.                             '<dt><a href="'.$navlink.'">'.$navtext.'</dt>'.
                            '<dd style="background-image:url(\'/res/adm/pages/nav.png\');">'.                             '<dd style="background-image:url(\'/res/adm/pages/nav.png\');">'.
                            '<a class="LC_menubuttons_link" href="/adm/navmaps">'.$navdesc.'</a></dd></dl></div>';                             '<a class="LC_menubuttons_link" href="'.$navlink.'">'.$navdesc.'</a></dd></dl></div>';
                 if ($canreq) {                  if ($canreq) {
                     $output .= '<div class="LC_GCI_Menu_right">'.                      $output .= '<div class="LC_GCI_Menu_right">'.
                                '<dl class="LC_GCI_Menu">'.                                 '<dl class="LC_GCI_Menu">'.
Line 1487  ENDSCRIPT Line 1514  ENDSCRIPT
             }              }
         } elsif ($switcher || $canreq) {          } elsif ($switcher || $canreq) {
             $output .= '<br /><br />'.              $output .= '<br /><br />'.
                        '<div class="LC_Box LC_800Box LC_GCI_Menu">'.                         '<div class="LC_Box LC_GCI_Menu">'.
                        '<h3 class="LC_hcell">'.&mt('Utilities').'</h3>'.                         '<h3 class="LC_hcell">'.&mt('Utilities').'</h3>'.
                        '<div class="LC_GCI_Menu_left">'.                         '<div class="LC_GCI_Menu_left">'.
                        '<dl class="LC_GCI_Menu">';                         '<dl class="LC_GCI_Menu">';
Line 1509  ENDSCRIPT Line 1536  ENDSCRIPT
         my $queued =  &Apache::loncoursequeueadmin::queued_selfenrollment('notitle');          my $queued =  &Apache::loncoursequeueadmin::queued_selfenrollment('notitle');
         if ($queued) {          if ($queued) {
             $output .=               $output .= 
                        '<div class="LC_Box LC_800Box">'.                         '<div class="LC_Box">'.
                        '<h3 class="LC_hcell">'.&mt('Pending Enrollment Requests').'</h3>'.                         '<h3 class="LC_hcell">'.&mt('Pending Enrollment Requests').'</h3>'.
                        $queued.                         $queued.
                        '</div>';                         '</div>';
Line 2333  function adhocRole(roleitem) { Line 2360  function adhocRole(roleitem) {
             secok = 0;              secok = 0;
             var numrolesec = rolesections[selidx].length;              var numrolesec = rolesections[selidx].length;
             var msgidx = numsec[selidx] - numrolesec;              var msgidx = numsec[selidx] - numrolesec;
             secchoice = prompt("$lt{'this'} "+secpick[msgidx]+"\\n$lt{'avai'} "+roleseclist[selidx],"");              secchoice = prompt("$lt{'this'}\\n"+secpick[msgidx]+"\\n$lt{'avai'} "+roleseclist[selidx],"");
             if (secchoice == '') {              if (secchoice == '') {
                 if (msgidx > 0) {                  if (msgidx > 0) {
                     secok = 1;                      secok = 1;
Removed from v.1.309.2.16  
changed lines
  Added in v.1.309.2.18

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