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

Diff for /loncom/interface/lonmenu.pm between versions 1.372 and 1.431.2.2

version 1.372, 2012/05/21 16:24:14 version 1.431.2.2, 2015/04/14 21:35:52
Line 106  secondary_menu(). Line 106  secondary_menu().
   
 =item primary_menu()  =item primary_menu()
   
 This routine evaluates @primary_menu and returns XHTML for the menu  This routine evaluates @primary_menu and returns a two item array, 
 that contains following links: About, Message, Roles, Help, Logout  with the array elements containing XHTML for the left and right sides of 
   the menu that contains the following links: About, Message, Roles, Help, Logout 
 @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
   
 =item secondary_menu()  =item secondary_menu()
   
 Same as primary_menu() but operates on @secondary_menu.  Same as primary_menu() but operates on @secondary_menu.
   
   =item create_submenu()
   
   Creates XHTML for unordered list of sub-menu items which belong to a 
   particular top-level menu item. Uses hover pseudo class in css to display
   dropdown list when mouse hovers over top-level item. Support for IE6 
   (no hover psuedo class) via LC_hoverable class for <li> tag for top-
   level item, which employs jQuery to handle behavior on mouseover.
   
   Inputs: 4 - (a) link and (b) target for anchor href in top level item,
               (c) title for text wrapped by anchor tag in top level item.
               (d) reference to array of arrays of sub-menu items.
   
    The underlying datastructure used in (d) contains data from mydesk.tab.
    It consists of an array which has an array for each item appearing in
    the menu (e.g. [["link", "title", "condition"]] for a single-item menu).
    create_submenu() supports also the creation of XHTML for nested dropdown
    menus represented by unordered lists. This is done by replacing the
    scalar used for the link with an arrayreference containing the menuitems
    for the nested menu. This can be done recursively so that the next menu
    may also contain nested submenus.
   
    Example:
    [ # begin of datastructure
    ["/home/", "Home", "condition1"], # 1st item of the 1st layer menu
    [ # 2nd item of the 1st layer menu
    [ # anon. array for nested menu
    ["/path1", "Path1", undef], # 1st item of the 2nd layer menu
    ["/path2", "Path2", undef], # 2nd item of the 2nd layer menu
    [ # 3rd item of the 2nd layer menu
    [[...], [...], ..., [...]], # containing another menu layer
    "Sub-Sub-Menu", # title for this container
    undef
    ]
    ], # end of array/nested menu
    "Sub-Menu", # title for the container item
    undef
    ] # end of 2nd item of the 1st layer menu
   ]
   
 =item innerregister()  =item innerregister()
   
 This gets called in order to register a URL in the body of the document  This gets called in order to register a URL in the body of the document
Line 191  sub prep_menuitem { Line 231  sub prep_menuitem {
            . qq| href="$$menuitem[0]" target="_top">$link</a></li>|;             . qq| href="$$menuitem[0]" target="_top">$link</a></li>|;
 }  }
   
 # primary_menu() evaluates @primary_menu and returns XHTML for the menu  # primary_menu() evaluates @primary_menu and returns a two item array,
 # that contains following links:  # with the array elements containing XHTML for the left and right sides of 
 # About, Message, Personal, Roles, Help, Logout  # the menu that contains the following links:
   # Personal, About, Message, Roles, Help, Logout
 # @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 $menu;      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)      # (link url, icon path, alt text, link text, condition, position)
     my $public;      my $public;
     if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))      if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
         || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {          || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
Line 224  sub primary_menu { Line 265  sub primary_menu {
                 && !&Apache::loncommon::show_course(); ##                  && !&Apache::loncommon::show_course(); ##
                   
         my $title = $menuitem->[3];          my $title = $menuitem->[3];
           my $position = $menuitem->[5];
           if ($position eq '') {
               $position = 'right';
           }
         if (defined($primary_submenu{$title})) {          if (defined($primary_submenu{$title})) {
             my ($link,$target,$numsub);              my ($link,$target);
             if ($menuitem->[0] ne '') {              if ($menuitem->[0] ne '') {
                 $link = $menuitem->[0];                  $link = $menuitem->[0];
                 $target = '_top';                  $target = '_top';
             } else {              } else {
                 $link = '#';                  $link = '#';
             }              }
               my @primsub;
             if (ref($primary_submenu{$title}) eq 'ARRAY') {              if (ref($primary_submenu{$title}) eq 'ARRAY') {
                 $numsub = @{$primary_submenu{$title}};                  foreach my $item (@{$primary_submenu{$title}}) {
                 if ($numsub) {                      next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'}));
                     $title =                      next if ((($item->[2] eq 'portfolio') ||
                         '<span class="LC_nobreak">'.$title.                               ($item->[2] eq 'blog')) &&
                         '<span class="LC_fontsize_small">'.                               (!&Apache::lonnet::usertools_access('','',$item->[2],
                         '&#9660;</span></span>';                                                             undef,'tools')));
                       push(@primsub,$item);
                   }
                   if (@primsub > 0) {
                       $menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1);
                   } elsif ($link) {
                       $menu{$position} .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';
                 }                  }
             }              }
             $menu .= '<li class="LC_hoverable">'.  
                      '<a href="'.$link.'" target="'.$target.'">'.$title.'</a>';  
             if ($numsub) {  
                 $menu .= '<ul>';  
                 foreach my $item (@{$primary_submenu{$menuitem->[3]}}) {  
                     if (ref($item) eq 'ARRAY') {  
                         if ($item->[2] eq 'wishlist') {  
                             next unless ((&Apache::lonnet::allowed('bre',"/res/$env{'user.domain'}/")) ||  
                                          (&Apache::lonnet::allowed('bro',"/res/$env{'user.domain'}/")));  
                         } elsif ($item->[2] eq 'reqcrs') {  
                             next unless(&check_for_rcrs());  
                         } elsif (($item->[2] eq 'portfolio') ||  
                                  ($item->[2] eq 'blog')) {  
                             if (!&Apache::lonnet::usertools_access(  
                                     $env{'user.name'},  
                                     $env{'user.domain'},  
                                     $item->[2],undef,'tools')) {  
                                 next;  
                             }  
                         }  
                         $menu .= '<li style="margin:0;padding:0">'.  
                                  '<a href="'.$item->[0].  
                                  '" style="padding:0 0 0 10px">'.  
                                  $item->[1].'</a></li>';  
                     }  
                 }  
                 $menu .= '</ul>';  
             }  
             $menu .= '</li>';  
         } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink          } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
             if ($public) {              if ($public) {
                 my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};                  my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
Line 278  sub primary_menu { Line 301  sub primary_menu {
                                                                   'helpdeskmail',                                                                    'helpdeskmail',
                                                                   $defdom,$origmail);                                                                    $defdom,$origmail);
                 if ($to ne '') {                  if ($to ne '') {
                     $menu .= &prep_menuitem($menuitem);                       $menu{$position} .= &prep_menuitem($menuitem); 
                 }                  }
             } else {              } else {
                 $menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';                  $menu{$position} .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
             }              }
         } else {          } else {
             $menu .= prep_menuitem($menuitem);              $menu{$position} .= prep_menuitem($menuitem);
         }          }
     }      }
     $menu =~ s/\[domain\]/$env{'user.domain'}/g;      my @output = ('','');
     $menu =~ s/\[user\]/$env{'user.name'}/g;      if ($menu{'left'} ne '') {
           $output[0] = "<ol class=\"LC_primary_menu LC_floatleft\">$menu{'left'}</ol>";
     return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";      }
       if ($menu{'right'} ne '') {
           $output[1] = "<ol class=\"LC_primary_menu LC_floatright LC_right\">$menu{'right'}</ol>";
       }
       return @output;
 }  }
   
 #returns hashref {user=>'',dom=>''} containing:  #returns hashref {user=>'',dom=>''} containing:
Line 319  sub getauthor{ Line 346  sub getauthor{
 }  }
   
 sub secondary_menu {  sub secondary_menu {
       my ($httphost) = @_;
     my $menu;      my $menu;
   
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
Line 326  sub secondary_menu { Line 354  sub secondary_menu {
                                                ? "/$env{'request.course.sec'}"                                                 ? "/$env{'request.course.sec'}"
                                                : '');                                                 : '');
     my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});      my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
       my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};
       if ($canviewroster eq 'disabled') {
           undef($canviewroster);
       }
     my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec);       my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec); 
     my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);       my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); 
     my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec);       my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec); 
