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

Diff for /loncom/interface/lonmenu.pm between versions 1.369.2.2 and 1.369.2.5

version 1.369.2.2, 2012/05/14 13:58:04 version 1.369.2.5, 2012/05/23 00:29:22
Line 26 Line 26
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 #  #
 # There is one parameter controlling the action of this module:  
 #  
   
 =head1 NAME  =head1 NAME
   
Line 35  Apache::lonmenu Line 33  Apache::lonmenu
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
 Coordinates the response to clicking an image.  Loads contents of /home/httpd/lonTabs/mydesk.tab, 
   used to generate inline menu, and Main Menu page. 
   
 This is part of the LearningOnline Network with CAPA project  This is part of the LearningOnline Network with CAPA project
 described at http://www.lon-capa.org.  described at http://www.lon-capa.org.
Line 74  It is set to 'done' in the BEGIN block o Line 73  It is set to 'done' in the BEGIN block o
 =item @primary_menu  =item @primary_menu
   
 The elements of this array reference arrays that are made up of the components  The elements of this array reference arrays that are made up of the components
 of those lines of mydesk.tab that start with prim.  of those lines of mydesk.tab that start with prim:.
 It is used by primary_menu() to generate the corresponding menu.  It is used by primary_menu() to generate the corresponding menu.
 It gets filled in the BEGIN block of this module.  It gets filled in the BEGIN block of this module.
   
   =item %primary_sub_menu
   
   The keys of this hash reference are the names of items in the primary_menu array 
   which have sub-menus.  For each key, the corresponding value is a reference to
   an array containing components extracted from lines in mydesk.tab which begin
   with primsub:.
   This hash, which is used by primary_menu to generate sub-menus, is populated in
   the BEGIN block.
   
 =item @secondary_menu  =item @secondary_menu
   
 The elements of this array reference arrays that are made up of the components  The elements of this array reference arrays that are made up of the components
Line 158  use LONCAPA qw(:DEFAULT :match); Line 166  use LONCAPA qw(:DEFAULT :match);
 use HTML::Entities();  use HTML::Entities();
   
 use vars qw(@desklines %category_names %category_members %category_positions   use vars qw(@desklines %category_names %category_members %category_positions 
             $readdesk @primary_menu @secondary_menu);              $readdesk @primary_menu %primary_submenu @secondary_menu %secondary_submenu);
   
 my @inlineremote;  my @inlineremote;
   
