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

Diff for /loncom/interface/lonmenu.pm between versions 1.503 and 1.510

version 1.503, 2020/10/06 21:28:33 version 1.510, 2021/09/21 22:54:26
Line 247  sub prep_menuitem { Line 247  sub prep_menuitem {
 # @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 {
     my ($crstype,$ltimenu) = @_;      my ($crstype,$ltimenu,$menucoll,$menuref) = @_;
     my (%menu,%ltiexc);      my (%menu,%ltiexc,%menuopts);
     # each element of @primary contains following array:      # each element of @primary contains following array:
     # (link url, icon path, alt text, link text, condition, position)      # (link url, icon path, alt text, link text, condition, position)
     my $public;      my $public;
Line 277  sub primary_menu { Line 277  sub primary_menu {
             }              }
         }          }
     }      }
       if (($menucoll) && (ref($menuref) eq 'HASH')) {
           %menuopts = %{$menuref};
       }
     foreach my $menuitem (@primary_menu) {      foreach my $menuitem (@primary_menu) {
         # evaluate conditions           # evaluate conditions 
         next if    ref($menuitem)       ne 'ARRAY';    #          next if    ref($menuitem)       ne 'ARRAY';    #
Line 292  sub primary_menu { Line 295  sub primary_menu {
                                                        # users                                                         # users
         next if    $$menuitem[4]        eq 'roles'     ##show links depending on          next if    $$menuitem[4]        eq 'roles'     ##show links depending on
                 && (&Apache::loncommon::show_course()  ##term 'Courses' or                  && (&Apache::loncommon::show_course()  ##term 'Courses' or
                 || $env{'request.lti.login'});         ##'Roles' wanted                  || $lti);                              ##'Roles' wanted
         next if    $$menuitem[4]        eq 'courses'   ##and not LTI access          next if    $$menuitem[4]        eq 'courses'   ##and not LTI access
                 && (!&Apache::loncommon::show_course()                  && (!&Apache::loncommon::show_course()
                 || !$env{'request.lti.login'});                  || $lti);
         next if    $$menuitem[4]        eq 'notlti'          next if    $$menuitem[4]        eq 'notlti'
                 && $lti;                  && $lti;
         next if    $$menuitem[4]        eq 'ltiexc'          next if    $$menuitem[4]        eq 'ltiexc'
Line 312  sub primary_menu { Line 315  sub primary_menu {
         if ($position eq '') {          if ($position eq '') {
             $position = 'right';              $position = 'right';
         }          }
           if ($env{'request.course.id'} && $menucoll) {
               if (($menuitem->[6]) && (!$menuopts{$menuitem->[6]})) {
                   if ($menuitem->[6] eq 'pers') {
                       if ($menuopts{'name'} && !$ltiexc{'fullname'} &&
                           $env{'user.name'} && $env{'user.domain'}) {
                           $menu{$position} .= '<li><a href="#">'.
                               &Apache::loncommon::plainname($env{'user.name'},
                                                             $env{'user.domain'}).'</a></li>';
                           next;
                       } else {
                           next;
                       }
                   } else {
                       next;
                   }
               }
           }
         if (defined($primary_submenu{$title})) {          if (defined($primary_submenu{$title})) {
             my ($link,$target);              my ($link,$target);
             if ($menuitem->[0] ne '') {              if ($menuitem->[0] ne '') {
Line 331  sub primary_menu { Line 351  sub primary_menu {
                              ($item->[2] eq 'blog')) &&                               ($item->[2] eq 'blog')) &&
                              (!&Apache::lonnet::usertools_access('','',$item->[2],                               (!&Apache::lonnet::usertools_access('','',$item->[2],
                                                            undef,'tools')));                                                             undef,'tools')));
                       if ($env{'request.course.id'} && $menucoll) {
                           next if ($item->[3]) && (!$menuopts{$item->[3]});
                       }
                     push(@primsub,$item);                      push(@primsub,$item);
                 }                  }
                 if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'} ) {                  if ($title eq 'Personal') {
                     unless ($ltiexc{'fullname'}) {                      if ($env{'user.name'} && $env{'user.domain'} && !$ltiexc{'fullname'}) {
                         $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});                          unless (($env{'request.course.id'}) && ($menucoll) && (!$menuopts{'name'})) {
                               $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
                           }
                     }                      }
                       next if (($env{'request.course.id'}) && ($menucoll) && ($title eq 'Personal') &&
                                (!@primsub));
                 } else {                  } else {
                     $title = &mt($title);                      $title = &mt($title);
                 }                  }
Line 360  sub primary_menu { Line 387  sub primary_menu {
             } else {              } else {
                 $menu{$position} .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';                  $menu{$position} .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
             }              }
           } elsif ($$menuitem[3] eq 'Log In') {
               if ($public) {
                   if (&Apache::lonnet::get_saml_landing()) {
                       $$menuitem[0] = '/adm/login';
                   }
               }
               $menu{$position} .= prep_menuitem($menuitem,$ltitarget);
         } else {          } else {
             $menu{$position} .= prep_menuitem($menuitem,$ltitarget);              $menu{$position} .= prep_menuitem($menuitem,$ltitarget);
         }          }