Line 334  sub secondary_menu { Line 366  sub secondary_menu {
     my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec);       my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec); 
     my $author        = &getauthor();      my $author        = &getauthor();
   
       my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv);
       if ($env{'request.course.id'}) {
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           if ($canedit) {
               $showsyllabus = 1;
               $showfeeds = 1;
           } else {
               unless (&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus")) {
                   if (($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'}) ||
                       ($env{'course.'.$env{'request.course.id'}.'.uploadedsyllabus'}) ||
                       ($env{'course.'.$env{'request.course.id'}.'.updatedsyllabus'}) ||
                       ($env{'request.course.syllabustime'})) {
                       $showsyllabus = 1;
                   }
               }
               if ($env{'request.course.feeds'}) {
                   $showfeeds = 1;
               }
           }
           unless ($canmgr) {
               my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom);
               if (keys(%slots) > 0) {
                   $showresv = 1;
               }
           }
       }
   
       my ($canmodifycoauthor); 
       if ($env{'request.role'} eq "au./$env{'user.domain'}/") {
           my $extent = "$env{'user.domain'}/$env{'user.name'}";
           if ((&Apache::lonnet::allowed('cca',$extent)) ||
               (&Apache::lonnet::allowed('caa',$extent))) {
               $canmodifycoauthor = 1;
           }
       }
   
     my %groups = &Apache::lonnet::get_active_groups(      my %groups = &Apache::lonnet::get_active_groups(
                      $env{'user.domain'}, $env{'user.name'},                       $env{'user.domain'}, $env{'user.name'},
                      $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'});
   
       my ($roleswitcher_js,$roleswitcher_form);
   
     foreach my $menuitem (@secondary_menu) {      foreach my $menuitem (@secondary_menu) {
         # evaluate conditions           # evaluate conditions 
         next if    ref($menuitem)  ne 'ARRAY';          next if    ref($menuitem)  ne 'ARRAY';
         next if    $$menuitem[4]   ne 'always'          next if    $$menuitem[4]   ne 'always'
                 && $$menuitem[4]   ne 'author'                  && ($$menuitem[4]   ne 'author' && $$menuitem[4] ne 'cca')
                 && !$env{'request.course.id'};                  && !$env{'request.course.id'};
         next if    $$menuitem[4]   =~ /^mdc/          next if    $$menuitem[4]   =~ /^mdc/
                 && !$canedit;                  && !$canedit;
Line 354  sub secondary_menu { Line 425  sub secondary_menu {
         next if    $$menuitem[4]   eq 'cst'          next if    $$menuitem[4]   eq 'cst'
                 && !$canmodifyuser;                  && !$canmodifyuser;
         next if    $$menuitem[4]   eq 'ncst'          next if    $$menuitem[4]   eq 'ncst'
                 && $canmodifyuser;                  && ($canmodifyuser || !$canviewroster);
         next if    $$menuitem[4]   eq 'mgr'          next if    $$menuitem[4]   eq 'mgr'
                 && !$canmgr;                  && !$canmgr;
         next if    $$menuitem[4]   eq 'nmgr'          next if    $$menuitem[4]   eq 'showresv'
                 && $canmgr;                  && !$showresv;
         next if    $$menuitem[4]   eq 'whn'          next if    $$menuitem[4]   eq 'whn'
                 && !$canviewwnew;                  && !$canviewwnew;
         next if    $$menuitem[4]   eq 'opa'          next if    $$menuitem[4]   eq 'opa'
Line 366  sub secondary_menu { Line 437  sub secondary_menu {
         next if    $$menuitem[4]   =~ /showgroups$/          next if    $$menuitem[4]   =~ /showgroups$/
                 && !$canviewgrps                  && !$canviewgrps
                 && !%groups;                  && !%groups;
           next if    $$menuitem[4]   eq 'showsyllabus'
                   && !$showsyllabus;
           next if    $$menuitem[4]   eq 'showfeeds'
                   && !$showfeeds;
         next if    $$menuitem[4]    eq 'author'          next if    $$menuitem[4]    eq 'author'
                 && !$author;                  && !$author;
           next if    $$menuitem[4]    eq 'cca'
                   && !$canmodifycoauthor;
   
         if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {          if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
             # special treatment for role selector              # special treatment for role selector
             my $roles_selector = &roles_selector(              ($roleswitcher_js,$roleswitcher_form,my $switcher) =
                   &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
             $menu .= $roles_selector ? "<li>$roles_selector</li>"                  );
                                      : '';              $menu .= $switcher;
         } else {          } else {
               if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) {
                   my $url = $$menuitem[0];
                   $url =~ s{\[cdom\]/\[cnum\]}{$cdom/$cnum};
                   if (&Apache::lonnet::is_on_map($url)) {
                       unless ($$menuitem[0] =~ /\?register=1/) {
                           $$menuitem[0] .= '?register=1';
                       }
                   } else {
                       $$menuitem[0] =~ s{\?register=1}{};
                   }
               }
             $menu .= &prep_menuitem(\@$menuitem);              $menu .= &prep_menuitem(\@$menuitem);
         }          }
     }      }
Line 401  sub secondary_menu { Line 490  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;
       if ($showsyllabus || $showfeeds) {
           $menu =~ s/\[cnum\]/$cnum/g;
           $menu =~ s/\[cdom\]/$cdom/g;
       }
       if ($menu) {
           $menu = "<ul id=\"LC_secondary_menu\">$menu</ul>";
       }
       if ($roleswitcher_form) {
           $menu .= "\n$roleswitcher_js\n$roleswitcher_form";
       }
       return $menu;
   }
   
   sub create_submenu {
       my ($link,$target,$title,$submenu,$translate) = @_;
       return unless (ref($submenu) eq 'ARRAY');
       my $disptarget;
       if ($target ne '') {
           $disptarget = ' target="'.$target.'"';
       }
       my $name;
       if ($title eq 'Personal') {
           if ($env{'user.name'} && $env{'user.domain'}) {
               $name = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
           } else {
               $name = &mt($title);
           }
       } else {
           $name = &mt($title);
       }
       my $menu = '<li class="LC_hoverable">'.
                  '<a href="'.$link.'"'.$disptarget.'>'.
                  '<span class="LC_nobreak">'.$name.
                  '<span class="LC_fontsize_small" style="font-weight:normal;">'.
                  ' &#9660;</span></span></a>'.
                  '<ul>';
   
       # $link and $title are only used in the initial string written in $menu
       # as seen above, not needed for nested submenus
       $menu .= &build_submenu($target, $submenu, $translate, '1');
       $menu .= '</ul></li>';
   
       return $menu;
   }
   
   # helper routine for create_submenu
   # build the dropdown (and nested submenus) recursively
   # see perldoc create_submenu documentation for further information
   sub build_submenu {
       my ($target, $submenu, $translate, $first_level) = @_; 
       if (!defined(@{$submenu})) {
           return '';
       }
   
       my $menu = '';
       my $count = 0;
       my $numsub = scalar(@{$submenu});
       foreach my $item (@{$submenu}) {
           $count ++;
           if (ref($item) eq 'ARRAY') {
               my $href = $item->[0];
               my $bordertop;
               my $borderbot;
               my $title;
   
               if ($translate) {
                    $title = &mt($item->[1]);
               } else {
                   $title = $item->[1];
               }
   
               if ($count == 1 && !$first_level) {
                   $bordertop = 'border-top: 1px solid black;';
               }
               if ($count == $numsub) {
                   $borderbot = 'border-bottom: 1px solid black;';
               }
   
               # href is a reference to another submenu
               if (ref($href) eq 'ARRAY') {
                   $menu .= '<li style="margin:0;padding:0;'.$bordertop . $borderbot . '">';
                   $menu .= '<p><span class="LC_primary_menu_innertitle">'
    . $title . '</span><span class="LC_primary_menu_innerarrow">&#9654;</span></p>';
                   $menu .= '<ul>';
                   $menu .= &build_submenu($target, $href, $translate);
                   $menu .= '</ul>';
                   $menu .= '</li>';    
               } else {    # href is the actual hyperlink and does not represent another submenu
                           # for the current menu title
                   if ($href =~ /(aboutme|rss\.html)$/) {
                       next unless (($env{'user.name'} ne '') && ($env{'user.domain'} ne ''));
                       $href =~ s/\[domain\]/$env{'user.domain'}/g;
                       $href =~ s/\[user\]/$env{'user.name'}/g;
                   }
                   unless (($href eq '') || ($href =~ /^\#/)) {
                       $target = ' target="_top"';
                   }
   
     return "<ul id=\"LC_secondary_menu\">$menu</ul>";                  $menu .= '<li style="margin:0;padding:0;'. $bordertop . $borderbot .'">';
                   $menu .= '<a href="'.$href.'"'.$target.'>' .  $title . '</a>';
                   $menu .= '</li>';
               }
           }
       }
       return $menu;
 }  }
   
 sub innerregister {  sub innerregister {
     my ($forcereg,$bread_crumbs) = @_;      my ($forcereg,$bread_crumbs,$group) = @_;
     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 416  sub innerregister { Line 608  sub innerregister {
   
     undef(@inlineremote);      undef(@inlineremote);
   
     my $resurl;       my ($mapurl,$resurl);
     if ( $env{'request.symb'} && $env{'request.course.id'} ) {  
   
         (my $mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());      if ($env{'request.course.id'}) {
         my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};          if ($env{'request.symb'}) {
               ($mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
               my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};
   
         my $maptitle = &Apache::lonnet::gettitle($mapurl);              my $maptitle = &Apache::lonnet::gettitle($mapurl);
         my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());              my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());
   
 #SD  #SD
 #course_type only Course and Community?  #course_type only Course and Community?
 #  #
         my @crumbs;              my @crumbs;
         unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps')              unless (($forcereg) &&
                 && ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {                      ($env{'request.noversionuri'} eq '/adm/navmaps') &&
             @crumbs = ({text  => Apache::loncommon::course_type()                       ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
                                 . ' Contents',                   @crumbs = ({text  => Apache::loncommon::course_type() 
                         href  => "Javascript:gopost('/adm/navmaps','')"});                                      . ' Contents', 
         }                              href  => "Javascript:gopost('/adm/navmaps','')"});
         if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {               }
             push(@crumbs, {text  => '...',              if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { 
                            no_mt => 1});                  push(@crumbs, {text  => '...',
         }                                 no_mt => 1});
               }
         push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle   
                                                    && $maptitle ne 'default.sequence'               push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle 
                                                    && $maptitle ne $coursetitle);                                                         && $maptitle ne 'default.sequence' 
                                                          && $maptitle ne $coursetitle);
         push @crumbs, {text => $restitle, no_mt => 1} if $restitle;   
               push @crumbs, {text => $restitle, no_mt => 1} if $restitle; 
         &Apache::lonhtmlcommon::clear_breadcrumbs();              &Apache::lonhtmlcommon::clear_breadcrumbs();
         &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);              &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
     }elsif (! $const_space){          } else {
               $resurl = $env{'request.noversionuri'};
               my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});
               my $crstype = &Apache::loncommon::course_type();
               my $title = &mt('View Resource');
               if ($resurl =~ m{^\Q/uploaded$courseurl/supplemental/\E(default|\d+)/}) {
                   &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['folderpath','title']);
                   &Apache::lonhtmlcommon::clear_breadcrumbs();
                   if ($env{'form.title'}) {
                       $title = $env{'form.title'};
                   }
                   my $trail;
                   if ($env{'form.folderpath'}) {
                       &prepare_functions($resurl,$forcereg,$group,undef,undef,1);
                       ($trail) =
                           &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                   } else {
                       &Apache::lonhtmlcommon::add_breadcrumb(
                       {text  => "Supplemental $crstype Content",
                        href  => "javascript:gopost('/adm/supplemental','')"});
                       $title = &mt('View Resource');
                       ($trail) = 
                           &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                   }
                   return $trail;
               } elsif ($resurl =~ m{^\Q/uploaded$courseurl/portfolio/syllabus/}) {
                   &Apache::lonhtmlcommon::clear_breadcrumbs();
                   &prepare_functions('/public'.$courseurl."/syllabus",
                                      $forcereg,$group,undef,undef,1);
                   $title = &mt('Syllabus File');
                   my ($trail) =
                       &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                   return $trail;
               }
               unless ($env{'request.state'} eq 'construct') {
                   &Apache::lonhtmlcommon::clear_breadcrumbs();
                   &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
               }
           }
       } elsif (! $const_space){
         #a situation when we're looking at a resource outside of context of a           #a situation when we're looking at a resource outside of context of a 
         #course or construction space (e.g. with cumulative rights)          #course or construction space (e.g. with cumulative rights)
         &Apache::lonhtmlcommon::clear_breadcrumbs();          &Apache::lonhtmlcommon::clear_breadcrumbs();
         &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});          unless ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) {
               &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
           }
     }      }
 # =============================================================================  # =============================================================================
 # ============================ This is for URLs that actually can be registered  # ============================ This is for URLs that actually can be registered
     return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})       return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/}) 
                        || $forcereg );                         || $forcereg );
       my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,
           $forceview,$editbutton);
       if (($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) ||
           ($env{'request.role'} !~/^(aa|ca|au)/)) {
           $editbutton = &prepare_functions($resurl,$forcereg,$group);
       }
       if ($editbutton eq '') {
           $editbutton = &clear(6,1);
       }
   
 # -- This applies to homework problems for users with grading privileges  #
  my $crs='/'.$env{'request.course.id'};  # This applies in course context
  if ($env{'request.course.sec'}) {  #
     $crs.='_'.$env{'request.course.sec'};      if ($env{'request.course.id'}) {
  }          $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
  $crs=~s/\_/\//g;          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
         my $hwkadd='';          my @privs;
         if ($env{'request.symb'} ne '' &&          if ($env{'request.symb'} ne '') {
     $env{'request.filename'}=~/$LONCAPA::assess_re/) {               if ($env{'request.filename'}=~/$LONCAPA::assess_re/) {
     if (&Apache::lonnet::allowed('mgr',$crs)) {                   push(@privs,('mgr','vgr'));
  $hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',               }
                        "gocmd('/adm/grades','gradingmenu')",               push(@privs,'opa');
                        'Content Grades');          }
             } elsif (&Apache::lonnet::allowed('vgr',$crs)) {          foreach my $priv (@privs) {
  $hwkadd.=&switch('','',7,2,'subm.png','Content Submissions','missions[_1]',              $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
                        "gocmd('/adm/grades','submission')",              if (!$perms{$priv} && $env{'request.course.sec'} ne '') {
        'Content Submissions');                  $perms{$priv} = 
                       &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
             }              }
           }
   #
   # Determine whether or not to show Grades and Submissions buttons
   #
           if ($env{'request.symb'} ne '' &&
               $env{'request.filename'}=~/$LONCAPA::assess_re/) {
               if ($perms{'mgr'}) {
                   &switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',
                           "gocmd('/adm/grades','gradingmenu')",
                           'Content Grades');
               } elsif ($perms{'vgr'}) {
                   &switch('','',7,2,'subm.png','Content Submissions','missions[_1]',
                           "gocmd('/adm/grades','submission')",
                           'Content Submissions');
                }
           }
           if (($env{'request.symb'} ne '') && ($perms{'opa'})) {
               &switch('','',7,3,'pparm.png','Content Settings','parms[_2]',
                       "gocmd('/adm/parmset','set')",
                       'Content Settings');
  }   }
  if ($env{'request.symb'} ne '' &&  # End grades/submissions check
     &Apache::lonnet::allowed('opa',$crs)) {  
     $hwkadd.=&switch('','',7,3,'pparm.png','Content Settings','parms[_2]',  
      "gocmd('/adm/parmset','set')",  
      'Content Settings');  
  }  
         if ($env{'request.symb'}=~/^uploaded/ &&  
             &Apache::lonnet::allowed('mdc',$crs)) {  
             $hwkadd.=&switch('','',7,4,'docs.png','Folder/Page Content','parms[_2]',  
                              "gocmd('/adm/coursedocs','direct')",  
                              'Folder/Page Content');  
         }  
 # -- End Homework  
         ###  
         ### Determine whether or not to display the 'cstr' button for this  
         ### resource  
         ###  
         my $editbutton = '';  
         my $noeditbutton = 1;  
         my ($cnum,$cdom);  
         if ($env{'request.course.id'}) {  
             $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
             $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
         }  
         if ($env{'user.author'}) {  
             if ($env{'request.role'}=~/^(aa|ca|au)/) {  
 #  
 # We have the role of an author  
 #  
                 # Set defaults for authors  
                 my ($top,$bottom) = ('con-','struct');  
                 my $action = "go('/priv/".$env{'user.domain'}.'/'.$env{'user.name'}."');";  
                 my $cadom  = $env{'request.role.domain'};  
                 my $caname = $env{'user.name'};  
                 my $desc = "Enter my construction space";  
                 # Set defaults for co-authors  
                 if ($env{'request.role'} =~ /^ca/) {   
                     ($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);  
                     ($top,$bottom) = ('co con-','struct');  
                     $action = "go('/priv/".$cadom.'/'.$caname."');";  
                     $desc = "Enter construction space as co-author";  
                 } elsif ($env{'request.role'} =~ /^aa/) {  
                     ($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);  
                     ($top,$bottom) = ('co con-','struct');  
                     $action = "go('/priv/".$cadom.'/'.$caname."');";  
                     $desc = "Enter construction space as assistant co-author";  
                 }  
                 # Check that we are on the correct machine  
                 my $home = &Apache::lonnet::homeserver($caname,$cadom);  
  my $allowed=0;  
  my @ids=&Apache::lonnet::current_machine_ids();  
  foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }  
  if (!$allowed) {  
     $editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);  
                     $noeditbutton = 0;  
                 }  
             }  
 #  
 # We are an author for some stuff, but currently do not have the role of author.  
 # Figure out if we have authoring privileges for the resource we are looking at.  
 # This should maybe become a privilege check in lonnet  
 #  
             ##  
             ## Determine if user can edit url.  
             ##  
             my $cfile='';  
             my $cfuname='';  
             my $cfudom='';  
             my $uploaded;  
             my $switchserver='';  
             my $home;  
             if ($env{'request.filename'}) {  
                 my $file=&Apache::lonnet::declutter($env{'request.filename'});  
                 if (defined($cnum) && defined($cdom)) {  
                     $uploaded = &is_course_upload($file,$cnum,$cdom);  
                 }  
                 if (!$uploaded) {  
   
                     $file=~s{^(priv/$match_domain/$match_username)}{/$1};  
                     $file=~s{^($match_domain/$match_username)}{/priv/$1};  
   
                     # Check that the user has permission to edit this resource  #
                     my $setpriv = 1;  # This applies to items inside a folder/page modifiable in the course.
                     ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$setpriv);  #
                     if (defined($cfudom)) {          if (($env{'request.symb'}=~/^uploaded/) && ($perms{'mdc'})) {
         $home=&Apache::lonnet::homeserver($cfuname,$cfudom);              my $text = 'Edit Folder';
         my $allowed=0;              if (($mapurl =~ /\.page$/) ||
         my @ids=&Apache::lonnet::current_machine_ids();                  ($env{'request.symb'}=~
         foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }                       m{uploaded/$cdom/$cnum/default_\d+\.page$}))  {
         if ($allowed) {                  $text = 'Edit Page';
                             $cfile=$file;              }
                         } else {              &switch('','',7,4,'docs-22x22.png',$text,'parms[_2]',
                             $switchserver=$file;                      "gocmd('/adm/coursedocs','direct')",
                         }                      'Folder/Page Content');
                     }  
                 }  
             }  
             # Finally, turn the button on or off  
             if (($cfile || $switchserver) && !$const_space) {  
                 my $nocrsedit;  
                 # Suppress display where CC has switched to student role.  
                 if ($env{'request.course.id'}) {  
                     unless(&Apache::lonnet::allowed('mdc',  
                                                     $env{'request.course.id'})) {  
                         $nocrsedit = 1;  
                     }  
                 }  
                 if ($nocrsedit) {  
                     $editbutton=&clear(6,1);  
                 } else {  
                     my $bot = "go('$cfile')";  
                     if ($switchserver) {  
                         if ( $env{'request.symb'} && $env{'request.course.id'} ) {  
                             $cfile = '/adm/switchserver?otherserver='.$home.'&amp;role='.  
                                      &HTML::Entities::encode($env{'request.role'},'"<>&').'&amp;symb='.  
                                      &HTML::Entities::encode($env{'request.symb'},'"<>&');  
                             $bot = "need_switchserver('$cfile');";  
                         }  
                     }  
                     $editbutton=&switch  
                        ('','',6,1,'pcstr.png','Edit','resource[_2]',  
                         $bot,"Edit this resource");  
                     $noeditbutton = 0;  
                 }  
             } elsif ($editbutton eq '') {  
                 $editbutton=&clear(6,1);  
             }  
         }  
         if (($noeditbutton) && ($env{'request.filename'})) {   
             if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {  
                 my $file=&Apache::lonnet::declutter($env{'request.filename'});  
                 if (defined($cnum) && defined($cdom)) {  
                     if (&is_course_upload($file,$cnum,$cdom)) {  
                         my $cfile = &edit_course_upload($file,$cnum,$cdom);  
                         if ($cfile) {  
                             $editbutton=&switch  
                                         ('','',6,1,'pcstr.png','Edit',  
                                          'resource[_2]',"go('".$cfile."');",  
                                          'Edit this resource');  
                         }  
                     }  
                 }  
             }  
         }  
         if ($env{'request.course.id'}) {  
             if ($resurl eq "public/$cdom/$cnum/syllabus") {  
                 if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {  
                     if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {  
                         $editbutton=&switch('','',6,1,'pcstr.png','Edit',  
                                             'resource[_2]',  
                                             "go('/adm/courseprefs?phase=display&actions=courseinfo')",  
                                             'Edit this resource');  
                     }  
                 }  
             }  
         }          }
         ###  # End modifiable folder/page container check
         ###      }
   # End course context
   
 # Prepare the rest of the buttons  # Prepare the rest of the buttons
         my $menuitems;          my ($menuitems,$got_prt,$got_wishlist);
         if ($const_space) {          if ($const_space) {
 #  #
 # We are in construction space  # We are in construction space
Line 674  ENDMENUITEMS Line 800  ENDMENUITEMS
         } elsif ( defined($env{'request.course.id'}) &&           } elsif ( defined($env{'request.course.id'}) && 
  $env{'request.symb'} ne '' ) {   $env{'request.symb'} ne '' ) {
 #  #
 # We are in a course and looking at a registred 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=(<<ENDMENUITEMS);      $menuitems=(<<ENDMENUITEMS);
Line 686  c&8&1 Line 812  c&8&1
 c&8&2  c&8&2
 s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document  s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
 ENDMENUITEMS  ENDMENUITEMS
             if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F' && $env{'request.uri'} =~ /^\/res/) {              $got_prt = 1;
               if (($env{'user.adv'}) && ($env{'request.uri'} =~ /^\/res/)
                   && (!$env{'request.enc'})) {
                 # wishlist is only available for users with access to resource-pool                  # wishlist is only available for users with access to resource-pool
                 # and links can only be set for resources within the resource-pool                  # and links can only be set for resources within the resource-pool
                 $menuitems .= (<<ENDMENUITEMS);                  $menuitems .= (<<ENDMENUITEMS);
 s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1  s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in my personal Stored Links repository&&1
 ENDMENUITEMS  ENDMENUITEMS
                   $got_wishlist = 1;
             }              }
   
 my $currentURL = &Apache::loncommon::get_symb();  my $currentURL = &Apache::loncommon::get_symb();
Line 705  if(length($annotation) > 0){ Line 834  if(length($annotation) > 0){
 }  }
 $menuitems.="&Notes&&annotate()&";  $menuitems.="&Notes&&annotate()&";
 $menuitems.="Make notes and annotations about this resource&&1\n";  $menuitems.="Make notes and annotations about this resource&&1\n";
   my $is_mobile;
   if ($env{'browser.mobile'}) {
       $is_mobile = 1;
   }
   
             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/})) {
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.png&Info&info[_1]&catalog_info()&Show Metadata  s&6&3&catalog.png&Info&info[_1]&catalog_info('$is_mobile')&Show Metadata
 ENDREALRES  ENDREALRES
                 }                  }
         $menuitems.=(<<ENDREALRES);                  unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) ||
                           ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/})) {  
                       $menuitems.=(<<ENDREALRES);
 s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource  s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
   ENDREALRES
                   }
                   unless ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/}) {
                       $menuitems.=(<<ENDREALRES);
 s&8&2&fdbk.png&Communicate&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource  s&8&2&fdbk.png&Communicate&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
 ENDREALRES  ENDREALRES
                   }
     }      }
         }          }
  if ($env{'request.uri'} =~ /^\/res/) {   if ($env{'request.uri'} =~ /^\/res/) {
     $menuitems .= (<<ENDMENUITEMS);              unless ($got_prt) {
           $menuitems .= (<<ENDMENUITEMS);
 s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document  s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
 ENDMENUITEMS  ENDMENUITEMS
             if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F') {                  $got_prt = 1;
                 # wishlist is only available for users with access to resource-pool  
                 $menuitems .= (<<ENDMENUITEMS);  
 s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in in your personal Stored Links repository&&1  
 ENDMENUITEMS  
             }              }
  }              unless ($got_wishlist) {
                   if (($env{'user.adv'}) && (!$env{'request.enc'})) {
                       # wishlist is only available for users with access to resource-pool
                       $menuitems .= (<<ENDMENUITEMS);
   s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1
   ENDMENUITEMS
                       $got_wishlist = 1;
                   }
       }
           }
         my $buttons='';          my $buttons='';
         foreach (split(/\n/,$menuitems)) {          foreach (split(/\n/,$menuitems)) {
     my ($command,@rest)=split(/\&/,$_);      my ($command,@rest)=split(/\&/,$_);
Line 757  ENDMENUITEMS Line 903  ENDMENUITEMS
             &Apache::lonhtmlcommon::add_breadcrumb_tool(              &Apache::lonhtmlcommon::add_breadcrumb_tool(
                 'navigation', @inlineremote[21,23]);                  'navigation', @inlineremote[21,23]);
   
         if(hidden_button_check() ne 'yes') {          my $countdown = &countdown_timer();
           if (&hidden_button_check() eq 'yes') {
               if ($countdown) {
                   &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
               }
           } else {
               my @tools = @inlineremote[93,91,81,82,83];
               if ($countdown) {
                   unshift(@tools,$countdown);
               }
             &Apache::lonhtmlcommon::add_breadcrumb_tool(              &Apache::lonhtmlcommon::add_breadcrumb_tool(
                 'tools', @inlineremote[93,91,81,82,83]);                  'tools',@tools);
   
             #publish button in construction space              #publish button in construction space
             if ($env{'request.state'} eq 'construct'){              if ($env{'request.state'} eq 'construct'){
Line 769  ENDMENUITEMS Line 924  ENDMENUITEMS
                 &Apache::lonhtmlcommon::add_breadcrumb_tool(                  &Apache::lonhtmlcommon::add_breadcrumb_tool(
                      'tools', $inlineremote[63]);                       'tools', $inlineremote[63]);
             }              }
                           &advtools_crumbs(@inlineremote);
             unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {  
                 &Apache::lonhtmlcommon::add_breadcrumb_tool(  
                     'advtools', @inlineremote[61,71,72,73,74,92]);  
             }  
         }          }
     }      }
   
