[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.10 and 1.369.2.83.4.1

version 1.369.2.83.2.10, 2023/09/06 16:05:23 version 1.369.2.83.4.1, 2022/03/25 21:25:37
Line 99  It gets filled in the BEGIN block of thi Line 99  It gets filled in the BEGIN block of thi
   
 =over  =over
   
 =item prep_menuitems(\@menuitem,$target,$listclass,$linkattr)  =item prep_menuitems(\@menuitem)
   
 This routine wraps a menuitem in proper HTML. It is used by primary_menu() and   This routine wraps a menuitem in proper HTML. It is used by primary_menu() and 
 secondary_menu().  secondary_menu().
Line 240  use vars qw(@desklines %category_names % Line 240  use vars qw(@desklines %category_names %
 my @inlineremote;  my @inlineremote;
   
 sub prep_menuitem {  sub prep_menuitem {
     my ($menuitem,$target,$listclass,$linkattr) = @_;      my ($menuitem,$listclass,$linkattr) = @_;
     return '' unless(ref($menuitem) eq 'ARRAY');      return '' unless(ref($menuitem) eq 'ARRAY');
     my ($link,$targetattr);      my $link;
     if ($$menuitem[1]) { # graphical Link      if ($$menuitem[1]) { # graphical Link
         $link = "<img class=\"LC_noBorder\""          $link = "<img class=\"LC_noBorder\""
               . " src=\"" . &Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\""                 . " src=\"" . &Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\"" 
Line 250  sub prep_menuitem { Line 250  sub prep_menuitem {
     } else {             # textual Link      } else {             # textual Link
         $link = &mt($$menuitem[3]);          $link = &mt($$menuitem[3]);
     }      }
     if ($target ne '') {  
         $targetattr = ' target="'.$target.'"';  
     }  
     return ($listclass?'<li class="'.$listclass.'">':'<li>').'<a'      return ($listclass?'<li class="'.$listclass.'">':'<li>').'<a'
            # highlighting for new messages             # highlighting for new messages
            . ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '')              . ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '') 
            . qq| href="$$menuitem[0]"$targetattr $linkattr>$link</a></li>|;             . qq| href="$$menuitem[0]" target="_top" $linkattr>$link</a></li>|;
 }  }
   
 # primary_menu() evaluates @primary_menu and returns a two item array,  # primary_menu() evaluates @primary_menu and returns a two item array,
Line 266  sub prep_menuitem { Line 263  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 ($links_disabled) = @_;
     my (%menu,%ltiexc,%menuopts);      my %menu;
     # 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 275  sub primary_menu { Line 272  sub primary_menu {
         || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {          || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
         $public = 1;          $public = 1;
     }      }
     my $lti;  
     if ($env{'request.lti.login'}) {  
         $lti = 1;  
         if (ref($ltimenu) eq 'HASH') {  
             foreach my $item ('fullname','logout') {  
                 unless ($ltimenu->{$item}) {  
                     $ltiexc{$item} = 1;  
                 }  
             }  
         }  
     }  
     my ($listclass,$linkattr,$target);  
     if ($links_disabled) {  
         $listclass = 'LCisDisabled';  
         $linkattr = 'aria-disabled="true"';  
     }  
     if ($links_target ne '') {  
         $target = $links_target;  
     } else {      
         my ($ltitarget,$deeplinktarget);  
         if ($env{'request.lti.login'}) {  
              $ltitarget = $env{'request.lti.target'};  
         }  
         if ($env{'request.deeplink.login'}) {  
             $deeplinktarget = $env{'request.deeplink.target'};  
         }  
         if (($ltitarget eq 'iframe') || ($deeplinktarget eq '_self')) {  
             $target = '_self';  
         } else {  
             $target = '_top';  
         }  
     }  
     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 324  sub primary_menu { Line 286  sub primary_menu {
                 && !$public;                           # only visible to public                  && !$public;                           # only visible to public
                                                        # 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 
                 || $lti);                              ##'Roles' wanted          next if    $$menuitem[4]        eq 'courses'   ##'Roles' wanted
         next if    $$menuitem[4]        eq 'courses'   ##and not LTI access                  && !&Apache::loncommon::show_course(); ##
                 && (!&Apache::loncommon::show_course()          
                 || $lti);  
         next if    $$menuitem[4]        eq 'notlti'  
                 && $lti;  
         next if    $$menuitem[4]        eq 'ltiexc'  
                 && exists($ltiexc{lc($menuitem->[3])});  
         my $title = $menuitem->[3];          my $title = $menuitem->[3];
         my $position = $menuitem->[5];          my $position = $menuitem->[5];
         if ($position eq '') {          if ($position eq '') {
             $position = 'right';              $position = 'right';
         }          }
         if ($env{'request.course.id'} && $menucoll) {          my ($listclass,$linkattr);
             if (($menuitem->[6]) && (!$menuopts{$menuitem->[6]})) {          if ($links_disabled) {
                 if ($menuitem->[6] eq 'pers') {              $listclass = 'LCisDisabled';
                     if ($menuopts{'name'} && !$ltiexc{'fullname'} &&              $linkattr = 'aria-disabled="true"';
                         $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;              my ($link,$target);
             if ($menuitem->[0] ne '') {              if ($menuitem->[0] ne '') {
                 $link = $menuitem->[0];                  $link = $menuitem->[0];
                   $target = '_top';
             } else {              } else {
                 $link = '#';                  $link = '#';
             }              }
Line 370  sub primary_menu { Line 316  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') {                  if (@primsub > 0) {
                     if ($env{'user.name'} && $env{'user.domain'} && !$ltiexc{'fullname'}) {                      if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'} ) {
                         unless (($env{'request.course.id'}) && ($menucoll) && (!$menuopts{'name'})) {                          $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
                             $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});                      } else {
                         }  
                     }  
                     next if (($env{'request.course.id'}) && ($menucoll) && ($title eq 'Personal') &&  
                              (!@primsub));  
                     if ($title eq 'Personal') {  
                         $title = &mt($title);                          $title = &mt($title);
                     }                      }
                 } else {  
                     $title = &mt($title);  
                 }  
                 if (@primsub > 0) {  
                     $menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1,undef,$listclass,$linkattr);                      $menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1,undef,$listclass,$linkattr);
                 } elsif ($link) {                  } elsif ($link) {
                     $menu{$position} .= ($listclass?'<li class="'.$listclass.'">':'<li>').                      $menu{$position} .= ($listclass?'<li class="'.$listclass.'">':'<li>').
                                         '<a href="'.$link.'" target="'.$target.'" '.$linkattr.'>'.$title.'</a></li>';                                          '<a href="'.$link.'" target="'.$target.'" '.$linkattr.'>'.&mt($title).'</a></li>';
                 }                  }
             }              }
         } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink          } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
Line 404  sub primary_menu { Line 338  sub primary_menu {
                                                                   'helpdeskmail',                                                                    'helpdeskmail',
                                                                   $defdom,$origmail);                                                                    $defdom,$origmail);
                 if ($to ne '') {                  if ($to ne '') {
                     $menu{$position} .= &prep_menuitem($menuitem,$target,$listclass,$linkattr);                       $menu{$position} .= &prep_menuitem($menuitem,$listclass,$linkattr); 
                 }                  }
             } else {              } else {
                 $menu{$position} .= ($listclass?'<li class="'.$listclass.'">':'<li>').                  $menu{$position} .= ($listclass?'<li class="'.$listclass.'">':'<li>').
Line 417  sub primary_menu { Line 351  sub primary_menu {
                     $$menuitem[0] = '/adm/login';                      $$menuitem[0] = '/adm/login';
                 }                  }
             }              }
             $menu{$position} .= prep_menuitem($menuitem,$target,$listclass,$linkattr);              $menu{$position} .= prep_menuitem($menuitem,$listclass,$linkattr);
         } else {          } else {
             $menu{$position} .= prep_menuitem($menuitem,$target,$listclass,$linkattr);              $menu{$position} .= prep_menuitem($menuitem,$listclass,$linkattr);
         }          }
     }      }
     my @output = ('','');      my @output = ('','');