Line 400  sub getauthor{ Line 434  sub getauthor{
 }  }
   
 sub secondary_menu {  sub secondary_menu {
     my ($httphost,$ltiscope,$ltimenu,$noprimary) = @_;      my ($httphost,$ltiscope,$ltimenu,$noprimary,$menucoll,$menuref) = @_;
     my $menu;      my $menu;
   
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
Line 424  sub secondary_menu { Line 458  sub secondary_menu {
     my $canplc        = &Apache::lonnet::allowed('plc', $crs_sec);      my $canplc        = &Apache::lonnet::allowed('plc', $crs_sec);
     my $author        = &getauthor();      my $author        = &getauthor();
   
     my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools,$lti,$ltimapres,%ltiexc);      my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools,
           $lti,$ltimapres,%ltiexc,%menuopts);
     $grouptools = 0;      $grouptools = 0;
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 472  sub secondary_menu { Line 507  sub secondary_menu {
             }              }
         }          }
     }      }
       if (($menucoll) && (ref($menuref) eq 'HASH')) {
           %menuopts = %{$menuref};
       }
   
     my ($canmodifycoauthor);       my ($canmodifycoauthor); 
     if ($env{'request.role'} eq "au./$env{'user.domain'}/") {      if ($env{'request.role'} eq "au./$env{'user.domain'}/") {
Line 534  sub secondary_menu { Line 572  sub secondary_menu {
                 && $ltiexc{'logout'};                  && $ltiexc{'logout'};
   
         my $title = $menuitem->[3];          my $title = $menuitem->[3];
           if ($env{'request.course.id'} && $menucoll) {
               unless ($$menuitem[5] eq 'roles') {
                   next if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]}));
               }
           }
         if (defined($secondary_submenu{$title})) {          if (defined($secondary_submenu{$title})) {
             my ($link,$target);              my ($link,$target);
             if ($menuitem->[0] ne '') {              if ($menuitem->[0] ne '') {
                 $link = $menuitem->[0];                  $link = $menuitem->[0];
                 unless ($ltitarget eq 'iframe') {                     unless ($ltitarget eq 'iframe') {
                     $target = '_top';                      $target = '_top';
                 }                  }
             } else {              } else {
Line 568  sub secondary_menu { Line 611  sub secondary_menu {
                         push(@scndsub,$item);                          push(@scndsub,$item);
                     }                      }
                 }                  }
                 if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'} ) {                  if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'}) {
                     unless ($ltiexc{'fullname'}) {                      unless ($ltiexc{'fullname'}) {
                         $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});                          $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
                     }                      }
                 }                  }
                 if (@scndsub > 0) {                  if (@scndsub > 0) {
                     $menu .= &create_submenu($link,$target,$title,\@scndsub,1);                      $menu .= &create_submenu($link,$target,&mt($title),\@scndsub,1);
                 } elsif ($link ne '#') {                  } elsif ($link ne '#') {
                     $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';                      $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';
                 }                  }
             }              }
         } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {          } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
             # special treatment for role selector              # special treatment for role selector
             ($roleswitcher_js,$roleswitcher_form,my $switcher) =              my ($switcher,$has_opa_priv);
               ($roleswitcher_js,$roleswitcher_form,$switcher,$has_opa_priv) =
                 &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'},
                     $httphost,$ltitarget                      $httphost,$ltitarget
                 );                  );
               if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]})) {
                   next unless ($has_opa_priv);
               }
             $menu .= $switcher;              $menu .= $switcher;
         } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink          } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
             next if ($crstype eq 'Placement');              next if ($crstype eq 'Placement');
