[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.16

version 1.369.2.83.2.13, 2023/12/29 19:53:25 version 1.369.2.83.2.16, 2024/01/02 14:14:47
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 2158  sub switch { Line 2158  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 2208  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.16

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