Line 782  ENDMENUITEMS Line 933  ENDMENUITEMS
            . &Apache::lonhtmlcommon::scripttag('', 'end');             . &Apache::lonhtmlcommon::scripttag('', 'end');
 }  }
   
 sub is_course_upload {  sub get_editbutton {
     my ($file,$cnum,$cdom) = @_;      my ($cfile,$home,$switchserver,$forceedit,$forceview,$forcereg) = @_;
     my $uploadpath = &LONCAPA::propath($cdom,$cnum);      my $jscall;
     $uploadpath =~ s{^\/}{};      if (($forceview) && ($env{'form.todocs'})) {
     if (($file =~ m{^\Q$uploadpath\E/userfiles/docs/}) ||          my ($folderpath,$command);
         ($file =~ m{^userfiles/\Q$cdom\E/\Q$cnum\E/docs/})) {          if ($env{'request.symb'}) {
               $folderpath = &Apache::loncommon::symb_to_docspath($env{'request.symb'});
           } elsif ($env{'form.folderpath'} =~ /^supplemental/) {
               $folderpath = $env{'form.folderpath'};
               $command = '&forcesupplement=1';
           }
           $folderpath = &escape(&HTML::Entities::encode(&escape($folderpath),'<>&"'));
           $jscall = "go('/adm/coursedocs?folderpath=$folderpath$command')";
       } else {
           $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,
                                                   $forceedit,$forcereg,$env{'request.symb'},
                                                   &escape($env{'form.folderpath'}),
                                                   &escape($env{'form.title'}),$env{'form.idx'},
                                                   &escape($env{'form.suppurl'},$env{'form.todocs'}));
       }
       if ($jscall) {
           my $icon = 'pcstr.png';
           my $label = 'Edit';
           if ($forceview) {
               $icon = 'tolastloc.png';
               $label = 'Exit Editing';
           }
           &switch('','',6,1,$icon,$label,'resource[_2]',
                   $jscall,"Edit this resource");
         return 1;          return 1;
     }      }
     return;      return;
 }  }
   
 sub edit_course_upload {  sub prepare_functions {
     my ($file,$cnum,$cdom) = @_;      my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs) = @_;
     my $cfile;      unless ($env{'request.registered'}) {
     if ($file =~/\.(htm|html|css|js|txt)$/) {          undef(@inlineremote);
         my $ext = $1;      }
         my $url = &Apache::lonnet::hreflocation('',$file);      my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,
         my $home = &Apache::lonnet::homeserver($cnum,$cdom);          $forceview);
         my @ids=&Apache::lonnet::current_machine_ids();  
         my $dest;      if ($env{'request.course.id'}) {
         if ($home && grep(/^\Q$home\E$/,@ids)) {          $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
             $dest = $url.'?forceedit=1';          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         } else {          $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
             unless (&Apache::lonnet::get_locks()) {      }
                 $dest = '/adm/switchserver?otherserver='.  
                         $home.'&role='.$env{'request.role'}.      my $editbutton = '';
                         '&url='.$url.'&forceedit=1';  #
   # Determine whether or not to display 'Edit' icon/button
   #
       if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
           my $file=&Apache::lonnet::declutter($env{'request.filename'});
           ($cfile,$home,$switchserver,$forceedit,$forceview) =
               &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
                   &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
           if (($cfile) && ($home ne '') && ($home ne 'no_host')) {
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
           }
       } elsif ((!$env{'request.course.id'}) &&
                ($env{'user.author'}) && ($env{'request.filename'}) &&
                ($env{'request.role'} !~/^(aa|ca|au)/)) {
   #
   # Currently do not have the role of author or co-author.
   # Do we have authoring privileges for the resource?
   #
           my $file=&Apache::lonnet::declutter($env{'request.filename'});
           ($cfile,$home,$switchserver,$forceedit,$forceview) =
               &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
                   &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
           if (($cfile) && ($home ne '') && ($home ne 'no_host')) {
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
           }
       } elsif ($env{'request.course.id'}) {
   #
   # This applies in course context
   #
           if (($perms{'mdc'}) &&
               (($resurl eq "/public/$cdom/$cnum/syllabus") ||
               ($resurl =~ m{^/uploaded/$cdom/$cnum/portfolio/syllabus/}))) {
               $cfile = $resurl;
               $home = &Apache::lonnet::homeserver($cnum,$cdom);
               if ($env{'form.forceedit'}) {
                   $forceview = 1;
               } else {
                   $forceedit = 1;
               }
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
           } elsif (($resurl eq '/adm/extresedit') &&
                    (($env{'form.symb'}) || ($env{'form.folderpath'}))) {
               ($cfile,$home,$switchserver,$forceedit,$forceview) =
               &Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl,
                                                  $env{'form.symb'});
               if ($cfile ne '') {
                   $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                                 $forceedit,$forceview,$forcereg,
                                                 $env{'form.title'},$env{'form.suppurl'});
               }
           } elsif (($resurl =~ m{^/?adm/viewclasslist$}) &&
                    (&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {
               ($cfile,$home,$switchserver,$forceedit,$forceview) =
               &Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl,
                                                  $env{'form.symb'});
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
           } elsif (($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) &&
                    ($resurl ne '/cgi-bin/printout.pl')) {
               if ($env{'request.filename'}) {
                   my $file=&Apache::lonnet::declutter($env{'request.filename'});
                   ($cfile,$home,$switchserver,$forceedit,$forceview) =
                       &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
                           &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
                   if ($cfile ne '') {
                       $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                                     $forceedit,$forceview,$forcereg);
                   }
             }              }
         }          }
         if ($dest) {      }
             $cfile = &HTML::Entities::encode($dest,'"<>&');  # End determination of 'Edit' icon/button display
   
       if ($env{'request.course.id'}) {
   # This applies to about me page for users in a course
           if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
               my ($sdom,$sname) = ($1,$2);
               unless (&Apache::lonnet::is_course($sdom,$sname)) {
                   &switch('','',6,4,'mail-message-new-22x22.png','Message to user',
                           '',
                           "go('/adm/email?compose=individual&amp;recname=$sname&amp;recdom=$sdom')",
                               'Send message to specific user');
               }
               my $hideprivileged = 1;
               if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,
                                              $hideprivileged)) {
                   foreach my $priv ('vsa','vgr','srm') {
                       $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
                       if (!$perms{$priv} && $env{'request.course.sec'} ne '') {
                           $perms{$priv} =
                               &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
                       }
                   }
                   if ($perms{'vsa'}) {
                       &switch('','',6,5,'trck-22x22.png','Activity',
                               '',
                               "go('/adm/trackstudent?selected_student=$sname:$sdom')",
                               'View recent activity by this person');
                   }
                   if ($perms{'vgr'}) {
                       &switch('','',6,6,'rsrv-22x22.png','Reservations',
                               '',
                               "go('/adm/slotrequest?command=showresv&amp;origin=aboutme&amp;uname=$sname&amp;udom=$sdom')",
                               'Slot reservation history');
                   }
                   if ($perms{'srm'}) {
                       &switch('','',6,7,'contact-new-22x22.png','Records',
                               '',
                               "go('/adm/email?recordftf=retrieve&amp;recname=$sname&amp;recdom=$sdom')",
                               'Add records');
                   }
               }
           }
           if (($env{'form.folderpath'} =~ /^supplemental/) &&
               (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
               (($resurl =~ m{^/adm/wrapper/ext/}) ||
                ($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) ||
                ($resurl eq '/adm/supplemental') ||
                ($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) ||
                ($resurl =~ m{^/adm/$match_domain/$match_username/aboutme$}))) {
               my @folders=split('&',$env{'form.folderpath'});
               if ((@folders > 2) || ($resurl ne '/adm/supplemental')) {
                   my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));
                   &switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',
                           "location.href='/adm/coursedocs?command=direct&amp;forcesupplement=1&amp;supppath=$esc_path'",
                           'Folder/Page Content');
               }
           }
       }
   
   # End checking for items for about me page for users in a course
       if ($docscrumbs) {
           &Apache::lonhtmlcommon::clear_breadcrumb_tools();
           &advtools_crumbs(@inlineremote);
           return $editbutton;
       } elsif ($env{'request.registered'}) {
           return $editbutton;
       } else {
           if (ref($bread_crumbs) eq 'ARRAY') {
               if (@inlineremote > 0) {
                   if (ref($advtools) eq 'ARRAY') {
                       @{$advtools} = @inlineremote;
                   }
               }
               return;
           } elsif (@inlineremote > 0) {
               &Apache::lonhtmlcommon::clear_breadcrumb_tools();
               &advtools_crumbs(@inlineremote);
               return   &Apache::lonhtmlcommon::scripttag('', 'start')
                      . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
                      . &Apache::lonhtmlcommon::scripttag('', 'end');
         }          }
     }      }
     return $cfile;  }
   
   sub advtools_crumbs {
       my @funcs = @_;
       if ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) {
           &Apache::lonhtmlcommon::add_breadcrumb_tool(
               'advtools', @funcs[61,64,65,66,67,74]);
       } elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {
           &Apache::lonhtmlcommon::add_breadcrumb_tool(
               'advtools', @funcs[61,71,72,73,74,92]);
       } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {
           &Apache::lonhtmlcommon::add_breadcrumb_tool(
               'advtools', $funcs[61]);
       }
       return;
 }  }
   
 # ================================================================== Raw Config  # ================================================================== Raw Config