Line 181  sub prep_menuitem { Line 189  sub prep_menuitem {
   
 # primary_menu() evaluates @primary_menu and returns XHTML for the menu  # primary_menu() evaluates @primary_menu and returns XHTML for the menu
 # that contains following links:  # that contains following links:
 # About, Message, Roles, Help, Logout  # About, Message, Personal, Roles, Help, Logout
 # @primary_menu is filled within the BEGIN block of this module with   # @primary_menu is filled within the BEGIN block of this module with 
 # entries from mydesk.tab  # entries from mydesk.tab
 sub primary_menu {  sub primary_menu {
Line 211  sub primary_menu { Line 219  sub primary_menu {
         next if    $$menuitem[4]        eq 'courses'   ##'Roles' wanted          next if    $$menuitem[4]        eq 'courses'   ##'Roles' wanted
                 && !&Apache::loncommon::show_course(); ##                  && !&Apache::loncommon::show_course(); ##
                   
                       my $title = $menuitem->[3];
         if ($$menuitem[3] eq 'Help') { # special treatment for helplink          if (defined($primary_submenu{$title})) {
               my ($link,$target,$numsub);
               if ($menuitem->[0] ne '') {
                   $link = $menuitem->[0];
                   $target = '_top';
               } else {
                   $link = '#';
               }
               if (ref($primary_submenu{$title}) eq 'ARRAY') {
                   $numsub = @{$primary_submenu{$title}};
                   if ($numsub) {
                       $title =
                           '<span class="LC_nobreak">'.$title.
                           '<span class="LC_fontsize_small">'.
                           ' &#9660;</span></span>';
                   }
               }
               $menu .= '<li class="LC_hoverable">'.
                        '<a href="'.$link.'" target="'.$target.'">'.$title.'</a>';
               if ($numsub) {
                   $menu .= '<ul>';
                   foreach my $item (@{$primary_submenu{$menuitem->[3]}}) {
                       if (ref($item) eq 'ARRAY') {
                           if ($item->[2] eq 'wishlist') {
                               next unless ((&Apache::lonnet::allowed('bre',"/res/$env{'user.domain'}/")) ||
                                            (&Apache::lonnet::allowed('bro',"/res/$env{'user.domain'}/")));
                           } elsif ($item->[2] eq 'reqcrs') {
                               next unless(&check_for_rcrs());
                           } elsif (($item->[2] eq 'portfolio') ||
                                    ($item->[2] eq 'blog')) {
                               if (!&Apache::lonnet::usertools_access(
                                       $env{'user.name'},
                                       $env{'user.domain'},
                                       $item->[2],undef,'tools')) {
                                   next;
                               }
                           }
                           $menu .= '<li style="margin:0;padding:0">'.
                                    '<a href="'.$item->[0].
                                    '" style="padding:0 0 0 10px">'.
                                    $item->[1].'</a></li>';
                       }
                   }
                   $menu .= '</ul>';
               }
               $menu .= '</li>';
           } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
             if ($public) {              if ($public) {
                 my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};                  my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
                 my $defdom = &Apache::lonnet::default_login_domain();                  my $defdom = &Apache::lonnet::default_login_domain();
Line 268  sub secondary_menu { Line 322  sub secondary_menu {
                                                ? "/$env{'request.course.sec'}"                                                 ? "/$env{'request.course.sec'}"
                                                : '');                                                 : '');
     my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});      my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
     my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec);       my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};
     my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);       my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec);
     my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec);       my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);
       my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec);
     my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);      my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);
     my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);      my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);
     my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec);       my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec);
     my $author        = &getauthor();      my $author        = &getauthor();
   
     my %groups = &Apache::lonnet::get_active_groups(      my %groups = &Apache::lonnet::get_active_groups(
Line 289  sub secondary_menu { Line 344  sub secondary_menu {
                 && !$env{'request.course.id'};                  && !$env{'request.course.id'};
         next if    $$menuitem[4]   =~ /^mdc/          next if    $$menuitem[4]   =~ /^mdc/
                 && !$canedit;                  && !$canedit;
           next if    $$menuitem[4]  eq 'mdcCourse'
                   && ($crstype eq 'Community');
           next if    $$menuitem[4]  eq 'mdcCommunity'
                   && ($crstype eq 'Course');
         next if    $$menuitem[4]  eq 'nvgr'          next if    $$menuitem[4]  eq 'nvgr'
                 && $canvgr;                  && $canvgr;
         next if    $$menuitem[4]  eq 'vgr'          next if    $$menuitem[4]  eq 'vgr'
Line 296  sub secondary_menu { Line 355  sub secondary_menu {
         next if    $$menuitem[4]   eq 'cst'          next if    $$menuitem[4]   eq 'cst'
                 && !$canmodifyuser;                  && !$canmodifyuser;
         next if    $$menuitem[4]   eq 'ncst'          next if    $$menuitem[4]   eq 'ncst'
                 && $canmodifyuser;                  && ($canmodifyuser || !$canviewroster);
         next if    $$menuitem[4]   eq 'mgr'          next if    $$menuitem[4]   eq 'mgr'
                 && !$canmgr;                  && !$canmgr;
         next if    $$menuitem[4]   eq 'nmgr'          next if    $$menuitem[4]   eq 'nmgr'
Line 305  sub secondary_menu { Line 364  sub secondary_menu {
                 && !$canviewwnew;                  && !$canviewwnew;
         next if    $$menuitem[4]   eq 'opa'          next if    $$menuitem[4]   eq 'opa'
                 && !$canmodpara;                  && !$canmodpara;
         next if    $$menuitem[4]   =~ /showgroups$/          next if    $$menuitem[4]   eq 'nvcg'
                 && !$canviewgrps                  && ($canviewgrps || !%groups);
                 && !%groups;  
         next if    $$menuitem[4]    eq 'author'          next if    $$menuitem[4]    eq 'author'
                 && !$author;                  && !$author;
   
         if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {          my $title = $menuitem->[3];
           if (defined($secondary_submenu{$title})) {
               my ($link,$target,$numsub);
               if ($menuitem->[0] ne '') {
                   $link = $menuitem->[0];
                   $target = '_top';
               } else {
                   $link = '#';
               }
   
               my @scndsub;   
               if (ref($secondary_submenu{$title}) eq 'ARRAY') {
                   $numsub = 0;
                   foreach my $item (@{$secondary_submenu{$title}}) {
                       if (ref($item) eq 'ARRAY') {
                           next if ($item->[2] eq 'vgr' && !$canvgr);
                           next if ($item->[2] eq 'opa' && !$canmodpara);
                           next if ($item->[2] eq 'cst' && !$canmodifyuser);
                           next if ($item->[2] eq 'mgr' && !$canmgr);
                           next if ($item->[2] eq 'vcg' && !$canviewgrps);
                           push(@scndsub,$item); 
                           $numsub ++;
                       }
                   }
                   if ($numsub) {
                       $title =
                           '<span class="LC_nobreak">'.$title.
                           '<span class="LC_fontsize_small" style="font-weight:normal">'.
                           ' &#9660;</span></span>';
                   }
               }
               $menu .= '<li class="LC_hoverable">'.
                        '<a href="'.$link.'" target="'.$target.'">'.$title.'</a>';
               if ($numsub) {
                   $menu .= '<ul>';
                   my $count = 0;
                   foreach my $item (@scndsub) {
                       $count ++;
                       if (ref($item) eq 'ARRAY') {
                           my $borderbot;
                           my ($padtop,$padbot) = (0,0);
                           if ($count == 1)  {
                               $padtop = '5px';
                           }
                           if ($count == $numsub) {
                               $padbot = '5px';
                               $borderbot = 'border-bottom:1px solid black;';
                           }
                           $menu .= '<li style="margin:0;padding-left:0;padding-right:0;'.
                                    'padding-top:'.$padtop.';padding-bottom:'.$padbot.';'.
                                    $borderbot.'"><a href="'.$item->[0].
                                    '" style="padding: 0 5px 0 10px">'.
                                    $item->[1].'</a></li>';
                       }
                   }
                   $menu .= '</ul>';
               }
               $menu .= '</li>';
           } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
             # special treatment for role selector              # special treatment for role selector
             my $roles_selector = &roles_selector(              my $roles_selector = &roles_selector(
                         $env{'course.' . $env{'request.course.id'} . '.domain'},                          $env{'course.' . $env{'request.course.id'} . '.domain'},
                         $env{'course.' . $env{'request.course.id'} . '.num'}  );                          $env{'course.' . $env{'request.course.id'} . '.num'}  );
   
             $menu .= $roles_selector ? "<li>$roles_selector</li>"              $menu .= $roles_selector ? "<li style=\"padding: 0 0.8em;\">$roles_selector</li>"
                                      : '';                                       : '';
         } else {          } else {
             $menu .= &prep_menuitem(\@$menuitem);              $menu .= &prep_menuitem(\@$menuitem);
Line 1442  function annotate() { Line 1558  function annotate() {
    annotator.document.close();     annotator.document.close();
 }  }
   
   (function (\$) {
     \$(document).ready(function () {
       \$.single=function(a){return function(b){a[0]=b;return a}}(\$([1]));
       /*\@cc_on
         if (!window.XMLHttpRequest) {
           \$('.LC_hoverable').each(function () {
             this.attachEvent('onmouseenter', function (evt) { \$.single(evt.srcElement).addClass('hover'); });
             this.attachEvent('onmouseleave', function (evt) { \$.single(evt.srcElement).removeClass('hover'); });
           });
         }
       \@*/
     });
   }(jQuery));
   
 function set_bookmark() {  function set_bookmark() {
    go('');     go('');
    clienttitle=document.title;     clienttitle=document.title;
Line 1880  BEGIN { Line 2010  BEGIN {
                     } elsif ($configline=~/^prim\:/) {                      } elsif ($configline=~/^prim\:/) {
                         my @entries = (split(/\:/, $configline))[1..5];                          my @entries = (split(/\:/, $configline))[1..5];
                         push @primary_menu, \@entries;                          push @primary_menu, \@entries;
                       } elsif ($configline=~/^primsub\:/) {
                           my ($parent,@entries) = (split(/\:/, $configline))[1..4];
                           push (@{$primary_submenu{$parent}},\@entries);
                     } elsif ($configline=~/^scnd\:/) {                      } elsif ($configline=~/^scnd\:/) {
                         my @entries = (split(/\:/, $configline))[1..5];                          my @entries = (split(/\:/, $configline))[1..5];
                         push @secondary_menu, \@entries;                           push @secondary_menu, \@entries; 
                       } elsif ($configline=~/^scndsub\:/) {
                           my ($parent,@entries) = (split(/\:/, $configline))[1..4];
                           push (@{$secondary_submenu{$parent}},\@entries);
                     } elsif ($configline) {                      } elsif ($configline) {
                         push(@desklines,$configline);                          push(@desklines,$configline);
                     }                      }
Removed from v.1.369.2.2  
changed lines
  Added in v.1.369.2.5

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