Line 458  sub getauthor{ Line 392  sub getauthor{
 }  }
   
 sub secondary_menu {  sub secondary_menu {
     my ($httphost,$ltiscope,$ltimenu,$noprimary,$menucoll,$menuref,      my ($httphost,$links_disabled) = @_;
         $links_disabled,$links_target) = @_;  
     my $menu;      my $menu;
   
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
Line 480  sub secondary_menu { Line 413  sub secondary_menu {
     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 $canplc        = &Apache::lonnet::allowed('plc', $crs_sec);  
     my $author        = &getauthor();      my $author        = &getauthor();
   
     my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools,      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 518  sub secondary_menu { Line 449  sub secondary_menu {
                 }                  }
             }              }
         }          }
         if ($env{'request.lti.login'}) {  
             $lti = 1;  
             if (ref($ltimenu) eq 'HASH') {  
                 foreach my $item ('fullname','coursetitle','role','logout','grades') {  
                     unless ($ltimenu->{$item}) {  
                         $ltiexc{$item} = 1;  
                     }  
                 }  
             }  
             if (($ltiscope eq 'map') || ($ltiscope eq 'resource')) {  
                 $ltimapres = 1;  
             }  
         }  
     }  
     if (($menucoll) && (ref($menuref) eq 'HASH')) {  
         %menuopts = %{$menuref};  
     }      }
   
     my ($listclass,$linkattr,$target);      my ($listclass,$linkattr);
     if ($links_disabled) {      if ($links_disabled) {
         $listclass = 'LCisDisabled';          $listclass = 'LCisDisabled';
         $linkattr = 'aria-disabled="true"';          $linkattr = 'aria-disabled="true"';
Line 552  sub secondary_menu { Line 467  sub secondary_menu {
     }      }
   
     my ($roleswitcher_js,$roleswitcher_form);      my ($roleswitcher_js,$roleswitcher_form);
     if ($links_target ne '') {  
         $target = $links_target;  
     } else {  
         my ($ltitarget,$deeplinktarget);  
         if ($env{'request.lti.login'}) {  
             $ltitarget = $env{'request.lti.target'};  
         }  
         if ($env{'request.deeplink.login'}) {  
             $deeplinktarget = $env{'request.deeplink.target'};  
         }  
         if (($ltitarget eq 'iframe') || ($deeplinktarget eq '_self')) {  
             $target = '_self';  
         } else {  
             $target = '_top';  
         }  
     }  
   
     foreach my $menuitem (@secondary_menu) {      foreach my $menuitem (@secondary_menu) {
         # evaluate conditions           # evaluate conditions 
Line 582  sub secondary_menu { Line 481  sub secondary_menu {
         next if    $$menuitem[4]  eq 'crseditCommunity'          next if    $$menuitem[4]  eq 'crseditCommunity'
                 && ($crstype eq 'Course');                  && ($crstype eq 'Course');
         next if    $$menuitem[4]  eq 'nvgr'          next if    $$menuitem[4]  eq 'nvgr'
                 && ($canvgr || $ltiexc{'grades'});                  && $canvgr;
         next if    $$menuitem[4]  eq 'vgr'          next if    $$menuitem[4]  eq 'vgr'
                 && !$canvgr;                  && !$canvgr;
         next if    $$menuitem[4]   eq 'viewusers'          next if    $$menuitem[4]   eq 'viewusers'
Line 603  sub secondary_menu { Line 502  sub secondary_menu {
                 && !$showsyllabus;                  && !$showsyllabus;
         next if    $$menuitem[4]   eq 'showfeeds'          next if    $$menuitem[4]   eq 'showfeeds'
                 && !$showfeeds;                  && !$showfeeds;
         next if     $$menuitem[4]  eq 'plc'  
                 && !$canplc;  
         next if    $$menuitem[4]    eq 'author'          next if    $$menuitem[4]    eq 'author'
                 && !$author;                  && !$author;
         next if    $$menuitem[4]    eq 'cca'          next if    $$menuitem[4]    eq 'cca'
                 && !$canmodifycoauthor;                  && !$canmodifycoauthor;
         next if    $$menuitem[4]    eq 'notltimapres'  
                 && $ltimapres;  
         next if    $$menuitem[4]    eq 'notlti'  
                 && $lti;  
         next if    $$menuitem[4]    eq 'lti'  
                 && (!$lti || !$noprimary);  
         next if    $$menuitem[3]    eq 'Logout'  
                 && $ltiexc{'logout'};  
   
         my $title = $menuitem->[3];          my $title = $menuitem->[3];
         if ($env{'request.course.id'} && $menucoll) {  
             if ($$menuitem[5] eq 'main') {  
                 next if ($menuopts{$$menuitem[5]} eq 'n');  
             } elsif ($$menuitem[5] ne 'roles') {  
                 next if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]}));  
             }  
         }  
         if (defined($secondary_submenu{$title})) {          if (defined($secondary_submenu{$title})) {
             my $link;              my ($link,$target);
             if ($menuitem->[0] ne '') {              if ($menuitem->[0] ne '') {
                 $link = $menuitem->[0];                  $link = $menuitem->[0];
                   $target = '_top';
             } else {              } else {
                 $link = '#';                  $link = '#';
             }              }
Line 647  sub secondary_menu { Line 530  sub secondary_menu {
                         next if ($item->[2] eq 'params' && !$canmodpara && !$canviewpara);                          next if ($item->[2] eq 'params' && !$canmodpara && !$canviewpara);
                         next if ($item->[2] eq 'author' && !$author);                          next if ($item->[2] eq 'author' && !$author);
                         next if ($item->[2] eq 'cca' && !$canmodifycoauthor);                          next if ($item->[2] eq 'cca' && !$canmodifycoauthor);
                         next if ($item->[2] eq 'lti' && !$lti);  
                         if ($item->[2] =~ /^lti(portfolio|wishlist|blog)$/) {  
                             my $tool = $1;  
                             next if !$lti;  
                             next if (!&Apache::lonnet::usertools_access('','',$tool,  
                                                                         undef,'tools'));  
                         }  
                         push(@scndsub,$item);                           push(@scndsub,$item); 
                     }                      }
                 }                  }
                 if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'}) {  
                     unless ($ltiexc{'fullname'}) {  
                         $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});  
                     }  
                 }  
                 if (@scndsub > 0) {                  if (@scndsub > 0) {
                     $menu .= &create_submenu($link,$target,&mt($title),\@scndsub,1,undef,                      $menu .= &create_submenu($link,$target,&mt($title),\@scndsub,1,undef,
                                              $listclass,$linkattr);                                               $listclass,$linkattr);
Line 673  sub secondary_menu { Line 544  sub secondary_menu {
             }              }
         } 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
             my ($switcher,$has_opa_priv);              ($roleswitcher_js,$roleswitcher_form,my $switcher) =
             ($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,$target,$menucoll,$menuref                          $httphost
                 );                  );
             if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]})) {  
                 next unless ($has_opa_priv);  
             }  
             $menu .= $switcher;              $menu .= $switcher;
         } else {          } else {
             if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) {              if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) {
Line 709  sub secondary_menu { Line 576  sub secondary_menu {
                 }                  }
                 $$menuitem[0] = &HTML::Entities::encode($$menuitem[0],'&<>"');                  $$menuitem[0] = &HTML::Entities::encode($$menuitem[0],'&<>"');
             }              }
             $menu .= &prep_menuitem(\@$menuitem,$target,$listclass,$linkattr);              $menu .= &prep_menuitem(\@$menuitem,$listclass,$linkattr);
         }          }
     }      }
     if ($menu =~ /\[url\].*\[symb\]/) {      if ($menu =~ /\[url\].*\[symb\]/) {
Line 732  sub secondary_menu { Line 599  sub secondary_menu {
     }      }
     $menu =~ s/\[uname\]/$$author{user}/g;      $menu =~ s/\[uname\]/$$author{user}/g;
     $menu =~ s/\[udom\]/$$author{dom}/g;      $menu =~ s/\[udom\]/$$author{dom}/g;
     $menu =~ s/\[javascript\]/javascript:/g;  
     if ($env{'request.course.id'}) {        if ($env{'request.course.id'}) {  
         $menu =~ s/\[cnum\]/$cnum/g;          $menu =~ s/\[cnum\]/$cnum/g;
         $menu =~ s/\[cdom\]/$cdom/g;          $menu =~ s/\[cdom\]/$cdom/g;
Line 749  sub secondary_menu { Line 615  sub secondary_menu {
 sub create_submenu {  sub create_submenu {
     my ($link,$target,$title,$submenu,$translate,$addclass,$listclass,$linkattr) = @_;      my ($link,$target,$title,$submenu,$translate,$addclass,$listclass,$linkattr) = @_;
     return unless (ref($submenu) eq 'ARRAY');      return unless (ref($submenu) eq 'ARRAY');
     my $targetattr;      my $disptarget;
     if (($target ne '') && ($link ne '#')) {      if ($target ne '') {
         $targetattr = ' target="'.$target.'"';          $disptarget = ' target="'.$target.'"';
     }      }
     my $menu = '<li class="LC_hoverable '.$addclass.'">'.      my $menu = '<li class="LC_hoverable '.$addclass.'">'.
                '<a href="'.$link.'"'.$targetattr.'>'.                 '<a href="'.$link.'"'.$disptarget.'>'.
                '<span class="LC_nobreak">'.$title.                 '<span class="LC_nobreak">'.$title.
                '<span class="LC_fontsize_small" style="font-weight:normal;">'.                 '<span class="LC_fontsize_small" style="font-weight:normal;">'.
                ' &#9660;</span></span></a>'.                 ' &#9660;</span></span></a>'.
Line 831  sub build_submenu { Line 697  sub build_submenu {
                     }                      }
                     $href =~ s/\[returnurl\]/$returnurl/;                      $href =~ s/\[returnurl\]/$returnurl/;
                 }                  }
                 my $targetattr;  
                 unless (($href eq '') || ($href =~ /^\#/)) {                  unless (($href eq '') || ($href =~ /^\#/)) {
                     if ($target ne '') {                      $target = ' target="_top"';
                         $targetattr = ' target="'.$target.'"';  
                     }  
                 }                  }
   
                 $menu .= '<li ';                  $menu .= '<li ';
                 $menu .= ($listclass?'class="'.$listclass.'" ':'');                  $menu .= ($listclass?'class="'.$listclass.'" ':'');
                 $menu .= 'style="margin:0;padding:0;'. $bordertop . $borderbot .'">';                  $menu .= 'style="margin:0;padding:0;'. $bordertop . $borderbot .'">';
                 $menu .= '<a href="'.$href.'"'.$targetattr.' '.$linkattr.'>' .  $title . '</a>';                  $menu .= '<a href="'.$href.'"'.$target.' '.$linkattr.'>' .  $title . '</a>';
                 $menu .= '</li>';                  $menu .= '</li>';
             }              }
         }          }
Line 878  sub registerurl { Line 741  sub registerurl {
 }  }
   
 sub innerregister {  sub innerregister {
     my ($forcereg,$bread_crumbs,$group,$pagebuttonshide,$hostname,      my ($forcereg,$bread_crumbs,$group,$pagebuttonshide,$hostname) = @_;
         $ltiscope,$ltiuri,$showncrumbsref) = @_;  
     my $const_space = ($env{'request.state'} eq 'construct');      my $const_space = ($env{'request.state'} eq 'construct');
     my $is_const_dir = 0;      my $is_const_dir = 0;
   
Line 920  sub innerregister { Line 782  sub innerregister {
             my $restitle = &Apache::lonnet::gettitle($symb);              my $restitle = &Apache::lonnet::gettitle($symb);
   
             my (@crumbs,@mapcrumbs);              my (@crumbs,@mapcrumbs);
             if (($env{'request.noversionuri'} ne '/adm/navmaps') && ($mapurl ne '')) {               if (($env{'request.noversionuri'} ne '/adm/navmaps') && ($mapurl ne '') &&
                 unless ($ltiscope eq 'resource') {                  ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'})) {
                     if (($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) &&                  $navmap = Apache::lonnavmaps::navmap->new();
                         !(($ltiscope eq 'map') && (&Apache::lonnet::clutter($resurl) eq $ltiuri))) {                  if (ref($navmap)) {
                         $navmap = Apache::lonnavmaps::navmap->new();                      @mapcrumbs = $navmap->recursed_crumbs($mapurl,$restitle);
                         if (ref($navmap)) {  
                             @mapcrumbs = $navmap->recursed_crumbs($mapurl,$restitle);  
                         }  
                     }  
                 }                  }
             }              }
             unless (($ltiscope eq 'map') || ($ltiscope eq 'resource')) {              unless (($forcereg) && 
                       ($env{'request.noversionuri'} eq '/adm/navmaps') &&
                       ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
                 @crumbs = ({text  => $crstype.' Contents',                   @crumbs = ({text  => $crstype.' Contents', 
                             href  => "Javascript:gopost('/adm/navmaps','')"});                              href  => "Javascript:gopost('/adm/navmaps','')"});
             }              }
             if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {               if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { 
                 if (@mapcrumbs) {                  if (@mapcrumbs) {
                     push(@crumbs,@mapcrumbs);                      push(@crumbs,@mapcrumbs);
                 } elsif (($ltiscope ne 'map') && ($ltiscope ne 'resource')) {                  } else {
                     push(@crumbs, {text  => '...',                      push(@crumbs, {text  => '...',
                                    no_mt => 1});                                     no_mt => 1});
                 }                  }
             }              }
   
             unless ((@mapcrumbs) || (!$maptitle) || ($maptitle eq 'default.sequence') ||              unless ((@mapcrumbs) || (!$maptitle) || ($maptitle eq 'default.sequence') ||
                     ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'}) ||                      ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
                     ($ltiscope eq 'resource')) {   
                 push @crumbs, {text => $maptitle, no_mt => 1,                  push @crumbs, {text => $maptitle, no_mt => 1,
                                href => &Apache::lonnet::clutter($mapurl).'?navmap=1'};                                 href => &Apache::lonnet::clutter($mapurl).'?navmap=1'};
             }              }
Line 975  sub innerregister { Line 834  sub innerregister {
                 if ($env{'form.title'}) {                  if ($env{'form.title'}) {
                     $title = $env{'form.title'};                      $title = $env{'form.title'};
                 }                  }
                 my ($trail,$cnum,$cdom);                  my $trail;
                 if ($env{'form.folderpath'}) {  
                     $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
                     $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
                     &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);  
                 }  
                 if ($env{'form.folderpath'}) {                  if ($env{'form.folderpath'}) {
                     &prepare_functions($resurl,$forcereg,$group,undef,undef,1,$hostname);                      &prepare_functions($resurl,$forcereg,$group,undef,undef,1,$hostname);
                     $title = &HTML::Entities::encode($title,'\'"<>&');  
                     ($trail) =                      ($trail) =
                         &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);                          &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                 } else {                  } else {
                     &Apache::lonhtmlcommon::add_breadcrumb(                      &Apache::lonhtmlcommon::add_breadcrumb(
                     {text  => "Supplemental $crstype Content",                      {text  => "Supplemental $crstype Content",
                      href  => "javascript:gopost('/adm/supplemental','')"});                       href  => "javascript:gopost('/adm/supplemental','')"});
                     $title = &HTML::Entities::encode(&mt('View Resource'),'\'"<>&');                      $title = &mt('View Resource');
                     ($trail) =                      ($trail) =
                         &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);                          &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                 }  
                 if (ref($showncrumbsref)) {  
                     $$showncrumbsref = 1;  
                 }                  }
                 return $trail;                  return $trail;
             } elsif ($resurl =~ m{^\Q/uploaded$courseurl/portfolio/syllabus/}) {              } elsif ($resurl =~ m{^\Q/uploaded$courseurl/portfolio/syllabus/}) {
                 &Apache::lonhtmlcommon::clear_breadcrumbs();                  &Apache::lonhtmlcommon::clear_breadcrumbs();
                 &prepare_functions('/public'.$courseurl."/syllabus",                  &prepare_functions('/public'.$courseurl."/syllabus",
                                    $forcereg,$group,undef,undef,1,$hostname);                                     $forcereg,$group,undef,undef,1,$hostname);
                 $title = &HTML::Entities::encode(&mt('Syllabus File'),'\'"<>&');                    $title = &mt('Syllabus File');
                 my ($trail) =                  my ($trail) =
                     &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,1);                      &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1,$hostname);
                 if (ref($showncrumbsref)) {  
                     $$showncrumbsref = 1;  
                 }  
                 return $trail;                  return $trail;
             }              }
             unless ($env{'request.state'} eq 'construct') {              unless ($env{'request.state'} eq 'construct') {
Line 1059  sub innerregister { Line 906  sub innerregister {
             $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});              $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
             $perms{'cev'} = &Apache::lonnet::allowed('cev',$env{'request.course.id'});              $perms{'cev'} = &Apache::lonnet::allowed('cev',$env{'request.course.id'});
             my @privs;              my @privs;
             my $gradable_exttool;  
             if ($env{'request.symb'} ne '') {              if ($env{'request.symb'} ne '') {
                 if ($env{'request.noversionuri'} =~ m{^/adm/$cdom/$cnum/(\d+)/ext\.tool$}) {                  if ($env{'request.filename'}=~/$LONCAPA::assess_re/) {
                     if (&Apache::lonnet::EXT('resource.0.gradable') =~ /^yes$/i) {  
                         $gradable_exttool = 1;  
                          push(@privs,('mgr','vgr'));  
                     }  
                 } elsif ($env{'request.filename'}=~/$LONCAPA::assess_re/) {  
                     push(@privs,('mgr','vgr'));                      push(@privs,('mgr','vgr'));
                 }                  }
                 push(@privs,('opa','vpa'));                  push(@privs,('opa','vpa'));
Line 1081  sub innerregister { Line 922  sub innerregister {
 #  #
 # Determine whether or not to show Grades and Submissions buttons  # Determine whether or not to show Grades and Submissions buttons
 #  #
             if (($env{'request.symb'} ne '') &&              if ($env{'request.symb'} ne '' &&
                 (($env{'request.filename'}=~/$LONCAPA::assess_re/) || ($gradable_exttool))) {                  $env{'request.filename'}=~/$LONCAPA::assess_re/) {
                 if ($perms{'mgr'}) {                  if ($perms{'mgr'}) {
                     $hwkadd.= &switch('','',7,2,'pgrd.png','Content Grades',                      $hwkadd.= &switch('','',7,2,'pgrd.png','Content Grades',
                                       'grades[_4]',                                        'grades[_4]',
Line 1117  sub innerregister { Line 958  sub innerregister {
                                    'Folder/Page Content');                                     'Folder/Page Content');
             }              }
 # End modifiable folder/page container check  # End modifiable folder/page container check
   
 #  
 # Determine whether to show View As button for shortcut to display problem, answer, and submissions  
 #  
   
         if (($env{'request.symb'} ne '') &&  
             ($env{'request.filename'}=~/$LONCAPA::assess_re/) &&  
             (($perms{'mgr'}) || ($perms{'vgr'}))) {  
             my ($viewas,$text,$change,$visibility,$vuname,$vudom,$vid,$leftvis,$defdom,$righticon);  
             my %lt = &Apache::lonlocal::texthash(  
                                                  view => 'View',  
                                                  upda => 'Update',  
             );  
             if ($env{'request.user_in_effect'} =~ /^($match_username):($match_domain)$/) {  
                 ($vuname,$vudom) = ($1,$2);  
                 unless (&Apache::lonnet::is_advanced_user($vudom,$vuname)) {  
                     $vid = (&Apache::lonnet::idrget($vudom,$vuname))[1];  
                 }  
                 $viewas = $env{'request.user_in_effect'};  
                 $text = $lt{'upda'};  
                 $change = 'off';  
                 $visibility = 'inline';  
                 $leftvis = 'none';  
                 $defdom = $vudom;  
                 $righticon = '&#10006;';  
             } else {  
                 $text = $lt{'view'};  
                 $change = 'on';  
                 $visibility = 'none';  
                 $leftvis = 'inline';  
                 $defdom = $cdom;  
             }  
             my $sellink = &Apache::loncommon::selectstudent_link('userview','vuname','vudom');  
             my $selscript=&Apache::loncommon::studentbrowser_javascript();  
             my $shownsymb = &HTML::Entities::encode(&Apache::lonenc::check_encrypt($env{'request.symb'}),'<>&"');  
             my $input = &mt('User: [_1] or ID: [_2] at: [_3]',  
                             '<input name="vuname" type="text" size="8" value="'.$vuname.'" />',  
                             '<input name="vid" type="text" size="8" value="'.$vid.'" />',  
                             &Apache::loncommon::select_dom_form($defdom,'vudom')).  
                             '<input name="LC_viewas" type="hidden" value="'.$viewas.'" />',  
                             '<input name="symb" type="hidden" value="'.$shownsymb.'" />';  
             my $chooser = <<END;  
 $selscript  
 <a href="javascript:toggleViewAsUser('$change');" class="LC_menubuttons_link">  
 <span id="usexpand" class="LC_menubuttons_inline_text" style="display:$leftvis">&#9658;&nbsp;</span>  
 </a>  
 <fieldset id="LC_selectuser" style="display:$visibility">  
 <form name="userview" action="" method="post" onsubmit="event.preventDefault(); return validCourseUser(this,'$change');">  
 <span class="LC_menubuttons_inline_text LC_nobreak">  
 $input  
 $sellink  
 </span>  
 &nbsp;<input type="submit" value="$text" />  
 </form>  
 </fieldset>  
 <a href="javascript:toggleViewAsUser('$change');" class="LC_menubuttons_link">  
 <span id="uscollapse" class="LC_menubuttons_inline_text">$righticon</span>  
 </a>  
 END  
             &switch('','',7,5,'viewuser.png','View As','user[_1]',  
                     'toggleViewAsUser('."'$change'".')',  
                     'View As','','',$chooser);  
         }  
 # End view as user check  
   
         }          }
 # End course context  # End course context
   
Line 1232  ENDMENUITEMS Line 1008  ENDMENUITEMS
 # We are in a course and looking at a registered URL  # We are in a course and looking at a registered URL
 # Should probably be in mydesk.tab  # Should probably be in mydesk.tab
 #  #
             $menuitems = "c&3&1";  
             if ($ltiscope eq 'resource') {      $menuitems=(<<ENDMENUITEMS);
 # Suppress display of backward arrow for LTI Provider if scope is resource.  c&3&1
 # Suppress display of forward arrow for LTI Provider if scope is resource.  s&2&1&back.png&$swtext{'back'}&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1
             } elsif ($ltiscope eq 'map') {  s&2&3&forw.png&$swtext{'forw'}&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3
 # Suppress display of backward arrow for LTI Provider if scope is map and this is first resource.  
 # Suppress display of forward arrow for LTI Provider if scope is map and this is the last resource.  
                 my $showforw = 1;  
                 my $showback = 1;  
                 my $navmap = Apache::lonnavmaps::navmap->new();  
                 if (ref($navmap)) {  
                     my $mapres = $navmap->getResourceByUrl($ltiuri);  
                     if (ref($mapres)) {  
                         if ($navmap->isLastResource($mapres,$env{'request.symb'})) {  
                             $showforw = 0;  
                         }  
                         if ($navmap->isFirstResource($mapres,$env{'request.symb'})) {  
                             $showback = 0;  
                         }  
                     }  
                 }  
                 if ($showback) {  
                     $menuitems.="  
 s&2&1&back.png&&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1";  
                 }  
                 if ($showforw) {  
                     $menuitems.="  
 s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3";  
                 }  
             } else {  
                 $menuitems.="  
 s&2&1&back.png&&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1  
 s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3";  
             }  
             $menuitems .= (<<ENDMENUITEMS);  
 c&6&3  c&6&3
   c&8&1
 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
 ENDMENUITEMS  ENDMENUITEMS
Line 1300  if ($env{'browser.mobile'}) { Line 1047  if ($env{'browser.mobile'}) {
   
             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {
  if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) &&   if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) &&
                     ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)}) &&                       ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)})) {
                     ($env{'request.noversionuri'} !~ m{^/adm/.+/ext\.tool$})) {  
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info(currentURL,'$is_mobile')&Show Metadata  s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info('$is_mobile')&Show Metadata
 ENDREALRES  ENDREALRES
                 }                  }
                 unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)}) ||                  unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)}) ||
                         ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/}) ||                          ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/})) { 
                         ($env{'request.noversionuri'} =~ m{^/adm/.+/ext\.tool$})) {   
             $menuitems.=(<<ENDREALRES);              $menuitems.=(<<ENDREALRES);
 s&8&1&eval.png&$swtext{'eval'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource  s&8&1&eval.png&$swtext{'eval'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
 ENDREALRES  ENDREALRES
Line 1365  ENDMENUITEMS Line 1110  ENDMENUITEMS
                 }                  }
             }              }
         }          }
         my $linkprotout;  
         if ($env{'request.deeplink.login'}) {  
             $linkprotout = &linkprot_exit();  
         }  
         if ($noremote) {          if ($noremote) {
     my $addremote=0;      my $addremote=0;
     foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }      foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
Line 1394  ENDMENUITEMS Line 1135  ENDMENUITEMS
                     if ($countdown) {                      if ($countdown) {
                         &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);                          &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
                     }                      }
                     if ($linkprotout) {  
                         &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$linkprotout);  
                     }  
                 } else {                  } else {
                     my @tools = @inlineremote[93,91,81,82,83];                      my @tools = @inlineremote[93,91,81,82,83];
                     if ($countdown) {                      if ($countdown) {
                         unshift(@tools,$countdown);                          unshift(@tools,$countdown);
                     }                      }
                     if ($linkprotout) {  
                         unshift(@tools,$linkprotout);  
                     }  
                     &Apache::lonhtmlcommon::add_breadcrumb_tool(                      &Apache::lonhtmlcommon::add_breadcrumb_tool(
                         'tools',@tools);                          'tools',@tools);
   
Line 1418  ENDMENUITEMS Line 1153  ENDMENUITEMS
                     }                      }
                     &advtools_crumbs(@inlineremote);                      &advtools_crumbs(@inlineremote);
                 }                  }
             } else {  
                 if ($linkprotout) {  
                     &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$linkprotout);  
                 }  
             }              }
             my ($topic_help,$topic_help_text);              my ($topic_help,$topic_help_text);
             if ($is_const_dir == 2) {              if ($is_const_dir == 2) {
Line 1433  ENDMENUITEMS Line 1164  ENDMENUITEMS
                     $topic_help_text = 'About WebDAV access';                      $topic_help_text = 'About WebDAV access';
                 }                  }
             }              }
             if (ref($showncrumbsref)) {  
                 $$showncrumbsref = 1;  
             }  
             return   &Apache::lonhtmlcommon::scripttag('', 'start')              return   &Apache::lonhtmlcommon::scripttag('', 'start')
                    . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'','','','',$topic_help,$topic_help_text)                     . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'','','','',$topic_help,$topic_help_text)
                    . &Apache::lonhtmlcommon::scripttag('', 'end');                     . &Apache::lonhtmlcommon::scripttag('', 'end');