Line 870  sub switch { Line 1207  sub switch {
    }     }
     } else {      } else {
 # Inline Menu  # Inline Menu
       $inlineremote[$idx]=          my @tools = (93,91,81,82,83);
           unless ($env{'request.state'} eq 'construct') {
               push(@tools,63);
           }
           if (($env{'environment.icons'} eq 'iconsonly') && 
               (grep(/^$idx$/,@tools))) {
               $inlineremote[$idx] =
           '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>';
           } else {
               $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>';
           }
     }      }
     return '';      return '';
 }  }
Line 952  sub rawconfig { Line 1299  sub rawconfig {
     my $pub=($env{'request.state'} eq 'published');      my $pub=($env{'request.state'} eq 'published');
     my $con=($env{'request.state'} eq 'construct');      my $con=($env{'request.state'} eq 'construct');
     my $rol=$env{'request.role'};      my $rol=$env{'request.role'};
     my $requested_domain = $env{'request.role.domain'};      my $requested_domain;
       if ($rol) {
          $requested_domain = $env{'request.role.domain'};
       }
     foreach my $line (@desklines) {      foreach my $line (@desklines) {
         my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);          my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);
         $prt=~s/\$uname/$uname/g;          $prt=~s/\$uname/$uname/g;
Line 966  sub rawconfig { Line 1316  sub rawconfig {
             next if ($crstype ne 'Community');              next if ($crstype ne 'Community');
             $prt=~s/\$cmty/$crs/g;              $prt=~s/\$cmty/$crs/g;
         }          }
         $prt=~s/\$requested_domain/$requested_domain/g;          if ($prt =~ m/\$requested_domain/) {
               if ((!$requested_domain) && ($pro eq 'pbre') && ($env{'user.adv'})) {
                   $prt=~s/\$requested_domain/$env{'user.domain'}/g;
               } else {
                   $prt=~s/\$requested_domain/$requested_domain/g;
               }
           }
         if ($category_names{$cat}!~/\w/) { $cat='oth'; }          if ($category_names{$cat}!~/\w/) { $cat='oth'; }
         if ($pro eq 'clear') {          if ($pro eq 'clear') {
     $output.=&clear($row,$col);      $output.=&clear($row,$col);
Line 1002  sub rawconfig { Line 1358  sub rawconfig {
                     next;                      next;
                 }                  }
             }              }
     if (&Apache::lonnet::allowed($priv,$prt)) {              if ((($priv eq 'bre') && (&Apache::lonnet::allowed($priv,$prt) eq 'F')) ||
                $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);                  (($priv ne 'bre') && (&Apache::lonnet::allowed($priv,$prt)))) {
                   $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
             }              }
         } elsif ($pro eq 'course')  {          } elsif ($pro eq 'course')  {
             if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {              if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {
Line 1113  sub rawconfig { Line 1470  sub rawconfig {
   
 sub check_for_rcrs {  sub check_for_rcrs {
     my $showreqcrs = 0;      my $showreqcrs = 0;
     my @reqtypes = ('official','unofficial','community');      my @reqtypes = ('official','unofficial','community','textbook');
     foreach my $type (@reqtypes) {      foreach my $type (@reqtypes) {
         if (&Apache::lonnet::usertools_access($env{'user.name'},          if (&Apache::lonnet::usertools_access($env{'user.name'},
                                               $env{'user.domain'},                                                $env{'user.domain'},
Line 1158  END Line 1515  END
   
 }  }
   
   sub countdown_toggle_js {
       return <<"END";
   
   function toggleCountdown() {
       var countdownid = document.getElementById('duedatecountdown');
       var currstyle = countdownid.style.display;
       if (currstyle == 'inline') {
           countdownid.style.display = 'none';
           document.getElementById('ddcountcollapse').innerHTML='';
           document.getElementById('ddcountexpand').innerHTML='&#9668;&nbsp;';
       } else {
           countdownid.style.display = 'inline';
           document.getElementById('ddcountcollapse').innerHTML='&#9658;&nbsp;';
           document.getElementById('ddcountexpand').innerHTML='';
       }
       return;
   }
   
   END
   }
   
   # This creates a "done button" for timed events.  The confirmation box is a jQuerey
   # dialog widget.  Clicking OK will set (done = 'true') which is checked in 
   # lonhomework.pm.
   sub done_button_js {
       return <<END;
   
   <form method="post" name="doneButton">
       <input type="hidden" name="done" value=""/>
       <button id="done-confirm-opener" type="button">Done</button>
   </form> 
   
   <div id="done-confirm" title="WARNING!">
       <p></span>You are trying to end this timed event early.  Confirming that you are done will cause the time to expire and prevent you from changing any answers in the current folder.  Click "OK" if you are completely finished.  Click "Cancel" to continue working.</p>
   </div>
   
   <script>
   \$( "#done-confirm" ).dialog({ autoOpen: false });
   \$( "#done-confirm-opener" ).click(function() {
       \$( "#done-confirm" ).dialog( "open" );
       \$( "#done-confirm" ).dialog({
         resizable: false,
         height:320,
         modal: true,
         buttons: {
           "OK": function() {
               \$( this ).dialog( "close" );
               \$( '[name="done"]' )[0].value = 'true';
               \$( '[name="doneButton"]' )[0].submit();
           },
           Cancel: function() {
             \$( this ).dialog( "close" );
           }
         }    
       })
   });
   </script>
   
   END
   }
   
 sub utilityfunctions {  sub utilityfunctions {
       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]));
     if ($currenturl =~ m{^/adm/wrapper/ext/}      if ($currenturl =~ m{^/adm/wrapper/ext/}
         && $env{'request.external.querystring'} ) {          && $env{'request.external.querystring'} ) {
Line 1186  sub utilityfunctions { Line 1605  sub utilityfunctions {
     my $end_page_annotate =       my $end_page_annotate = 
         &Apache::loncommon::end_page({'js_ready' => 1});          &Apache::loncommon::end_page({'js_ready' => 1});
   
     my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.      my $jumptores = &Apache::lonhtmlcommon::javascript_jumpto_resource();
                          &mt('Switch server?');  
   
     my $esc_url=&escape($currenturl);      my $esc_url=&escape($currenturl);
     my $esc_symb=&escape($currentsymb);      my $esc_symb=&escape($currentsymb);
   
 return (<<ENDUTILITY)      my $countdown = &countdown_toggle_js();
   
       my $hostvar = '
   function setLCHost() {
       var lcHostname="";
   ';
       if ($httphost =~ m{^https?\://}) {
           $hostvar .= '    var lcServer="'.$httphost.'";'."\n".
                       '    var hostReg = /^https?:\/\/([^\/]+)$/i;'."\n".
                       '    var match = hostReg.exec(lcServer);'."\n".
                       '    if (match.length) {'."\n".
                       '        if (match[1] == location.hostname) {'."\n".
                       '            lcHostname=lcServer;'."\n".
                       '        }'."\n".
                       '    }'."\n";
       }
       
       $hostvar .= '    return lcHostname;'."\n".
   '}'."\n";
   
   return (<<ENDUTILITY)
       $hostvar
     var currentURL=unescape("$esc_url");      var currentURL=unescape("$esc_url");
     var reloadURL=unescape("$esc_url");      var reloadURL=unescape("$esc_url");
     var currentSymb=unescape("$esc_symb");      var currentSymb=unescape("$esc_symb");
   
 $dc_popup_cid  $dc_popup_cid
   
 function go(url) {  $jumptores
    if (url!='' && url!= null) {  
        currentURL = null;  
        currentSymb= null;  
        window.location.href=url;  
    }  
 }  
   
 function need_switchserver(url) {  
     if (url!='' && url!= null) {  
         if (confirm("$confirm_switch")) {  
             go(url);   
         }  
     }  
     return;  
 }  
   
 function gopost(url,postdata) {  function gopost(url,postdata) {
    if (url!='') {     if (url!='') {
       this.document.server.action=url;        var lcHostname = setLCHost();
         this.document.server.action=lcHostname+url;
       this.document.server.postdata.value=postdata;        this.document.server.postdata.value=postdata;
       this.document.server.command.value='';        this.document.server.command.value='';
       this.document.server.url.value='';        this.document.server.url.value='';
Line 1230  function gopost(url,postdata) { Line 1654  function gopost(url,postdata) {
   
 function gocmd(url,cmd) {  function gocmd(url,cmd) {
    if (url!='') {     if (url!='') {
       this.document.server.action=url;        var lcHostname = setLCHost();
         this.document.server.action=lcHostname+url;
       this.document.server.postdata.value='';        this.document.server.postdata.value='';
       this.document.server.command.value=cmd;        this.document.server.command.value=cmd;
       this.document.server.url.value=currentURL;        this.document.server.url.value=currentURL;
Line 1282  function golist(url) { Line 1707  function golist(url) {
    if (url!='' && url!= null) {     if (url!='' && url!= null) {
        currentURL = null;         currentURL = null;
        currentSymb= null;         currentSymb= null;
        top.location.href=url;         var lcHostname = setLCHost();
          top.location.href=lcHostname+url;
    }     }
 }  }
   
   
   
 function catalog_info() {  function catalog_info(isMobile) {
    openMyModal(window.location.pathname+'.meta',500,400,'yes');      if (isMobile == 1) {
           openMyModal(window.location.pathname+'.meta?modal=1',500,400,'yes');
       } else {
           loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
       }
 }  }
   
 function chat_win() {  function chat_win() {
    lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');     var lcHostname = setLCHost();
      lonchat=window.open(lcHostname+'/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');
 }  }
   
 function group_chat(group) {  function group_chat(group) {
    var url = '/adm/groupchat?group='+group;     var lcHostname = setLCHost();
      var url = lcHostname+'/adm/groupchat?group='+group;
    var winName = 'LONchat_'+group;     var winName = 'LONchat_'+group;
    grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');     grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
 }  }
Line 1317  function annotate() { Line 1749  function annotate() {
   
 function open_StoredLinks_Import(rat) {  function open_StoredLinks_Import(rat) {
    var newWin;     var newWin;
      var lcHostname = setLCHost();
    if (rat) {     if (rat) {
        newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,         newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,
                             'wishlistImport','scrollbars=1,resizable=1,menubar=0');                              'wishlistImport','scrollbars=1,resizable=1,menubar=0');
    }     }
    else {     else {
        newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import',         newWin = window.open(lcHostname+'/adm/wishlist?inhibitmenu=yes&mode=import',
                             'wishlistImport','scrollbars=1,resizable=1,menubar=0');                              'wishlistImport','scrollbars=1,resizable=1,menubar=0');
    }     }
    newWin.focus();     newWin.focus();
Line 1342  function open_StoredLinks_Import(rat) { Line 1775  function open_StoredLinks_Import(rat) {
   });    });
 }(jQuery));  }(jQuery));
   
   $countdown
   
 ENDUTILITY  ENDUTILITY
 }  }
   
Line 1385  sub hidden_button_check { Line 1820  sub hidden_button_check {
 }  }
   
 sub roles_selector {  sub roles_selector {
     my ($cdom,$cnum) = @_;      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);      my (%courseroles,%seccount,%courseprivs);
     my $is_cc;      my $is_cc;
     my $role_selector;      my ($js,$form,$switcher,$switchtext);
     my $ccrole;      my $ccrole;
     if ($crstype eq 'Community') {      if ($crstype eq 'Community') {
         $ccrole = 'co';          $ccrole = 'co';
     } else {      } else {
         $ccrole = 'cc';          $ccrole = 'cc';
     }      }
     my $priv;      my ($priv,$gotsymb,$destsymb);
     my $destinationurl = $ENV{'REQUEST_URI'};      my $destinationurl = $ENV{'REQUEST_URI'};
       if ($destinationurl =~ /\?symb=/) {
           $gotsymb = 1;
       } elsif ($destinationurl =~ m{^/enc/}) {
           my $plainurl = &Apache::lonenc::unencrypted($destinationurl);
           if ($plainurl =~ /\?symb=/) {
               $gotsymb = 1;
           }
       }
       unless ($gotsymb) {
           $destsymb = &Apache::lonnet::symbread();
           if ($destsymb ne '') {
               $destsymb = &Apache::lonenc::check_encrypt($destsymb);
           }
       }
     my $reqprivs = &required_privs();      my $reqprivs = &required_privs();
     if (ref($reqprivs) eq 'HASH') {      if (ref($reqprivs) eq 'HASH') {
         my $destination = $destinationurl;          my $destination = $destinationurl;
Line 1464  sub roles_selector { Line 1913  sub roles_selector {
             }              }
         }          }
     }      }
     my $switchtext;      $switchtext = 'Switch role'; # do not translate here
     if ($crstype eq 'Community') {  
         $switchtext = &mt('Switch community role to...')  
     } else {  
         $switchtext = &mt('Switch course role to...')  
     }  
     my @roles_order = ($ccrole,'in','ta','ep','ad','st');      my @roles_order = ($ccrole,'in','ta','ep','ad','st');
     if (keys(%courseroles) > 1) {      my $numdiffsec;
         $role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);      if (keys(%seccount) == 1) {
         $role_selector .= '<form name="rolechooser" method="post" action="/adm/roles">          foreach my $key (keys(%seccount)) {
                           <select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">';              $numdiffsec = $seccount{$key};
         $role_selector .= '<option value="">'.$switchtext.'</option>';          }
       }
       if ((keys(%seccount) > 1) || ($numdiffsec > 1)) {
           my @submenu;
           $js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);
           $form = 
               '<form name="rolechooser" method="post" action="'.$httphost.'/adm/roles">'."\n".
               '  <input type="hidden" name="destinationurl" value="'.
               &HTML::Entities::encode($destinationurl).'" />'."\n".
               '  <input type="hidden" name="gotorole" value="1" />'."\n".
               '  <input type="hidden" name="selectrole" value="" />'."\n".
               '  <input type="hidden" name="switchrole" value="" />'."\n";
           if ($destsymb ne '') {
               $form .= '  <input type="hidden" name="destsymb" value="'.
                           &HTML::Entities::encode($destsymb).'" />'."\n";
           }
           $form .= '</form>'."\n";
         foreach my $role (@roles_order) {          foreach my $role (@roles_order) {
               my $include;
             if (defined($courseroles{$role})) {              if (defined($courseroles{$role})) {
                 $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role,$crstype).'</option>';                   if ($env{'request.role'} =~ m{^\Q$role\E}) {
                       if ($seccount{$role} > 1) {
                           $include = 1;
                       }
                   } else {
                       $include = 1;
                   }
               }
               if ($include) {
                   push(@submenu,['javascript:adhocRole('."'$role'".')',
                                  &Apache::lonnet::plaintext($role,$crstype)]);
             }              }
         }          }
         foreach my $role (sort(keys(%courseroles))) {          foreach my $role (sort(keys(%courseroles))) {
             if ($role =~ /^cr/) {              if ($role =~ /^cr/) {
                 $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';                   my $include;
                   if ($env{'request.role'} =~ m{^\Q$role\E}) {
                       if ($seccount{$role} > 1) {
                           $include = 1;
                       }
                   } else {
                       $include = 1; 
                   }
                   if ($include) {
                       push(@submenu,['javascript:adhocRole('."'$role'".')',
                                      &Apache::lonnet::plaintext($role)]);
                   }
             }              }
         }          }
         $role_selector .= '</select>'."\n".          if (@submenu > 0) {
                '<input type="hidden" name="destinationurl" value="'.              $switcher = &create_submenu('','',$switchtext,\@submenu);
                &HTML::Entities::encode($destinationurl).'" />'."\n".          }
                '<input type="hidden" name="gotorole" value="1" />'."\n".  
                '<input type="hidden" name="selectrole" value="" />'."\n".  
                '<input type="hidden" name="switch" value="1" />'."\n".  
                '</form>';  
     }      }
     return $role_selector;      return ($js,$form,$switcher);
 }  }
   
 sub get_all_courseroles {  sub get_all_courseroles {
Line 1557  sub get_all_courseroles { Line 2035  sub get_all_courseroles {
         push(@{$courseroles->{'st'}},keys(%sections_count));          push(@{$courseroles->{'st'}},keys(%sections_count));
         $seccount->{'st'} = scalar(keys(%sections_count));          $seccount->{'st'} = scalar(keys(%sections_count));
     }      }
       $seccount->{'st'} ++; # Increment for a section-less student role.  
     my $rolehash = {      my $rolehash = {
                      'roles'    => $courseroles,                       'roles'    => $courseroles,
                      'seccount' => $seccount,                       'seccount' => $seccount,
Line 1633  sub jump_to_role { Line 2112  sub jump_to_role {
     return <<"END";      return <<"END";
 <script type="text/javascript">  <script type="text/javascript">
 //<![CDATA[  //<![CDATA[
 function adhocRole(roleitem) {  function adhocRole(newrole) {
     $js      $js
     var newrole =  document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value;  
     if (newrole == '') {      if (newrole == '') {
         return;          return;
     }       } 
Line 1652  function adhocRole(roleitem) { Line 2130  function adhocRole(roleitem) {
                 if (confirm("$lt{'role'}\\n$lt{'swit'}")) {                  if (confirm("$lt{'role'}\\n$lt{'swit'}")) {
                     document.rolechooser.destinationurl.value = '/adm/menu';                      document.rolechooser.destinationurl.value = '/adm/menu';
                 } else {                  } else {
                     document.rolechooser.elements[roleitem].selectedIndex = 0;  
                     return;                      return;
                 }                  }
             }              }
Line 1688  function adhocRole(roleitem) { Line 2165  function adhocRole(roleitem) {
             fullrole += '/'+secchoice;              fullrole += '/'+secchoice;
         }          }
     } else {      } else {
         document.rolechooser.elements[roleitem].selectedIndex = 0;  
         if (secchoice != null) {          if (secchoice != null) {
             alert("$lt{'youe'} \\""+secchoice+"\\".\\n $lt{'plst'}");              alert("$lt{'youe'} \\""+secchoice+"\\".\\n $lt{'plst'}");
         }          }
         return;          return;
     }      }
     if (fullrole == "$env{'request.role'}") {      if (fullrole == "$env{'request.role'}") {
         document.rolechooser.elements[roleitem].selectedIndex = 0;  
         return;          return;
     }      }
     itemid = retrieveIndex('gotorole');      itemid = retrieveIndex('gotorole');
     if (itemid != -1) {      if (itemid != -1) {
         document.rolechooser.elements[itemid].name = fullrole;          document.rolechooser.elements[itemid].name = fullrole;
     }      }
     document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value = fullrole;      document.rolechooser.switchrole.value = fullrole;
     document.rolechooser.selectrole.value = '1';      document.rolechooser.selectrole.value = '1';
     document.rolechooser.submit();      document.rolechooser.submit();
     return;      return;
Line 1740  sub required_privs { Line 2215  sub required_privs {
     return $privs;      return $privs;
 }  }
   
   sub countdown_timer {
       if (($env{'request.course.id'}) && ($env{'request.symb'} ne '') &&
           ($env{'request.filename'}=~/$LONCAPA::assess_re/)) {
           my ($type,$hastimeleft,$slothastime);
           my $now = time;
           if ($env{'request.filename'} =~ /\.task$/) {
               $type = 'Task';
           } else {
               $type = 'problem';
           }
           my ($status,$accessmsg,$slot_name,$slot) =
               &Apache::lonhomework::check_slot_access('0',$type);
           if ($slot_name ne '') {
               if (ref($slot) eq 'HASH') {
                   if (($slot->{'starttime'} < $now) &&
                       ($slot->{'endtime'} > $now)) {
                       $slothastime = 1;
                   }
               }
           }
           if ($status ne 'CAN_ANSWER') {
               return;
           }
           my $duedate = &Apache::lonnet::EXT("resource.0.duedate");
           my @interval=&Apache::lonnet::EXT("resource.0.interval");
           if (@interval > 1) {
               my $first_access=&Apache::lonnet::get_first_access($interval[1]);
               if ($first_access > 0) {
                   if ($first_access+$interval[0] > time) {
                       $hastimeleft = 1;
                   }
               }
           }
           if (($duedate && $duedate > time) ||
               (!$duedate && $hastimeleft) ||
               ($slot_name ne '' && $slothastime)) {
               my ($collapse,$expand,$alttxt,$title,$currdisp,$donebutton);
               if ((@interval > 1 && $hastimeleft) ||
                   ($type eq 'Task' && $slothastime)) {
                   $currdisp = 'inline';
                   $collapse = '&#9658;&nbsp;';
                   $donebutton = &done_button_js();
   
   
               } else {
                   $currdisp = 'none';
                   $expand = '&#9668;&nbsp;';
               }
               unless ($env{'environment.icons'} eq 'iconsonly') {
                   $alttxt = &mt('Timer');
                   $title = $alttxt.'&nbsp;';
               }
               my $desc = &mt('Countdown to due date/time');
   
               return <<END;
   
   <a href="javascript:toggleCountdown();" class="LC_menubuttons_link">
   <span id="ddcountcollapse" class="LC_menubuttons_inline_text">
   $collapse
   </span></a>
   <span id="duedatecountdown" class="LC_menubuttons_inline_text" style="display: $currdisp;"></span>
   <a href="javascript:toggleCountdown();" class="LC_menubuttons_link">
   <span id="ddcountexpand" class="LC_menubuttons_inline_text" >$expand</span>
   <img src="/res/adm/pages/timer.png" title="$desc" class="LC_icon" alt="$alttxt" /><span class="LC_menubuttons_inline_text">$title</span></a>
   $donebutton
   END
           }
       }
       return;
   }
   
 # ================================================================ Main Program  # ================================================================ Main Program
   
 BEGIN {  BEGIN {
Line 1756  BEGIN { Line 2302  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..5];                          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..4];                          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..5];                          my @entries = (split(/\:/, $configline))[1..5];
                         push @secondary_menu, \@entries;                           push(@secondary_menu,\@entries);
                     } elsif ($configline) {                      } elsif ($configline) {
                         push(@desklines,$configline);                          push(@desklines,$configline);
                     }                      }
Removed from v.1.372  
changed lines
  Added in v.1.431.2.2

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