[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.83.2.13 and 1.369.2.83.2.18

version 1.369.2.83.2.13, 2023/12/29 19:53:25 version 1.369.2.83.2.18, 2024/02/28 19:08:32
Line 266  sub prep_menuitem { Line 266  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,$menucoll,$menuref,$links_disabled,$links_target) = @_;      my ($crstype,$ltimenu,$menucoll,$menuref,$links_disabled,$links_target,$collapsible) = @_;
     my (%menu,%ltiexc,%menuopts);      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)
Line 370  sub primary_menu { Line 370  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 ($item->[2] eq 'browsepub') {                      if (($item->[2] eq 'browsepub') && ($item->[0] eq '/res/')) {
                         if ($env{'request.role'} =~ /^au\./) {                          if ($env{'request.role'} =~ /^au\./) {
                             $item->[0] = '/res/'.$env{'request.role.domain'}.'/?launch=1';                              $item->[0] .= $env{'request.role.domain'}.'/?launch=1';
                         } elsif ($env{'request.role'} =~ /^ca\./($match_domain)/($match_user)$/) {                          } elsif ($env{'request.role'} =~ m{^ca\./($match_domain)/($match_username)$}) {
                             $item->[0] = '/res/'.$1.'/'.$2.'/?launch=1';                              $item->[0] .= $1.'/'.$2.'/?launch=1';
                         } elsif (&Apache::lonnet::allowed('bre',$env{'user.domain'})) {                          } elsif (&Apache::lonnet::allowed('bre',$env{'user.domain'})) {
                             $item->[0] = '/res/'.$env{'user.domain'}.'/?launch=1';                              $item->[0] .= $env{'user.domain'}.'/?launch=1';
                         } elsif (&Apache::lonnet::allowed('bro','/res/')) {                          } elsif (&Apache::lonnet::allowed('bro','/res/')) {
                             $item->[0] = '/res/?launch=1';                              $item->[0] .= '?launch=1';
                         } else {                          } else {
                             next;                              next;
                         }                          }
Line 437  sub primary_menu { Line 437  sub primary_menu {
     }      }
     my @output = ('','');      my @output = ('','');
     if ($menu{'left'} ne '') {      if ($menu{'left'} ne '') {
           if ($collapsible) {
               $menu{'left'} = ($listclass?'<li class="'.$listclass.'">':'<li>').
                               '&nbsp;</li>'.$menu{'left'};
           }
         $output[0] = "<ol class=\"LC_primary_menu LC_floatleft\">$menu{'left'}</ol>";          $output[0] = "<ol class=\"LC_primary_menu LC_floatleft\">$menu{'left'}</ol>";
     }      }
     if ($menu{'right'} ne '') {      if ($menu{'right'} ne '') {
Line 1331  s&2&1&back.png&&&gopost('/adm/flip','bac Line 1335  s&2&1&back.png&&&gopost('/adm/flip','bac
 s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3";  s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3";
             }              }
             $menuitems .= (<<ENDMENUITEMS);              $menuitems .= (<<ENDMENUITEMS);
   
 c&6&3  c&6&3
 c&8&2  c&8&2
 s&8&3&prt.png&$swtext{'prt'}&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document  s&8&3&prt.png&$swtext{'prt'}&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
Line 2158  sub switch { Line 2163  sub switch {
                       '" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';                        '" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';
            $inlineremote[$idx] =             $inlineremote[$idx] =
                '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.                 '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.
                $pic.'<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>'.$form;                 $pic.'<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';
         }          }
 # Remote  # Remote
         $img=~s/\.png$/\.gif/;          $img=~s/\.png$/\.gif/;
Line 2208  sub switch { Line 2213  sub switch {
         } else {          } else {
             $inlineremote[$idx] =              $inlineremote[$idx] =
        '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.         '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
        '<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';         '<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>'.$form;
         }          }
     }      }
     return '';      return '';
Removed from v.1.369.2.83.2.13  
changed lines
  Added in v.1.369.2.83.2.18

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