Line 604  sub secondary_menu { Line 651  sub secondary_menu {
                 }                  }
                 if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://}) {                  if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://}) {
                     if (($ENV{'SERVER_PORT'} == 443) || ($env{'request.use_absolute'} =~ m{^https://})) {                      if (($ENV{'SERVER_PORT'} == 443) || ($env{'request.use_absolute'} =~ m{^https://})) {
                         unless (&Apache::lonnet::uses_sts()) {                          unless ((&Apache::lonnet::uses_sts()) || (&Apache::lonnet::waf_allssl())) {
                             unless ($$menuitem[0] =~ m{^https?://}) {                              unless ($$menuitem[0] =~ m{^https?://}) {
                                 $$menuitem[0] = 'http://'.$ENV{'SERVER_NAME'}.$$menuitem[0];                                  $$menuitem[0] = 'http://'.$ENV{'SERVER_NAME'}.$$menuitem[0];
                             }                              }
Line 1283  sub prepare_functions { Line 1330  sub prepare_functions {
 # Determine whether or not to display 'Edit' or 'View Source' icon/button  # Determine whether or not to display 'Edit' or 'View Source' icon/button
 #  #
     if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {      if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
           my $blocked = &Apache::loncommon::blocking_status('about',$2,$1);
         my $file=&Apache::lonnet::declutter($env{'request.filename'});          my $file=&Apache::lonnet::declutter($env{'request.filename'});
         ($cfile,$home,$switchserver,$forceedit,$forceview) =          ($cfile,$home,$switchserver,$forceedit,$forceview) =
             &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,              &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
                 &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);                  &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
         if (($cfile) && ($home ne '') && ($home ne 'no_host')) {          if (($cfile) && ($home ne '') && ($home ne 'no_host') && (!$blocked)) {
             $editbutton = &get_editbutton($cfile,$home,$switchserver,              $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                           $forceedit,$forceview,$forcereg);                                            $forceedit,$forceview,$forcereg);
         }          }
Line 1400  sub prepare_functions { Line 1448  sub prepare_functions {
         if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {          if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
             my ($sdom,$sname) = ($1,$2);              my ($sdom,$sname) = ($1,$2);
             unless (&Apache::lonnet::is_course($sdom,$sname)) {              unless (&Apache::lonnet::is_course($sdom,$sname)) {
                 &switch('','',6,4,'mail-message-new-22x22.png','Message to user',                  my $blocked = &Apache::loncommon::blocking_status('about',$sname,$sdom);
                         '',                  unless ($blocked) {
                         "go('/adm/email?compose=individual&amp;recname=$sname&amp;recdom=$sdom')",                      &switch('','',6,4,'mail-message-new-22x22.png','Message to user',
                             'Send message to specific user');                              '',
                               "go('/adm/email?compose=individual&amp;recname=$sname&amp;recdom=$sdom')",
                                   'Send message to specific user');
                   }
             }              }
             my $hideprivileged = 1;              my $hideprivileged = 1;
             if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,              if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,
Line 2390  sub roles_selector { Line 2441  sub roles_selector {
     my $now = time;      my $now = time;
     my (%courseroles,%seccount,%courseprivs,%roledesc);      my (%courseroles,%seccount,%courseprivs,%roledesc);
     my $is_cc;      my $is_cc;
     my ($js,$form,$switcher);      my ($js,$form,$switcher,$has_opa_priv);
     my $ccrole;      my $ccrole;
     if ($crstype eq 'Community') {      if ($crstype eq 'Community') {
         $ccrole = 'co';          $ccrole = 'co';
Line 2511  sub roles_selector { Line 2562  sub roles_selector {
                 if ($env{'request.role'} =~ m{^\Q$role\E}) {                  if ($env{'request.role'} =~ m{^\Q$role\E}) {
                     if ($seccount{$role} > 1) {                      if ($seccount{$role} > 1) {
                         $include = 1;                          $include = 1;
                       } else {
                           if ($env{'user.priv.'.$env{'request.role'}."./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
                               $has_opa_priv = 1;
                           }
                     }                      }
                 } else {                  } else {
                     $include = 1;                      $include = 1;
                 }                  }
             }              }
             if ($include) {              if ($include) {
                   if ($env{"user.priv.$role./$cdom/$cnum./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
                       $has_opa_priv = 1;
                   }
                 push(@submenu,['javascript:adhocRole('."'$role'".')',                  push(@submenu,['javascript:adhocRole('."'$role'".')',
                                &Apache::lonnet::plaintext($role,$crstype)]);                                 &Apache::lonnet::plaintext($role,$crstype)]);
             }              }
Line 2541  sub roles_selector { Line 2599  sub roles_selector {
                     } else {                      } else {
                         $rolename = &Apache::lonnet::plaintext($role);                          $rolename = &Apache::lonnet::plaintext($role);
                     }                      }
                       if ($env{"user.priv.$role./$cdom/$cnum./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
                           $has_opa_priv = 1;
                       }
                     push(@submenu,['javascript:adhocRole('."'$role'".')',                      push(@submenu,['javascript:adhocRole('."'$role'".')',
                                    $rolename]);                                     $rolename]);
                 }                  }
Line 2550  sub roles_selector { Line 2611  sub roles_selector {
             $switcher = &create_submenu('','',&mt('Switch role'),\@submenu,'','',$ltitarget);              $switcher = &create_submenu('','',&mt('Switch role'),\@submenu,'','',$ltitarget);
         }          }
     }      }
     return ($js,$form,$switcher);      return ($js,$form,$switcher,$has_opa_priv);
 }  }
   
 sub get_all_courseroles {  sub get_all_courseroles {
Line 2998  BEGIN { Line 3059  BEGIN {
                         $category_positions{$entries[2]}=$entries[1];                          $category_positions{$entries[2]}=$entries[1];
                         $category_names{$entries[2]}=$entries[3];                          $category_names{$entries[2]}=$entries[3];
                     } elsif ($configline=~/^prim\:/) {                      } elsif ($configline=~/^prim\:/) {
                         my @entries = (split(/\:/, $configline))[1..6];                          my @entries = (split(/\:/, $configline))[1..7];
                         push(@primary_menu,\@entries);                          push(@primary_menu,\@entries);
                     } elsif ($configline=~/^primsub\:/) {                      } elsif ($configline=~/^primsub\:/) {
                         my ($parent,@entries) = (split(/\:/, $configline))[1..4];                          my ($parent,@entries) = (split(/\:/, $configline))[1..5];
                         push(@{$primary_submenu{$parent}},\@entries);                          push(@{$primary_submenu{$parent}},\@entries);
                     } elsif ($configline=~/^scnd\:/) {                      } elsif ($configline=~/^scnd\:/) {
                         my @entries = (split(/\:/, $configline))[1..5];                          my @entries = (split(/\:/, $configline))[1..6];
                         push(@secondary_menu,\@entries);                          push(@secondary_menu,\@entries);
                     } elsif ($configline=~/^scndsub\:/) {                      } elsif ($configline=~/^scndsub\:/) {
                         my ($parent,@entries) = (split(/\:/, $configline))[1..4];                          my ($parent,@entries) = (split(/\:/, $configline))[1..4];
Removed from v.1.503  
changed lines
  Added in v.1.510

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