Line 1770  sub get_editbutton { Line 1498  sub get_editbutton {
         if ($env{'form.folderpath'}) {          if ($env{'form.folderpath'}) {
             $suppanchor = $env{'form.anchor'};              $suppanchor = $env{'form.anchor'};
         }          }
         my $shownsymb;  
         if ($env{'request.symb'}) {  
             $shownsymb = &Apache::lonenc::check_encrypt($env{'request.symb'});  
         }  
         $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,          $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,
                                                 $forceedit,$forcereg,$env{'request.symb'},$shownsymb,                                                  $forceedit,$forcereg,$env{'request.symb'},
                                                 &escape($env{'form.folderpath'}),                                                  &escape($env{'form.folderpath'}),
                                                 &escape($env{'form.title'}),$hostname,                                                  &escape($env{'form.title'}),$hostname,
                                                 $env{'form.idx'},&escape($env{'form.suppurl'}),                                                  $env{'form.idx'},&escape($env{'form.suppurl'}),
Line 1991  sub prepare_functions { Line 1715  sub prepare_functions {
         if (($env{'form.folderpath'} =~ /^supplemental/) &&          if (($env{'form.folderpath'} =~ /^supplemental/) &&
             (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&              (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
             (($resurl =~ m{^/adm/wrapper/ext/}) ||              (($resurl =~ m{^/adm/wrapper/ext/}) ||
              ($resurl =~ m{^/adm/$cdom/$cnum/\d+/ext\.tool$}) ||  
              ($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) ||               ($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) ||
              ($resurl eq '/adm/supplemental') ||               ($resurl eq '/adm/supplemental') ||
              ($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) ||               ($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) ||
Line 2050  sub advtools_crumbs { Line 1773  sub advtools_crumbs {
             'advtools', @funcs[61,64,65,66,67,74]);              'advtools', @funcs[61,64,65,66,67,74]);
     } elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {      } elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {
         &Apache::lonhtmlcommon::add_breadcrumb_tool(          &Apache::lonhtmlcommon::add_breadcrumb_tool(
             'advtools', @funcs[61,71,72,73,74,75,92]);              'advtools', @funcs[61,71,72,73,74,92]);
     } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {      } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {
         &Apache::lonhtmlcommon::add_breadcrumb_tool(          &Apache::lonhtmlcommon::add_breadcrumb_tool(
             'advtools', $funcs[61]);              'advtools', $funcs[61]);
Line 2075  sub clear { Line 1798  sub clear {
 # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".  # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".
   
 sub switch {  sub switch {
     my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak,$infunc,$form)=@_;      my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak,$infunc)=@_;
     $act=~s/\$uname/$uname/g;      $act=~s/\$uname/$uname/g;
     $act=~s/\$udom/$udom/g;      $act=~s/\$udom/$udom/g;
     $top=&mt($top);      $top=&mt($top);
Line 2094  sub switch { Line 1817  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 2136  sub switch { Line 1859  sub switch {
         unless ($env{'request.state'} eq 'construct') {          unless ($env{'request.state'} eq 'construct') {
             push(@tools,63);              push(@tools,63);
         }          }
         if ((($env{'environment.icons'} eq 'iconsonly') ||          if (($env{'environment.icons'} eq 'iconsonly') &&
              ($env{'environment.icons'} eq '') && ($env{'request.lti.login'})) &&  
             (grep(/^$idx$/,@tools))) {              (grep(/^$idx$/,@tools))) {
             $inlineremote[$idx] =              $inlineremote[$idx] =
         '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>';          '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>';
Line 2717  END Line 2439  END
     }      }
 }  }
   
 sub view_as_js {  
     my ($url,$symb) = @_;  
     my %lt = &Apache::lonlocal::texthash(  
                 ente => 'Enter a username or a student/employee ID',  
                 info => 'Information you entered does not match a valid course user',  
     );  
     &js_escape(\%lt);  
     return <<"END";  
   
 function toggleViewAsUser(change) {  
     var seluserid = document.getElementById('LC_selectuser');  
     var currstyle = seluserid.style.display;  
     if (change == 'off') {  
         document.userview.elements['LC_viewas'].value = '';  
         document.userview.elements['vuname'].value = '';  
         document.userview.elements['vid'].value = '';  
         document.userview.submit();  
         return;  
     }  
     if (currstyle == 'inline') {  
         seluserid.style.display = 'none';  
         document.getElementById('usexpand').innerHTML='&#9658;&nbsp;';  
         document.getElementById('uscollapse').innerHTML='';  
     } else {  
         seluserid.style.display = 'inline';  
         document.getElementById('usexpand').innerHTML='';  
         document.getElementById('uscollapse').innerHTML='&#9668;&nbsp;';  
     }  
     return;  
 }  
   
 function validCourseUser(form,change) {  
     var possuname = form.elements['vuname'].value;  
     var possuid = form.elements['vid'].value;  
     var possudom = form.elements['vudom'].options[form.elements['vudom'].selectedIndex].value;  
     if ((possuname == '') && (possuid == '')) {  
         if (change == 'off') {  
             form.elements['LC_viewas'].value = '';  
             form.submit();  
         } else {  
             alert("$lt{'ente'}");  
         }  
         return;  
     }  
     var http = new XMLHttpRequest();  
     var url = "/adm/courseuser";  
     var params = "uname="+possuname+"&uid="+possuid+"&udom="+possudom;  
     http.open("POST", url, true);  
     http.setRequestHeader("Content-type", "application/x-www-form-urlencoded");  
     http.onreadystatechange = function() {  
         if (http.readyState == 4 && http.status == 200) {  
             var data = JSON.parse(http.responseText);  
             if (Array.isArray(data.match)) {  
                var len = data.match.length;  
                if (len == 2) {  
                    if (data.match[0] != '' && data.match[1] != '') {  
                        form.elements['LC_viewas'].value = data.match[0]+':'+data.match[1];  
                        form.submit();  
                    }  
                } else {  
                    alert("$lt{'info'}");  
                }  
             }  
         }  
         return;  
     }  
     http.send(params);  
     return false;  
 }  
   
 END  
 }  
   
 sub utilityfunctions {  sub utilityfunctions {
     my ($httphost) = @_;      my ($httphost) = @_;
     my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));      my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
Line 2830  sub utilityfunctions { Line 2479  sub utilityfunctions {
   
     my $countdown = &countdown_toggle_js();      my $countdown = &countdown_toggle_js();
   
     my $viewuser;  
     if (($env{'request.course.id'}) &&  
         ($env{'request.symb'} ne '') &&  
         ($env{'request.filename'}=~/$LONCAPA::assess_re/)) {  
         my $canview;  
         foreach my $priv ('msg','vgr') {  
             $canview = &Apache::lonnet::allowed($priv,$env{'request.course.id'});  
             if (!$canview && $env{'request.course.sec'} ne '') {  
                 $canview =  
                     &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");  
             }  
             last if ($canview);  
         }  
         if ($canview) {  
             $viewuser = &view_as_js($esc_url,$esc_symb);  
         }  
     }  
   
     my ($ltitarget,$deeplinktarget);  
     if ($env{'request.lti.login'}) {  
         $ltitarget = $env{'request.lti.target'};  
     }  
     if ($env{'request.deeplink.login'}) {  
         $deeplinktarget = $env{'request.deeplink.target'};  
     }  
   
     my $annotateurl = '/adm/annotation';      my $annotateurl = '/adm/annotation';
     if ($httphost) {      if ($httphost) {
         $annotateurl = '/adm/annotations';          $annotateurl = '/adm/annotations';
Line 2956  function golist(url) { Line 2579  function golist(url) {
        currentURL = null;         currentURL = null;
        currentSymb= null;         currentSymb= null;
        var lcHostname = setLCHost();         var lcHostname = setLCHost();
        var ltitarget = '$ltitarget';         top.location.href=lcHostname+url;
        var deeplinktarget = '$deeplinktarget';  
        if ((ltitarget == 'iframe') || (deeplinktarget == '_self')) {  
            document.location.href=lcHostname+url;  
        } else {  
            top.location.href=lcHostname+url;  
        }  
    }     }
 }  }
   
   
   
 function catalog_info(url,isMobile) {  function catalog_info(isMobile) {
     if (isMobile == 1) {      if (isMobile == 1) {
         openMyModal(url+'.meta?modal=1',500,400,'yes');          openMyModal(window.location.pathname+'.meta?modal=1',500,400,'yes');
     } else {      } else {
         loncatinfo=window.open(url+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');          loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
     }      }
 }  }
   
Line 3020  function open_source() { Line 2637  function open_source() {
                          'height=500,width=600,resizable=yes,location=no,menubar=no,toolbar=no,scrollbars=yes');                           'height=500,width=600,resizable=yes,location=no,menubar=no,toolbar=no,scrollbars=yes');
 }  }
   
 function open_aboutLC() {  
     var isMobile = "$env{'browser.mobile'}";  
     var url = '/adm/about.html';  
     if (isMobile == 1) {  
         openMyModal(url,600,400,'yes');  
     } else {  
         window.open(url,"aboutLONCAPA","height=400,width=600,scrollbars=1,resizable=1,menubar=0,location=1");  
     }  
     return;  
 }  
   
 (function (\$) {  (function (\$) {
   \$(document).ready(function () {    \$(document).ready(function () {
     \$.single=function(a){return function(b){a[0]=b;return a}}(\$([1]));      \$.single=function(a){return function(b){a[0]=b;return a}}(\$([1]));
Line 3047  function open_aboutLC() { Line 2653  function open_aboutLC() {
   
 $countdown  $countdown
   
 $viewuser  
   
 ENDUTILITY  ENDUTILITY
 }  }
   
 sub serverform {  sub serverform {
     my $target;  
     if (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self')) {  
         $target = ' target="_self"';  
     } else {  
         $target = ' target="_top"';  
     }  
     return(<<ENDSERVERFORM);      return(<<ENDSERVERFORM);
 <form name="server" action="/adm/logout" method="post"$target>  <form name="server" action="/adm/logout" method="post" target="_top">
 <input type="hidden" name="postdata" value="none" />  <input type="hidden" name="postdata" value="none" />
 <input type="hidden" name="command" value="none" />  <input type="hidden" name="command" value="none" />
 <input type="hidden" name="url" value="none" />  <input type="hidden" name="url" value="none" />
Line 3070  ENDSERVERFORM Line 2668  ENDSERVERFORM
 }  }
   
 sub constspaceform {  sub constspaceform {
     my ($frameset) = @_;  
     my ($target,$printtarget);  
     if ($frameset) {  
         $target = ' target="_parent"';  
         $printtarget = ' target="_parent"';  
     } else {  
         unless ((($env{'request.lti.login'}) && ($env{'request.lti.target'} eq 'iframe')) ||   
                 (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self'))) {  
             $target = ' target="_top"';  
             $printtarget = ' target="_top"';  
         }  
     }  
     return(<<ENDCONSTSPACEFORM);      return(<<ENDCONSTSPACEFORM);
 <form name="constspace" action="/adm/logout" method="post"$target>  <form name="constspace" action="/adm/logout" method="post" target="_top">
 <input type="hidden" name="filename" value="" />  <input type="hidden" name="filename" value="" />
 </form>  </form>
 <form name="cstrdelete" action="/adm/cfile" method="post"$target>  <form name="cstrdelete" action="/adm/cfile" method="post" target="_top">
 <input type="hidden" name="action" value="delete" />   <input type="hidden" name="action" value="delete" /> 
 <input type="hidden" name="filename" value="" />  <input type="hidden" name="filename" value="" />
 </form>  </form>
 <form name="cstrprint" action="/adm/printout" method="post"$printtarget>  <form name="cstrprint" action="/adm/printout" target="_parent" method="post">
 <input type="hidden" name="postdata" value="" />  <input type="hidden" name="postdata" value="" />
 <input type="hidden" name="curseed" value="" />  <input type="hidden" name="curseed" value="" />
 <input type="hidden" name="problemtype" value="" />  <input type="hidden" name="problemtype" value="" />
Line 3120  sub hidden_button_check { Line 2706  sub hidden_button_check {
 }  }
   
 sub roles_selector {  sub roles_selector {
     my ($cdom,$cnum,$httphost,$target,$menucoll,$menuref) = @_;      my ($cdom,$cnum,$httphost) = @_;
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
     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,$has_opa_priv);      my ($js,$form,$switcher);
     my $ccrole;      my $ccrole;
     if ($crstype eq 'Community') {      if ($crstype eq 'Community') {
         $ccrole = 'co';          $ccrole = 'co';
Line 3226  sub roles_selector { Line 2812  sub roles_selector {
         }          }
     }      }
     if ((keys(%seccount) > 1) || ($numdiffsec > 1)) {      if ((keys(%seccount) > 1) || ($numdiffsec > 1)) {
         my $targetattr;  
         if ($target ne '') {  
             $targetattr = ' target="'.$target.'"';  
         }  
         my @submenu;          my @submenu;
         $js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,          $js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,\%roledesc,$privref);
                             \%roledesc,$privref,$menucoll,$menuref);  
         $form =           $form = 
             '<form name="rolechooser" method="post" action="'.$httphost.'/adm/roles"'.$targetattr.'>'."\n".              '<form name="rolechooser" method="post" action="'.$httphost.'/adm/roles">'."\n".
             '  <input type="hidden" name="destinationurl" value="'.              '  <input type="hidden" name="destinationurl" value="'.
             &HTML::Entities::encode($destinationurl).'" />'."\n".              &HTML::Entities::encode($destinationurl).'" />'."\n".
             '  <input type="hidden" name="gotorole" value="1" />'."\n".              '  <input type="hidden" name="gotorole" value="1" />'."\n".
Line 3251  sub roles_selector { Line 2832  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 3288  sub roles_selector { Line 2862  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]);
                 }                  }
             }              }
         }          }
         if (@submenu > 0) {          if (@submenu > 0) {
             $switcher = &create_submenu('#',$target,&mt('Switch role'),\@submenu);              $switcher = &create_submenu('','',&mt('Switch role'),\@submenu);
         }          }
     }      }
     return ($js,$form,$switcher,$has_opa_priv);      return ($js,$form,$switcher);
 }  }
   
 sub get_all_courseroles {  sub get_all_courseroles {
Line 3467  sub get_customadhoc_roles { Line 3038  sub get_customadhoc_roles {
 }  }
   
 sub jump_to_role {  sub jump_to_role {
     my ($cdom,$cnum,$seccount,$courseroles,$courseprivs,$roledesc,$privref,      my ($cdom,$cnum,$seccount,$courseroles,$courseprivs,$roledesc,$privref) = @_;
         $menucoll,$menuref) = @_;  
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                 this => 'This role has section(s) associated with it.',                  this => 'This role has section(s) associated with it.',
                 ente => 'Enter a specific section.',                  ente => 'Enter a specific section.',
Line 3479  sub jump_to_role { Line 3049  sub jump_to_role {
                 role => 'The role you selected is not permitted to view the current page.',                  role => 'The role you selected is not permitted to view the current page.',
                 swit => 'Switch role, but display Main Menu page instead?',                  swit => 'Switch role, but display Main Menu page instead?',
     );      );
     &js_escape(\%lt);  
     my $js;      my $js;
     if (ref($courseroles) eq 'HASH') {      if (ref($courseroles) eq 'HASH') {
         $js = '    var secpick = new Array("'.$lt{'ente'}.'","'.$lt{'orlb'}.'");'."\n".           $js = '    var secpick = new Array("'.$lt{'ente'}.'","'.$lt{'orlb'}.'");'."\n". 
Line 3502  sub jump_to_role { Line 3071  sub jump_to_role {
         }          }
     }      }
     my $checkroles = 0;      my $checkroles = 0;
     my $fallback = '/adm/menu';  
     my $displaymsg = $lt{'swit'};  
     if ((ref($privref) eq 'ARRAY') && (@{$privref} > 0) && (ref($courseprivs) eq 'HASH')) {      if ((ref($privref) eq 'ARRAY') && (@{$privref} > 0) && (ref($courseprivs) eq 'HASH')) {
         my %disallowed;          my %disallowed;
         foreach my $role (sort(keys(%{$courseprivs}))) {          foreach my $role (sort(keys(%{$courseprivs}))) {
Line 3525  sub jump_to_role { Line 3092  sub jump_to_role {
             $checkroles = 1;              $checkroles = 1;
             $js .= "    var disallow = new Array('".join("','",keys(%disallowed))."');\n".              $js .= "    var disallow = new Array('".join("','",keys(%disallowed))."');\n".
                    "    var rolecheck = 1;\n";                     "    var rolecheck = 1;\n";
             if ($menucoll) {  
                 if (ref($menuref) eq 'HASH') {  
                     if ($menuref->{'main'} eq 'n') {  
                         $fallback = '/adm/navmaps';  
                         if (&Apache::loncommon::course_type() eq 'Community') {  
                             $displaymsg = &mt('Switch role, but display Community Contents page instead?');  
                         } else {  
                             $displaymsg = &mt('Switch role, but display Course Contents page instead?');  
                         }  
                         &js_escape(\$displaymsg);  
                     }  
                 }  
             }  
         }          }
     }      }
     &js_escape(\$fallback);  
     if (!$checkroles) {      if (!$checkroles) {
         $js .=  "    var disallow = new Array();\n".          $js .=  "    var disallow = new Array();\n".
                 "    rolecheck = 0;\n";                  "    rolecheck = 0;\n";
Line 3563  function adhocRole(newrole) { Line 3116  function adhocRole(newrole) {
     if (rolecheck > 0) {      if (rolecheck > 0) {
         for (var i=0; i<disallow.length; i++) {          for (var i=0; i<disallow.length; i++) {
             if (disallow[i] == newrole) {              if (disallow[i] == newrole) {
                 if (confirm("$lt{'role'}\\n$displaymsg")) {                  if (confirm("$lt{'role'}\\n$lt{'swit'}")) {
                     document.rolechooser.destinationurl.value = '$fallback';                      document.rolechooser.destinationurl.value = '/adm/menu';
                 } else {                  } else {
                     return;                      return;
                 }                  }
Line 3654  sub required_privs { Line 3207  sub required_privs {
   
 sub countdown_timer {  sub countdown_timer {
     if (($env{'request.course.id'}) && ($env{'request.symb'} ne '') &&      if (($env{'request.course.id'}) && ($env{'request.symb'} ne '') &&
         (($env{'request.filename'}=~/$LONCAPA::assess_re/) ||          ($env{'request.filename'}=~/$LONCAPA::assess_re/)) {
          (($env{'request.symb'} =~ /ext\.tool$/) &&  
          (&Apache::lonnet::EXT('resource.0.gradable',$env{'request.symb'}) =~ /^yes$/i)))) {  
         my ($type,$hastimeleft,$slothastime);          my ($type,$hastimeleft,$slothastime);
         my $now = time;          my $now = time;
         if ($env{'request.filename'} =~ /\.task$/) {          if ($env{'request.filename'} =~ /\.task$/) {
             $type = 'Task';              $type = 'Task';
         } elsif ($env{'request.symb'} =~ /ext\.tool$/) {  
             $type = 'tool';  
         } else {          } else {
             $type = 'problem';              $type = 'problem';
         }          }
         my ($status,$accessmsg,$slot_name,$slot);          my ($status,$accessmsg,$slot_name,$slot) =
         if ($type eq 'tool') {              &Apache::lonhomework::check_slot_access('0',$type);
             ($status,$accessmsg,$slot_name,$slot) =  
                 &Apache::lonhomework::check_slot_access('0',$type,$env{'request.symb'},['0']);  
         } else {  
             ($status,$accessmsg,$slot_name,$slot) =  
                 &Apache::lonhomework::check_slot_access('0',$type);  
         }  
         if ($slot_name ne '') {          if ($slot_name ne '') {
             if (ref($slot) eq 'HASH') {              if (ref($slot) eq 'HASH') {
                 if (($slot->{'starttime'} < $now) &&                  if (($slot->{'starttime'} < $now) &&
Line 3743  END Line 3286  END
     return;      return;
 }  }
   
 sub linkprot_exit {  
     if (($env{'request.course.id'}) && ($env{'request.deeplink.login'})) {  
         my ($deeplink_symb,$deeplink);  
         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
         if (($cnum ne '') && ($cdom ne '')) {  
             $deeplink_symb = &Apache::loncommon::deeplink_login_symb($cnum,$cdom);  
             if ($deeplink_symb) {  
                 if ($deeplink_symb =~ /\.(page|sequence)$/) {  
                     my $mapname = &Apache::lonnet::deversion((&Apache::lonnet::decode_symb($deeplink_symb))[2]);  
                     my $navmap = Apache::lonnavmaps::navmap->new();  
                     if (ref($navmap)) {  
                         $deeplink = $navmap->get_mapparam(undef,$mapname,'0.deeplink');  
                     }  
                 } else {  
                     $deeplink = &Apache::lonnet::EXT('resource.0.deeplink',$deeplink_symb);  
                 }  
                 if ($deeplink ne '') {  
                     my ($state,$others,$listed,$scope,$protect,$display,$target,$exit) = split(/,/,$deeplink);  
                     my %lt = &Apache::lonlocal::texthash(  
                         title    => 'Exit Tool',  
                         okdone   => 'Click "OK" to exit embedded tool',  
                         cancel   => 'Click "Cancel" to continue working.',  
                         ok       => 'OK',  
                         exit     => 'Cancel',  
                     );  
                     if ($exit) {  
                         my ($show,$text) = split(/:/,$exit);  
                         unless ($show eq 'no') {  
                             my $height = 250;  
                             my $width = 300;  
                             my $exitbuttontext;  
                             if ($text eq '') {  
                                 $exitbuttontext = &mt('Exit Tool');  
                             } else {  
                                 $exitbuttontext = $text;  
                             }  
                             return <<END;  
 <form method="post" name="LCexitButton" action="/adm/linkexit">  
     <input type="hidden" name="LC_deeplink_exit" value="" />  
     <button id="LC_exit-confirm-opener" type="button">$exitbuttontext</button>  
 </form>  
   
 <div id="LC_exit-confirm" title="$lt{'title'}">  
     <p>$lt{'okdone'} $lt{'cancel'}</p>  
 </div>  
   
 <script type="text/javascript">  
 // <![CDATA[  
 \$( "#LC_exit-confirm" ).dialog({ autoOpen: false });  
 \$( "#LC_exit-confirm-opener" ).click(function() {  
     \$( "#LC_exit-confirm" ).dialog( "open" );  
     \$( "#LC_exit-confirm" ).dialog({  
       resizable: false,  
       height: $height,  
       width: $width,  
       modal: true,  
       buttons: [  
                  {  
                     text: "$lt{'ok'}",  
                     click: function() {  
                         \$( this ).dialog( "close" );  
                         \$( '[name="LC_deeplink_exit"]' )[0].value = 'true';  
                         \$( '[name="LCexitButton"]' )[0].submit();  
                     },  
                  },  
                  {  
                      text: "$lt{'exit'}",  
                      click: function() {  
                          \$( this ).dialog( "close" );  
                      },  
                   },  
                ],  
        });  
 });  
 // ]]>  
 </script>  
   
 END  
                         }  
                     }  
                 }  
             }  
         }  
     }  
     return;  
 }  
   
 # ================================================================ Main Program  # ================================================================ Main Program
   
 BEGIN {  BEGIN {
Line 3847  BEGIN { Line 3302  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..7];                          my @entries = (split(/\:/, $configline))[1..6];
                         push(@primary_menu,\@entries);                          push(@primary_menu,\@entries);
                     } elsif ($configline=~/^primsub\:/) {                      } elsif ($configline=~/^primsub\:/) {
                         my ($parent,@entries) = (split(/\:/, $configline))[1..5];                          my ($parent,@entries) = (split(/\:/, $configline))[1..4];
                         push(@{$primary_submenu{$parent}},\@entries);                          push(@{$primary_submenu{$parent}},\@entries);
                     } elsif ($configline=~/^scnd\:/) {                      } elsif ($configline=~/^scnd\:/) {
                         my @entries = (split(/\:/, $configline))[1..6];                          my @entries = (split(/\:/, $configline))[1..5];
                         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.369.2.83.2.10  
changed lines
  Added in v.1.369.2.83.4.1

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