[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.3 and 1.369.2.6

version 1.369.2.3, 2012/05/18 16:54:56 version 1.369.2.6, 2012/05/24 23:36:17
Line 115  entries from mydesk.tab Line 115  entries from mydesk.tab
   
 Same as primary_menu() but operates on @secondary_menu.  Same as primary_menu() but operates on @secondary_menu.
   
   =item create_submenu()
   
   Creates XHTML for unordered list of sub-menu items which belong to a
   particular top-level menu item. Uses hover pseudo class in css to display
   dropdown list when mouse hovers over top-level item. Support for IE6
   (no hover psuedo class) via LC_hoverable class for <li> tag for top-
   level item, which employs jQuery to handle behavior on mouseover.
   
   Inputs: 4 - (a) link and (b) target for anchor href in top level item,
               (c) title for text wrapped by anchor tag in top level item.
               (d) reference to array of arrays of sub-menu items.
   
 =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 137  The javascript is usually similar to "go Line 149  The javascript is usually similar to "go
   
 =item utilityfunctions()  =item utilityfunctions()
   
   Output from this routine is a number of javascript functions called by
   items in the inline menu, and in some cases items in the Main Menu page. 
   
 =item serverform()  =item serverform()
   
 =item constspaceform()  =item constspaceform()
Line 166  use LONCAPA qw(:DEFAULT :match); Line 181  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 %primary_submenu @secondary_menu);              $readdesk @primary_menu %primary_submenu @secondary_menu %secondary_submenu);
   
 my @inlineremote;  my @inlineremote;
   
Line 221  sub primary_menu { Line 236  sub primary_menu {
                   
         my $title = $menuitem->[3];          my $title = $menuitem->[3];
         if (defined($primary_submenu{$title})) {          if (defined($primary_submenu{$title})) {
             my ($link,$target,$numsub);              my ($link,$target);
             if ($menuitem->[0] ne '') {              if ($menuitem->[0] ne '') {
                 $link = $menuitem->[0];                  $link = $menuitem->[0];
                 $target = '_top';                  $target = '_top';
             } else {              } else {
                 $link = '#';                  $link = '#';
             }              }
               my @primsub;
             if (ref($primary_submenu{$title}) eq 'ARRAY') {              if (ref($primary_submenu{$title}) eq 'ARRAY') {
                 $numsub = @{$primary_submenu{$title}};                  foreach my $item (@{$primary_submenu{$title}}) {
                 if ($numsub) {                      next if (($item->[2] eq 'wishlist') && 
                     $title =                               ((!&Apache::lonnet::allowed('bre',"/res/$env{'user.domain'}/")) &&
                         '<span class="LC_nobreak">'.$title.                                (!&Apache::lonnet::allowed('bro',"/res/$env{'user.domain'}/"))));
                         '<span class="LC_fontsize_small">'.                      next if (($item->[2] eq 'reqcrs') && (!&check_for_rcrs()));
                         '&#9660;</span></span>';                      next if ((($item->[2] eq 'portfolio') || 
                 }                               ($item->[2] eq 'blog')) && 
             }                               (!&Apache::lonnet::usertools_access('','',$item->[2],
             $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.$title.'</a>';                                                             undef,'tools')));
             if ($numsub) {                      push(@primsub,$item);
                 $menu .= '<ul>';                  }
                 foreach my $item (@{$primary_submenu{$menuitem->[3]}}) {                  if (@primsub > 0) {
                     if (ref($item) eq 'ARRAY') {                      $menu .= &create_submenu($link,$target,$title,\@primsub);
                         if ($item->[2] eq 'wishlist') {                  } elsif ($link) {
                             next unless ((&Apache::lonnet::allowed('bre',"/res/$env{'user.domain'}/")) ||                      $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.$title.'</a></li>';
                                          (&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          } 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'};
Line 321  sub secondary_menu { Line 318  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 342  sub secondary_menu { Line 340  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 349  sub secondary_menu { Line 351  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 358  sub secondary_menu { Line 360  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);
               if ($menuitem->[0] ne '') {
                   $link = $menuitem->[0];
                   $target = '_top';
               } else {
                   $link = '#';
               }
               my @scndsub;   
               if (ref($secondary_submenu{$title}) eq 'ARRAY') {
                   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); 
                       }
                   }
                   if (@scndsub > 0) {
                       $menu .= &create_submenu($link,$target,$title,\@scndsub);
                   } elsif ($link) {
                       $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.$title.'</a></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 400  sub secondary_menu { Line 428  sub secondary_menu {
     return "<ul id=\"LC_secondary_menu\">$menu</ul>";      return "<ul id=\"LC_secondary_menu\">$menu</ul>";
 }  }
   
   sub create_submenu {
       my ($link,$target,$title,$submenu) = @_;
       return unless (ref($submenu) eq 'ARRAY');
       my $menu = '<li class="LC_hoverable">'.
                  '<a href="'.$link.'" target="'.$target.'">'. 
                  '<span class="LC_nobreak">'.$title.
                  '<span class="LC_fontsize_small" style="font-weight:normal;">'.
                  ' &#9660;</span></span></a>'.
                  '<ul>';
       my $count = 0;
       my $numsub = scalar(@{$submenu});
       foreach my $item (@{$submenu}) {
           $count ++;
           if (ref($item) eq 'ARRAY') {
               my $borderbot;
               if ($count == $numsub) {
                   $borderbot = 'border-bottom:1px solid black;';
               }
               $menu .= '<li style="margin:0;padding:0;'.
                        $borderbot.'"><a href="'.$item->[0].'">'.
                        '" style="padding:0;">'.
                        $item->[1].'</a></li>';
           }
       }
       $menu .= '</ul></li>';
       return $menu;
   }
   
 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 1495  function annotate() { Line 1551  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 1939  BEGIN { Line 2009  BEGIN {
                     } 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.3  
changed lines
  Added in v.1.369.2.6

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