loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.267 and 1.369.2.25

-version 1.267, 2009/05/19 14:05:19
+version 1.369.2.25, 2012/10/09 12:07:18
  Line 26
  # http://www.lon-capa.org/
  #
  #
- # There are two parameters controlling the action of this module:
- #
- # browser.interface - if this is 'textual', it overrides the second parameter
- # and goes to screen reader PDA mode
- #
- # environment.remote - if this is 'on', the routines controll the remote
- # control, otherwise they render the main window controls; ignored it
- # browser.interface is 'textual'
- #
  =head1 NAME
- Line 42  Apache::lonmenu
+ Line 33  Apache::lonmenu
  =head1 SYNOPSIS
- Coordinates the response to clicking an image.
+ Loads contents of /home/httpd/lonTabs/mydesk.tab,
+ used to generate inline menu, and Main Menu page.
  This is part of the LearningOnline Network with CAPA project
  described at http://www.lon-capa.org.
+ =head1 GLOBAL VARIABLES
+ =over
+ =item @desklines
+ Each element of this array contains a line of mydesk.tab that doesn't start with
+ cat, prim or scnd.
+ It gets filled in the BEGIN block of this module.
+ =item %category_names
+ The keys of this hash are the abbreviations used in mydesk.tab in those lines that
+ start with cat, the values are strings representing titles.
+ It gets filled in the BEGIN block of this module.
+ =item %category_members
+ TODO
+ =item %category_positions
+ The keys of this hash are the abbreviations used in mydesk.tab in those lines that
+ start with cat, its values are position vectors (column, row).
+ It gets filled in the BEGIN block of this module.
+ =item $readdesk
+ Indicates that mydesk.tab has been read.
+ It is set to 'done' in the BEGIN block of this module.
+ =item @primary_menu
+ The elements of this array reference arrays that are made up of the components
+ of those lines of mydesk.tab that start with prim:.
+ It is used by primary_menu() to generate the corresponding menu.
+ It gets filled in the BEGIN block of this module.
+ =item %primary_sub_menu
+ The keys of this hash reference are the names of items in the primary_menu array
+ which have sub-menus.  For each key, the corresponding value is a reference to
+ an array containing components extracted from lines in mydesk.tab which begin
+ with primsub:.
+ This hash, which is used by primary_menu to generate sub-menus, is populated in
+ the BEGIN block.
+ =item @secondary_menu
+ The elements of this array reference arrays that are made up of the components
+ of those lines of mydesk.tab that start with scnd.
+ It is used by secondary_menu() to generate the corresponding menu.
+ It gets filled in the BEGIN block of this module.
+ =back
  =head1 SUBROUTINES
  =over
- Little texts
+ =item prep_menuitems(\@menuitem)
+ This routine wraps a menuitem in proper HTML. It is used by primary_menu() and
+ secondary_menu().
+ =item primary_menu()
- =item initlittle()
+ This routine evaluates @primary_menu and returns XHTML for the menu
+ that contains following links: About, Message, Roles, Help, Logout
+ @primary_menu is filled within the BEGIN block of this module with
+ entries from mydesk.tab
- =item menubuttons()
+ =item secondary_menu()
- This gets called at the top of the body section
+ Same as primary_menu() but operates on @secondary_menu.
- =item show_return_link()
+ =item create_submenu()
- =item registerurl()
+ 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.
- This gets called in the header section
+ 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.
  =item innerregister()
- This gets called in order to register a URL, both with the Remote
+ This gets called in order to register a URL in the body of the document
- and in the body of the document
  =item loadevents()
- Line 106  The javascript is usually similar to "go
+ Line 167  The javascript is usually similar to "go
  =item rawconfig()
- =item close()
- =item footer()
  =item utilityfunctions()
+ Output from this routine is a number of javascript functions called by
+ items in the inline menu, and in some cases items in the Main Menu page.
  =item serverform()
  =item constspaceform()
  =item get_nav_status()
- =item convert_menu_function()
- FIXME this needs to move into mydesktab and the other locations
- the text is generated
  =item hidden_button_check()
  =item roles_selector()
- Line 141  use Apache::lonhtmlcommon();
+ Line 196  use Apache::lonhtmlcommon();
  use Apache::loncommon();
  use Apache::lonenc();
  use Apache::lonlocal;
+ use Apache::lonmsg();
  use LONCAPA qw(:DEFAULT :match);
+ use HTML::Entities();
+ use Apache::lonwishlist();
- use vars qw(@desklines %category_names %category_members %category_positions $readdesk);
+ use vars qw(@desklines %category_names %category_members %category_positions
+             $readdesk @primary_menu %primary_submenu @secondary_menu %secondary_submenu);
  my @inlineremote;
- sub initlittle {
+ sub prep_menuitem {
-     return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',
+     my ($menuitem) = @_;
- 				       'nav' => 'Navigate Contents',
+     return '' unless(ref($menuitem) eq 'ARRAY');
- 				       'main' => 'Main Menu',
+     my $link;
-                                        'roles' => (&Apache::loncommon::show_course()?
+     if ($$menuitem[1]) { # graphical Link
-                                                     'Courses':'Roles'),
+         $link = "<img class=\"LC_noBorder\""
-                                        'other' => 'Other Roles',
+               . " src=\"" . &Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\""
-                                        'docs' => 'Edit Course',
+               . " alt=\"" . &mt($$menuitem[2]) . "\" />";
-                                        'exit' => 'Logout',
+     } else {             # textual Link
-                                        'login' => 'Log In',
+         $link = &mt($$menuitem[3]);
- 				       'launch' => 'Launch Remote Control',
+     }
-                                        'groups' => 'Groups',
+     return '<li><a'
-                                        'gdoc' => 'Group Documents',
+            # highlighting for new messages
-                                        );
+            . ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '')
- }
+            . qq| href="$$menuitem[0]" target="_top">$link</a></li>|;
+ }
- sub menubuttons {
-     my $forcereg=shift;
+ # primary_menu() evaluates @primary_menu and returns XHTML for the menu
-     my $registration=shift;
+ # that contains following links:
-     my $titletable=shift;
+ # About, Message, Personal, Roles, Help, Logout
-     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ # @primary_menu is filled within the BEGIN block of this module with
- 					    ['inhibitmenu']);
+ # entries from mydesk.tab
-     if (($env{'form.inhibitmenu'} eq 'yes') ||
+ sub primary_menu {
-         ($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; }
+     my $menu;
+     # each element of @primary contains following array:
-     if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
+     # (link url, icon path, alt text, link text, condition)
+     my $public;
+     if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
+         || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
+         $public = 1;
+     }
+     foreach my $menuitem (@primary_menu) {
+         # evaluate conditions
+         next if    ref($menuitem)       ne 'ARRAY';    #
+         next if    $$menuitem[4]        eq 'nonewmsg'  # show links depending on
+                 && &Apache::lonmsg::mynewmail();       # whether a new msg
+         next if    $$menuitem[4]        eq 'newmsg'    # arrived or not
+                 && !&Apache::lonmsg::mynewmail();      #
+         next if    $$menuitem[4]        !~ /public/    ##we've a public user,
+                 && $public;                            ##who should not see all
+                                                        ##links
+         next if    $$menuitem[4]        eq 'onlypublic'# hide links which are
+                 && !$public;                           # only visible to public
+                                                        # users
+         next if    $$menuitem[4]        eq 'roles'     ##show links depending on
+                 && &Apache::loncommon::show_course();  ##term 'Courses' or
+         next if    $$menuitem[4]        eq 'courses'   ##'Roles' wanted
+                 && !&Apache::loncommon::show_course(); ##
+         my $title = $menuitem->[3];
+         if (defined($primary_submenu{$title})) {
+             my ($link,$target);
+             if ($menuitem->[0] ne '') {
+                 $link = $menuitem->[0];
+                 $target = '_top';
+             } else {
+                 $link = '#';
+             }
+             my @primsub;
+             if (ref($primary_submenu{$title}) eq 'ARRAY') {
+                 foreach my $item (@{$primary_submenu{$title}}) {
+                     next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'}));
+                     next if (($item->[2] eq 'reqcrs') && (!&check_for_rcrs()));
+                     next if ((($item->[2] eq 'portfolio') ||
+                              ($item->[2] eq 'blog')) &&
+                              (!&Apache::lonnet::usertools_access('','',$item->[2],
+                                                            undef,'tools')));
+                     push(@primsub,$item);
+                 }
+                 if (@primsub > 0) {
+                     $menu .= &create_submenu($link,$target,$title,\@primsub);
+                 } elsif ($link) {
+                     $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';
+                 }
+             }
+         } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
+             if ($public) {
+                 my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
+                 my $defdom = &Apache::lonnet::default_login_domain();
+                 my $to = &Apache::loncommon::build_recipient_list(undef,
+                                                                   'helpdeskmail',
+                                                                   $defdom,$origmail);
+                 if ($to ne '') {
+                     $menu .= &prep_menuitem($menuitem);
+                 }
+             } else {
+                 $menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
+             }
+         } else {
+             $menu .= prep_menuitem($menuitem);
+         }
+     }
+     $menu =~ s/\[domain\]/$env{'user.domain'}/g;
+     $menu =~ s/\[user\]/$env{'user.name'}/g;
-     my %lt=&initlittle();
+     return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";
-     my $navmaps='';
+ }
-     my $reloadlink='';
-     my $docs='';
-     my $groups='';
-     my $roles='<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>';
-     my $role_selector;
-     my $showgroups=0;
-     my ($cnum,$cdom);
-     my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));
-     my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));
-     my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");
-     $logo = '<a href="/adm/about.html"><img src="'.
- 	$logo.'" alt="LON-CAPA Logo" class="LC_noBorder" /></a>';
-     if ($env{'request.state'} eq 'construct') {
+ #returns hashref {user=>'',dom=>''} containing:
-         if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) {
+ #   own name, domain if user is au
-             my $returnurl = $env{'request.filename'};
+ #   name, domain of parent author if user is ca or aa
-             $returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:;
+ #empty return if user is not an author or not on homeserver
-             $escurl = &escape($returnurl);
+ #
-         }
+ #TODO this should probably be moved somewhere more central
+ #since it can be used by different parts of the system
+ sub getauthor{
+     return unless $env{'request.role'}=~/^(ca|aa|au)/; #nothing to do if user isn't some kind of author
+                         #co- or assistent author?
+     my ($dom, $user) = ($env{'request.role'} =~ /^(?:ca|aa)\.\/($match_domain)\/($match_username)$/)
+                        ? ($1, $2) #domain, username of the parent author
+                        : @env{ ('request.role.domain', 'user.name') }; #own domain, username
+     # current server == home server?
+     my $home =  &Apache::lonnet::homeserver($user,$dom);
+     foreach (&Apache::lonnet::current_machine_ids()){
+         return {user => $user, dom => $dom} if $_ eq $home;
      }
-     if ($env{'request.course.id'}) {
-         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+     # if wrong server
-         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+     return;
-         my %coursegroups;
+ }
-         my $viewgrps_permission =
- 	    &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
+ sub secondary_menu {
-         if (!$viewgrps_permission) {
+     my $menu;
-             %coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$cdom,$cnum);
- 	}
+     my $crstype = &Apache::loncommon::course_type();
-         if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) {
+     my $crs_sec = $env{'request.course.id'} . ($env{'request.course.sec'}
-             $showgroups = 1;
+                                                ? "/$env{'request.course.sec'}"
-         }
+                                                : '');
-         $role_selector = &roles_selector($cdom,$cnum);
+     my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
-         if ($role_selector) {
+     my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};
-             $roles = '<span class="LC_nobreak">'.$role_selector.'&nbsp;&nbsp;<a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></span>';
+     my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec);
+     my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);
+     my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec);
+     my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);
+     my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);
+     my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec);
+     my $author        = &getauthor();
+     my %groups = &Apache::lonnet::get_active_groups(
+                      $env{'user.domain'}, $env{'user.name'},
+                      $env{'course.' . $env{'request.course.id'} . '.domain'},
+                      $env{'course.' . $env{'request.course.id'} . '.num'});
+     foreach my $menuitem (@secondary_menu) {
+         # evaluate conditions
+         next if    ref($menuitem)  ne 'ARRAY';
+         next if    $$menuitem[4]   ne 'always'
+                 && $$menuitem[4]   ne 'author'
+                 && !$env{'request.course.id'};
+         next if    $$menuitem[4]   =~ /^mdc/
+                 && !$canedit;
+         next if    $$menuitem[4]  eq 'mdcCourse'
+                 && ($crstype eq 'Community');
+         next if    $$menuitem[4]  eq 'mdcCommunity'
+                 && ($crstype eq 'Course');
+         next if    $$menuitem[4]  eq 'nvgr'
+                 && $canvgr;
+         next if    $$menuitem[4]  eq 'vgr'
+                 && !$canvgr;
+         next if    $$menuitem[4]   eq 'cst'
+                 && !$canmodifyuser;
+         next if    $$menuitem[4]   eq 'ncst'
+                 && ($canmodifyuser || !$canviewroster);
+         next if    $$menuitem[4]   eq 'mgr'
+                 && !$canmgr;
+         next if    $$menuitem[4]   eq 'nmgr'
+                 && $canmgr;
+         next if    $$menuitem[4]   eq 'whn'
+                 && !$canviewwnew;
+         next if    $$menuitem[4]   eq 'opa'
+                 && !$canmodpara;
+         next if    $$menuitem[4]   eq 'nvcg'
+                 && ($canviewgrps || !%groups);
+         next if    $$menuitem[4]    eq 'author'
+                 && !$author;
+         my $title = $menuitem->[3];
+         if (defined($secondary_submenu{$title})) {
+             my ($link,$target);
+             if ($menuitem->[0] ne '') {
+                 $link = $menuitem->[0];
+                 $target = '_top';
+             } else {
+                 $link = '#';
+             }
+             my @scndsub;
+             if (ref($secondary_submenu{$title}) eq 'ARRAY') {
+                 foreach my $item (@{$secondary_submenu{$title}}) {
+                     if (ref($item) eq 'ARRAY') {
+                         next if ($item->[2] eq 'vgr' && !$canvgr);
+                         next if ($item->[2] eq 'opa' && !$canmodpara);
+                         next if ($item->[2] eq 'cst' && !$canmodifyuser);
+                         next if ($item->[2] eq 'mgr' && !$canmgr);
+                         next if ($item->[2] eq 'vcg' && !$canviewgrps);
+                         push(@scndsub,$item);
+                     }
+                 }
+                 if (@scndsub > 0) {
+                     $menu .= &create_submenu($link,$target,$title,\@scndsub);
+                 } elsif ($link) {
+                     $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';
+                 }
+             }
+         } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
+             # special treatment for role selector
+             my $roles_selector = &roles_selector(
+                         $env{'course.' . $env{'request.course.id'} . '.domain'},
+                         $env{'course.' . $env{'request.course.id'} . '.num'}  );
+             $menu .= $roles_selector ? "<li style=\"padding: 0 0.8em;\">$roles_selector</li>"
+                                      : '';
+         } else {
+             $menu .= &prep_menuitem(\@$menuitem);
          }
      }
+     if ($menu =~ /\[url\].*\[symb\]/) {
-     if ($env{'environment.remote'} eq 'off') {
+         my $escurl  = &escape( &Apache::lonenc::check_encrypt(
- # Remote Control is switched off
+                              $env{'request.noversionuri'}));
- # figure out colors
-         my %lt=&initlittle();
+         my $escsymb = &escape( &Apache::lonenc::check_encrypt(
+                              $env{'request.symb'}));
-         my $domain=&Apache::loncommon::determinedomain();
-         my $function =&Apache::loncommon::get_users_function();
+         if (    $env{'request.state'} eq 'construct'
-         my $link=&Apache::loncommon::designparm($function.'.link',$domain);
+             and (   $env{'request.noversionuri'} eq ''
-         my $alink=&Apache::loncommon::designparm($function.'.alink',$domain);
+                  || !defined($env{'request.noversionuri'})))
-         my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);
+         {
-         my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain);
+             my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
+             ($escurl = $env{'request.filename'}) =~ s{^\Q$londocroot\E}{};
-         if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
+             $escurl  = &escape($escurl);
-             return (<<ENDINLINEMENU);
+         }
-    <table id="LC_top_nav">
+         $menu =~ s/\[url\]/$escurl/g;
-     <tr>
+         $menu =~ s/\[symb\]/$escsymb/g;
-       <td>$logo</td>
+     }
-       <td></td>
+     $menu =~ s/\[uname\]/$$author{user}/g;
-       <td class="LC_top_nav_login">
+     $menu =~ s/\[udom\]/$$author{dom}/g;
-         <a href="/adm/roles" target="_top">$lt{'login'}</a>
+     if ($menu) {
-      </td>
+         $menu = "<ul id=\"LC_secondary_menu\">$menu</ul>";
-     </tr>
+     }
-   </table>
+     return $menu;
- ENDINLINEMENU
+ }
+ sub create_submenu {
+     my ($link,$target,$title,$submenu) = @_;
+     return unless (ref($submenu) eq 'ARRAY');
+     my $disptarget;
+     if ($target ne '') {
+         $disptarget = ' target="'.$target.'"';
+     }
+     my $menu = '<li class="LC_hoverable">'.
+                '<a href="'.$link.'"'.$disptarget.'>'.
+                '<span class="LC_nobreak">'.&mt($title).
+                '<span class="LC_fontsize_small" style="font-weight:normal;">'.
+                ' &#9660;</span></span></a>'.
+                '<ul>';
+     my $count = 0;
+     my $numsub = scalar(@{$submenu});
+     foreach my $item (@{$submenu}) {
+         $count ++;
+         if (ref($item) eq 'ARRAY') {
+             my $borderbot;
+             if ($count == $numsub) {
+                 $borderbot = 'border-bottom:1px solid black;';
+             }
+             $menu .= '<li style="margin:0;padding:0;'.
+                      $borderbot.'"><a href="'.$item->[0].'">'.
+                      &mt($item->[1]).'</a></li>';
          }
-         $roles = '<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>';
- # Do we have a NAV link?
-         if ($env{'request.course.id'}) {
- 	    my $link='/adm/navmaps?postdata='.$escurl.'&amp;postsymb='.
- 		$escsymb;
- 	    if ($env{'environment.remotenavmap'} eq 'on') {
- 		$link="javascript:gonav('".$link."')";
- 	    }
- 	    $navmaps=(<<ENDNAV);
- <li><a href="$link" target="_top">$lt{'nav'}</a></li>
- ENDNAV
-             my $is_group = (&Apache::loncommon::course_type() eq 'Group');
- 	    if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
-                 my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'};
- 		$docs=(<<ENDDOCS);
- <li><a href="/adm/coursedocs" target="_top">$text</a></li>
- ENDDOCS
-             }
-             if ($showgroups) {
-                 $groups =(<<ENDGROUPS);
- <li><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></li>
- ENDGROUPS
-             }
- 	    if (&show_return_link()) {
-                 my $escreload=&escape('return:');
-                 $reloadlink=(<<ENDRELOAD);
- <li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li>
- ENDRELOAD
-             }
-             if ($role_selector) {
-             	#$roles = '<td>'.$role_selector.'</td><td><a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></td>';
- 				$role_selector = '<li>'.$role_selector.'</li>';
-             }
-         }
- 	if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) {
- 	    my $escreload=&escape('return:');
- 	    $reloadlink=(<<ENDCRELOAD);
- <li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li>
- ENDCRELOAD
-         }
-         my $reg='';
-         if ($registration) {
-            $reg=&innerregister($forcereg,$titletable);
-         }
-         my $form=&serverform();
- 	my $utility=&utilityfunctions();
- 	my $messagelink = "";
- 	if(&Apache::lonmsg::mynewmail()){
- 		$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message(new)</a>'
- 	}else{
- 		$messagelink = '<a href="javascript:go(\'/adm/communicate\');">Message</a>'
- 	}
-         my $helplink=&Apache::loncommon::top_nav_help('Help');
- 	return (<<ENDINLINEMENU);
- <script type="text/javascript">
- // BEGIN LON-CAPA Internal
- // <![CDATA[
- $utility
- // ]]>
- </script>
- <ol class="LC_smallMenu LC_right">
- 	<li>$logo</li>
- 	<li>$messagelink</li>
- 	<li>$roles</li>
- 	<li>$helplink</li>
- 	<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li>
- </ol>
- <ul id="LC_TabMainMenuContent">
- <li><a href="/adm/menu" target="_top">$lt{'main'}</a></li>
- $reloadlink
- $navmaps
- $docs
- $groups
- $role_selector
- </ul>
- $form
- <script type="text/javascript">
- // END LON-CAPA Internal
- </script>
- $reg
- ENDINLINEMENU
-     } else {
- 	return '';
      }
+     $menu .= '</ul></li>';
+     return $menu;
  }
- sub show_return_link {
-     return (($env{'request.noversionuri'}=~m{^/(res|public)/} &&
- 	     $env{'request.symb'} eq '')
- 	    ||
- 	    ($env{'request.noversionuri'}=~ m{^/cgi-bin/printout.pl})
- 	    ||
- 	    (($env{'request.noversionuri'}=~/^\/adm\//) &&
- 	     ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
- 	     ($env{'request.noversionuri'}!~
- 	      m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)])
- 	     ));
- }
  sub registerurl {
      my ($forcereg) = @_;
      my $result = '';
      if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
      my $force_title='';
      if ($env{'request.state'} eq 'construct') {
- 	$force_title=&Apache::lonxml::display_title();
+         $force_title=&Apache::lonxml::display_title();
      }
-     if (($env{'browser.interface'} eq 'textual') ||
+     if (($env{'environment.remote'} ne 'on') ||
-         ($env{'environment.remote'} eq 'off') ||
+         ((($env{'request.publicaccess'}) ||
-         ((($env{'request.publicaccess'}) ||
           (!&Apache::lonnet::is_on_map(
- 	   &unescape($env{'request.noversionuri'})))) &&
+            &unescape($env{'request.noversionuri'})))) &&
          (!$forcereg))) {
-  	return $result.
+         return
-           '<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title;
+         $result
+        .'<script type="text/javascript">'."\n"
+        .'// <![CDATA['."\n"
+        .'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n"
+        .'// ]]>'."\n"
+        .'</script>'
+        .$force_title;
      }
  # Graphical display after login only
      if ($env{'request.registered'} && !$forcereg) { return ''; }
- Line 366  sub registerurl {
+ Line 509  sub registerurl {
  }
  sub innerregister {
-     my ($forcereg, $titletable) = @_;
+     my ($forcereg,$bread_crumbs) = @_;
-     my $result = '';
-     my ($uname,$thisdisfn);
      my $const_space = ($env{'request.state'} eq 'construct');
      my $is_const_dir = 0;
- Line 376  sub innerregister {
+ Line 517  sub innerregister {
      $env{'request.registered'} = 1;
-     my $noremote = ($env{'environment.remote'} eq 'off');
+     my $noremote = ($env{'environment.remote'} ne 'on');
      undef(@inlineremote);
      my $reopen=&Apache::lonmenu::reopenmenu();
      my $newmail='';
-     my $breadcrumb;
      if (&Apache::lonmsg::newmail() && !$noremote) {
          # We have new mail and remote is up
          $newmail= 'swmenu.setstatus("you have","messages");';
      }
-     if ($noremote
- 	     && ($env{'request.symb'})
- 	     && ($env{'request.course.id'})) {
-         my ($mapurl,$rid,$resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
+     my $resurl;
+     if ( $env{'request.symb'} && $env{'request.course.id'} ) {
+         (my $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 $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());
-         my @crumbs = ({text => mt("Course Content"), href => "Javascript:gonav('/adm/navmaps')"},
-                       {text => '...'});
+ #SD
-         push @crumbs, {text => $maptitle} if ($maptitle
+ #course_type only Course and Community?
-                                               && $maptitle ne 'default.sequence'
+ #
-                                               && $maptitle ne $coursetitle);
+         my @crumbs;
-         push @crumbs, {text => $restitle} if $restitle;
+         unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps')
-         Apache::lonhtmlcommon::clear_breadcrumbs();
+                 && ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
-         Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
+             @crumbs = ({text  => Apache::loncommon::course_type()
-         $breadcrumb .= Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);
+                                 . ' Contents',
-         #
+                         href  => "Javascript:gopost('/adm/navmaps','')"});
+         }
+         if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {
+             push(@crumbs, {text  => '...',
+                            no_mt => 1});
+         }
+         push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle
+                                                    && $maptitle ne 'default.sequence'
+                                                    && $maptitle ne $coursetitle);
+         push @crumbs, {text => $restitle, no_mt => 1} if $restitle;
+         &Apache::lonhtmlcommon::clear_breadcrumbs();
+         &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
+     }elsif (! $const_space){
+         #a situation when we're looking at a resource outside of context of a
+         #course or construction space (e.g. with cumulative rights)
+         &Apache::lonhtmlcommon::clear_breadcrumbs();
+         &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
      }
-     if ($env{'request.state'} eq 'construct') {
-         $newmail = $titletable;
-     }
      my $timesync   = ( $noremote ? '' : 'swmenu.syncclock(1000*'.time.');' );
-     my $tablestart = ( $noremote ? '<table id="LC_menubuttons">' : '');
-     my $tableend   = ( $noremote ? '</table>' : '');
  # =============================================================================
  # ============================ This is for URLs that actually can be registered
-     if (($env{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) {
+     if ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})
+                        || ($forcereg)) {
  # -- This applies to homework problems for users with grading privileges
  	my $crs='/'.$env{'request.course.id'};
  	if ($env{'request.course.sec'}) {
- Line 425  sub innerregister {
+ Line 580  sub innerregister {
  	}
  	$crs=~s/\_/\//g;
+         my %swtext;
+         if ($noremote) {
+             %swtext = &get_inline_text();
+         } else {
+             %swtext = &get_rc_text();
+         }
          my $hwkadd='';
          if ($env{'request.symb'} ne '' &&
- 	    $env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) {
+ 	    $env{'request.filename'}=~/$LONCAPA::assess_re/) {
  	    if (&Apache::lonnet::allowed('mgr',$crs)) {
- 		$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_4]',
+ 		$hwkadd.=&switch('','',7,2,'pgrd.png',$swtext{'pgrd'},'grades[_4]',
                         "gocmd('/adm/grades','gradingmenu')",
-                        'Modify user grades for this assessment resource');
+                        'Content Grades');
              } elsif (&Apache::lonnet::allowed('vgr',$crs)) {
- 		$hwkadd.=&switch('','',7,2,'subm.gif','view sub-[_1]','missions[_1]',
+ 		$hwkadd.=&switch('','',7,2,'subm.png',$swtext{'subm'},'missions[_1]',
                         "gocmd('/adm/grades','submission')",
- 		       'View user submissions for this assessment resource');
+ 		       'Content Submissions');
              }
  	}
  	if ($env{'request.symb'} ne '' &&
  	    &Apache::lonnet::allowed('opa',$crs)) {
- 	    $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',
+ 	    $hwkadd.=&switch('','',7,3,'pparm.png',$swtext{'pparm'},'parms[_2]',
  			     "gocmd('/adm/parmset','set')",
- 			     'Modify parameter settings for this resource');
+ 			     'Content Settings');
  	}
+         if ($noremote) {
+             if ($env{'request.symb'}=~/^uploaded/ &&
+                 &Apache::lonnet::allowed('mdc',$crs)) {
+                 $hwkadd.=&switch('','',7,4,'docs.png',$swtext{'docs'},'parms[_2]',
+                                  "gocmd('/adm/coursedocs','direct')",
+                                  'Folder/Page Content');
+             }
+         }
  # -- End Homework
          ###
          ### Determine whether or not to display the 'cstr' button for this
- Line 458  sub innerregister {
+ Line 627  sub innerregister {
          }
          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.name'}."');";
+                 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";
- Line 468  sub innerregister {
+ Line 640  sub innerregister {
                  if ($env{'request.role'} =~ /^ca/) {
                      ($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);
                      ($top,$bottom) = ('co con-','struct');
-                     $action = "go('/priv/".$caname."');";
+                     $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/".$caname."');";
+                     $action = "go('/priv/".$cadom.'/'.$caname."');";
                      $desc = "Enter construction space as assistant co-author";
                  }
                  # Check that we are on the correct machine
- Line 482  sub innerregister {
+ Line 654  sub innerregister {
  		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);
+ 		    $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.
              ##
- Line 493  sub innerregister {
+ Line 670  sub innerregister {
              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/^($match_domain)\/($match_username)/\/priv\/$2/;
+                     $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
-                     ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);
+                     my $setpriv = 1;
+                     ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$setpriv);
                      if (defined($cfudom)) {
- 		        my $home=&Apache::lonnet::homeserver($cfuname,$cfudom);
+ 		        $home=&Apache::lonnet::homeserver($cfuname,$cfudom);
  		        my $allowed=0;
  		        my @ids=&Apache::lonnet::current_machine_ids();
  		        foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
  		        if ($allowed) {
                              $cfile=$file;
+                         } else {
+                             $switchserver=$file;
                          }
                      }
                  }
              }
              # Finally, turn the button on or off
-             if ($cfile && !$const_space) {
+             if (($cfile || $switchserver) && !$const_space) {
-                 $editbutton=&switch
+                 my $nocrsedit;
-                     ('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
+                 # Suppress display where CC has switched to student role.
-                      "go('".$cfile."');","Edit this resource");
+                 if ($env{'request.course.id'}) {
-                 $noeditbutton = 0;
+                     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',$swtext{'pcstr'},'resource[_2]',
+                         $bot,"Edit this resource");
+                     $noeditbutton = 0;
+                 }
              } elsif ($editbutton eq '') {
                  $editbutton=&clear(6,1);
              }
- Line 531  sub innerregister {
+ Line 737  sub innerregister {
                          my $cfile = &edit_course_upload($file,$cnum,$cdom);
                          if ($cfile) {
                              $editbutton=&switch
-                                         ('','',6,1,'pcstr.gif','edit[_1]',
+                                         ('','',6,1,'pcstr.png',$swtext{'pcstr'},
                                           'resource[_2]',"go('".$cfile."');",
                                           'Edit this resource');
                          }
- Line 539  sub innerregister {
+ Line 745  sub innerregister {
                  }
              }
          }
+         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',$swtext{'pcstr'},
+                                             'resource[_2]',
+                                             "go('/adm/courseprefs?phase=display&actions=courseinfo')",
+                                             'Edit this resource');
+                     }
+                 }
+             }
+         }
          ###
          ###
  # Prepare the rest of the buttons
-         my $menuitems;
+         my ($menuitems,$got_prt,$got_wishlist,$cstritems);
          if ($const_space) {
- 	    my ($uname,$thisdisfn) =
+ #
- 		($env{'request.filename'}=~m|^/home/([^/]+)/public_html/(.*)|);
+ # We are in construction space
-             my $currdir = '/priv/'.$uname.'/'.$thisdisfn;
+ #
+             my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
+ 	    my ($udom,$uname,$thisdisfn) =
+ 		($env{'request.filename'}=~m{^\Q$londocroot/priv/\E([^/]+)/([^/]+)/(.*)$});
+             my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;
              if ($currdir =~ m-/$-) {
                  $is_const_dir = 1;
              } else {
                  $currdir =~ s|[^/]+$||;
  		my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
  		my $esc_currdir = &Apache::loncommon::escape_single($currdir);
+ #
+ # Probably should be in mydesk.tab
+ #
                  $menuitems=(<<ENDMENUITEMS);
- s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory
+ s&6&1&list.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory
- s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version
+ s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version
- s&6&3&pub.gif&publish[_1]&resource[_3]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource
+ s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource
- s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource
+ s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource
- s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document
+ s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document
  ENDMENUITEMS
+                 unless ($noremote) {
+                     $cstritems = $menuitems;
+                     undef($menuitems);
+                 }
              }
+                 if (ref($bread_crumbs) eq 'ARRAY') {
+                     &Apache::lonhtmlcommon::clear_breadcrumbs();
+                     foreach my $crumb (@{$bread_crumbs}){
+                         &Apache::lonhtmlcommon::add_breadcrumb($crumb);
+                     }
+                 }
          } elsif ( defined($env{'request.course.id'}) &&
  		 $env{'request.symb'} ne '' ) {
+ #
+ # We are in a course and looking at a registered URL
+ # Should probably be in mydesk.tab
+ #
  	    $menuitems=(<<ENDMENUITEMS);
  c&3&1
- s&2&1&back.gif&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&&1
+ s&2&1&back.png&$swtext{'back'}&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1
- s&2&3&forw.gif&forward[_1]&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&&3
+ s&2&3&forw.png&$swtext{'forw'}&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3
  c&6&3
  c&8&1
  c&8&2
- s&8&3&prt.gif&prepare[_1]&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
- s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1
+ ENDMENUITEMS
+             $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
+                 # and links can only be set for resources within the resource-pool
+                 $menuitems .= (<<ENDMENUITEMS);
+ s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1
  ENDMENUITEMS
+                 $got_wishlist = 1;
+             }
  my $currentURL = &Apache::loncommon::get_symb();
  my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);
  my $annotation = &Apache::loncommon::get_annotation($symb_old,$symb_old_enc);
  $menuitems.="s&9&3&";
  if(length($annotation) > 0){
- 	$menuitems.="anot2.gif";
+ 	$menuitems.="anot2.png";
  }else{
- 	$menuitems.="anot.gif";
+ 	$menuitems.="anot.png";
  }
- $menuitems.="&anno-[_1]&tations[_1]&annotate()&";
+ $menuitems.="&$swtext{'anot'}&tations[_1]&annotate()&";
  $menuitems.="Make notes and annotations about this resource&&1\n";
-             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {
+             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {
- 		if (!$env{'request.enc'}) {
+ 		if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) {
  		    $menuitems.=(<<ENDREALRES);
- s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata
+ s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info()&Show Metadata
+ ENDREALRES
+                 }
+                 unless ($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) {
+ 	            $menuitems.=(<<ENDREALRES);
+ s&8&1&eval.png&$swtext{'eval'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
  ENDREALRES
                  }
- 	        $menuitems.=(<<ENDREALRES);
+                 $menuitems.=(<<ENDREALRES);
- s&8&1&eval.gif&evaluate[_1]&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
+ s&8&2&fdbk.png&$swtext{'fdbk'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
- s&8&2&fdbk.gif&feedback[_1]&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
  ENDREALRES
  	    }
          }
  	if ($env{'request.uri'} =~ /^\/res/) {
- 	    $menuitems .= (<<ENDMENUITEMS);
+             unless ($got_prt) {
- s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
+ 	        $menuitems .= (<<ENDMENUITEMS);
+ s&8&3&prt.png&$swtext{'prt'}&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
  ENDMENUITEMS
+                 $got_prt = 1;
+             }
+             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&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1
+ ENDMENUITEMS
+                     $got_wishlist = 1;
+                 }
+             }
  	}
+         unless ($got_prt) {
+             $menuitems .= (<<ENDMENUITEMS);
+ c&8&3
+ ENDMENUITEMS
+         }
+         unless ($got_wishlist) {
+             $menuitems .= (<<ENDMENUITEMS);
+ c&9&1
+ ENDMENUITEMS
+         }
          my $buttons='';
          foreach (split(/\n/,$menuitems)) {
  	    my ($command,@rest)=split(/\&/,$_);
- Line 621  ENDMENUITEMS
+ Line 897  ENDMENUITEMS
                  }
              }
          }
          if ($noremote) {
  	    my $addremote=0;
  	    foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
- 	    my $inlinebuttons='';
+             if ($addremote) {
- 	    if ($addremote) {
-             # Registered, textual output
+                 &Apache::lonhtmlcommon::clear_breadcrumb_tools();
-                     if ($env{'environment.icons'} eq 'iconsonly') {
-                         $inlinebuttons=(<<ENDARROWSINLINE);
+                 &Apache::lonhtmlcommon::add_breadcrumb_tool(
- <tr><td>
+                     'navigation', @inlineremote[21,23]);
- $inlineremote[21] $inlineremote[23]
- ENDARROWSINLINE
+                 my $countdown = &countdown_timer();
-                         if (&hidden_button_check() ne 'yes') {
+                 if (&hidden_button_check() eq 'yes') {
-                             $inlinebuttons .= (<<ENDINLINEICONS);
+                     if ($countdown) {
- $inlineremote[61] $inlineremote[63]
+                         &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
- $inlineremote[71] $inlineremote[72] $inlineremote[73]
+                     }
- $inlineremote[81] $inlineremote[82] $inlineremote[83]
+                 } else {
- $inlineremote[91] $inlineremote[92] $inlineremote[93]</td></tr>
+                     my @tools = @inlineremote[93,91,81,82,83];
- ENDINLINEICONS
+                     if ($countdown) {
-                         }
+                         unshift(@tools,$countdown);
+                     }
+                     &Apache::lonhtmlcommon::add_breadcrumb_tool(
+                         'tools',@tools);
+                     #publish button in construction space
+                     if ($env{'request.state'} eq 'construct'){
+                         &Apache::lonhtmlcommon::add_breadcrumb_tool(
+                             'advtools', $inlineremote[63]);
                      } else {
- 			if ($inlineremote[21] ne '' || $inlineremote[23] ne '') {
+                         &Apache::lonhtmlcommon::add_breadcrumb_tool(
- 			    $inlinebuttons=(<<ENDFIRSTLINE);
+                             'tools', $inlineremote[63]);
- <tr><td>$inlineremote[21]</td><td>&nbsp;</td><td>$inlineremote[23]</td></tr>
+                     }
- ENDFIRSTLINE
+                     unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {
-                         }
+                         &Apache::lonhtmlcommon::add_breadcrumb_tool(
-                         if (&hidden_button_check() ne 'yes') {
+                             'advtools', @inlineremote[61,71,72,73,74,92]);
- 			    foreach my $row (6..9) {
+                     }
- 				if ($inlineremote[${row}.'1'] ne ''
+                 }
- 				    || $inlineremote[$row.'2'] ne ''
+             }
- 				    || $inlineremote[$row.'3'] ne '') {
+             return   &Apache::lonhtmlcommon::scripttag('', 'start')
- 				    $inlinebuttons .= <<"ENDLINE";
+                    . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
- <tr><td>$inlineremote["${row}1"]</td><td>$inlineremote["${row}2"]</td><td>$inlineremote["${row}3"]</td></tr>
+                    . &Apache::lonhtmlcommon::scripttag('', 'end');
- ENDLINE
- 				}
- 			    }
- 			}
- 		    }
- 	    }
- 	    $result =(<<ENDREGTEXT);
- <script type="text/javascript">
- // BEGIN LON-CAPA Internal
- </script>
- $timesync
- $breadcrumb
- $tablestart
- $inlinebuttons
- $tableend
- $newmail
- <script type="text/javascript">
- // END LON-CAPA Internal
- </script>
- ENDREGTEXT
- # Registered, graphical output
          } else {
- 	    my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
+             my $cstrcrumbs;
- 	    $requri=&Apache::lonenc::check_encrypt(&unescape($requri));
+             if ($const_space) {
- 	    my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
+                 foreach (split(/\n/,$cstritems)) {
- 	    my $navstatus=&get_nav_status();
+                     my ($command,@rest)=split(/\&/,$_);
- 	    my $clearcstr;
+                     my $idx=10*$rest[0]+$rest[1];
+                     &switch('','',@rest);
- 	    if ($env{'user.adv'}) { $clearcstr='clearbut(6,1)'; }
+                 }
- 	    $result = (<<ENDREGTHIS);
+                 &Apache::lonhtmlcommon::add_breadcrumb_tool('advtools',
+                                                             @inlineremote[63,61,71,72]);
+                 $cstrcrumbs = &Apache::lonhtmlcommon::scripttag('', 'start')
+                              .&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
+                              .&Apache::lonhtmlcommon::scripttag('', 'end');
+             }
+             my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
+             $requri=&Apache::lonenc::check_encrypt(&unescape($requri));
+             my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
+             my $navstatus=&get_nav_status();
+             my $clearcstr;
+             if ($env{'user.adv'}) { $clearcstr='clearbut(6,1)'; }
+             return <<ENDREGTHIS;
  <script type="text/javascript">
+ // <![CDATA[
  // BEGIN LON-CAPA Internal
  var swmenu=null;
      function LONCAPAreg() {
- 	  swmenu=$reopen;
+           swmenu=$reopen;
            swmenu.clearTimeout(swmenu.menucltim);
            $timesync
            $newmail
            $buttons
- 	  swmenu.currentURL="$requri";
+           swmenu.currentURL="$requri";
            swmenu.reloadURL=swmenu.currentURL+window.location.search;
            swmenu.currentSymb="$cursymb";
            swmenu.reloadSymb="$cursymb";
            swmenu.currentStale=0;
- 	  $navstatus
+           $navstatus
            $hwkadd
            $editbutton
      }
      function LONCAPAstale() {
- 	  swmenu=$reopen
+           swmenu=$reopen
            swmenu.currentStale=1;
            if (swmenu.reloadURL!='' && swmenu.reloadURL!= null) {
               swmenu.switchbutton
               (3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence');
- 	  }
+           }
            swmenu.clearbut(7,2);
            swmenu.clearbut(7,3);
            swmenu.menucltim=swmenu.setTimeout(
   'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+
   'clearbut(9,1);clearbut(9,3);clearbut(6,3);$clearcstr',
 );
        }
  // END LON-CAPA Internal
+ // ]]>
  </script>
+ $cstrcrumbs
  ENDREGTHIS
          }
- # =============================================================================
      } else {
- # ========================================== This can or will not be registered
+        unless ($noremote) {
-         if ($noremote) {
- # Not registered, textual
-             $result= (<<ENDDONOTREGTEXT);
- ENDDONOTREGTEXT
-         } else {
  # Not registered, graphical
-            $result = (<<ENDDONOTREGTHIS);
+            return (<<ENDDONOTREGTHIS);
  <script type="text/javascript">
+ // <![CDATA[
  // BEGIN LON-CAPA Internal
  var swmenu=null;
      function LONCAPAreg() {
- 	  swmenu=$reopen
+           swmenu=$reopen
            $timesync
            swmenu.currentStale=1;
            swmenu.clearbut(2,1);
- Line 749  var swmenu=null;
+ Line 1024  var swmenu=null;
            swmenu.clearbut(8,1);
            swmenu.clearbut(8,2);
            swmenu.clearbut(8,3);
+           swmenu.clearbut(9,1);
            if (swmenu.currentURL) {
               swmenu.switchbutton
                (3,1,'reload.gif','return','location','go(currentURL)');
-  	  } else {
+           } else {
- 	      swmenu.clearbut(3,1);
+               swmenu.clearbut(3,1);
            }
      }
- Line 761  var swmenu=null;
+ Line 1037  var swmenu=null;
      }
  // END LON-CAPA Internal
+ // ]]>
  </script>
  ENDDONOTREGTHIS
-        }
- # =============================================================================
+         }
+         return '';
      }
-     return $result;
+ }
+ sub get_inline_text {
+     my %text = (
+                  pgrd     => 'Content Grades',
+                  subm     => 'Content Submissions',
+                  pparm    => 'Content Settings',
+                  docs     => 'Folder/Page Content',
+                  pcstr    => 'Edit',
+                  prt      => 'Print',
+                  alnk     => 'Stored Links',
+                  anot     => 'Notes',
+                  catalog  => 'Info',
+                  eval     => 'Evaluate',
+                  fdbk     => 'Feedback',
+     );
+     return %text;
+ }
+ sub get_rc_text {
+     my %text = (
+                    pgrd    => 'problem[_1]',
+                    subm    => 'view sub-[_1]',
+                    pparm   => 'problem[_2]',
+                    pcstr   => 'edit[_1]',
+                    prt     => 'prepare[_1]',
+                    back    => 'backward[_1]',
+                    forw    => 'forward[_1]',
+                    alnk    => 'add to[_1]',
+                    anot    => 'anno-[_1]',
+                    catalog => 'catalog[_2]',
+                    eval    => 'evaluate[_1]',
+                    fdbk    => 'feedback[_1]',
+     );
+     return %text;
  }
  sub is_course_upload {
- Line 807  sub edit_course_upload {
+ Line 1119  sub edit_course_upload {
  sub loadevents() {
      if ($env{'request.state'} eq 'construct' ||
- 	$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
+         $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
      return 'LONCAPAreg();';
  }
  sub unloadevents() {
      if ($env{'request.state'} eq 'construct' ||
- 	$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
+         $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
      return 'LONCAPAstale();';
  }
  sub startupremote {
      my ($lowerurl)=@_;
-     if (($env{'browser.interface'} eq 'textual') ||
+     unless ($env{'environment.remote'} eq 'on') {
-         ($env{'environment.remote'} eq 'off')) {
+         return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');
-      return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');
      }
  #
  # The Remote actually gets launched!
- Line 832  sub startupremote {
+ Line 1142  sub startupremote {
      my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');
      return(<<ENDREMOTESTARTUP);
  <script type="text/javascript">
+ // <![CDATA[
  var timestart;
  function wheelswitch() {
      if (typeof(document.wheel) != 'undefined') {
- 	if (typeof(document.wheel.spin) != 'undefined') {
+         if (typeof(document.wheel.spin) != 'undefined') {
- 	    var date=new Date();
+             var date=new Date();
- 	    var waited=Math.round(30-((date.getTime()-timestart)/1000));
+             var waited=Math.round(30-((date.getTime()-timestart)/1000));
- 	    document.wheel.spin.value=$message;
+             document.wheel.spin.value=$message;
- 	}
+         }
      }
     if (window.status=='|') {
        window.status='/';
     } else {
        if (window.status=='/') {
           window.status='-';
        } else {
           if (window.status=='-') {
              window.status='\\\\';
           } else {
              if (window.status=='\\\\') { window.status='|'; }
           }
        }
     }
  }
  // ---------------------------------------------------------- The wait function
- Line 864  function wait() {
+ Line 1175  function wait() {
        if (tim==0) {
           clearTimeout(canceltim);
           $configmenu
           window.location='$lowerurl';
        } else {
- 	  window.location='/adm/remote?action=collapse&url=$esclowerurl';
+           window.location='/adm/remote?action=collapse&url=$esclowerurl';
        }
     } else {
        wheelswitch();
- Line 882  function main() {
+ Line 1193  function main() {
     wait();
  }
+ // ]]>
  </script>
  ENDREMOTESTARTUP
  }
- Line 889  ENDREMOTESTARTUP
+ Line 1201  ENDREMOTESTARTUP
  sub setflags() {
      return(<<ENDSETFLAGS);
  <script type="text/javascript">
+ // <![CDATA[
      menuloaded=0;
      tim=0;
+ // ]]>
  </script>
  ENDSETFLAGS
  }
  sub maincall() {
-     if (($env{'browser.interface'} eq 'textual') ||
+     unless ($env{'environment.remote'} eq 'on') { return ''; }
-         ($env{'environment.remote'} eq 'off')) { return ''; }
      return(<<ENDMAINCALL);
  <script type="text/javascript">
+ // <![CDATA[
      main();
+ // ]]>
  </script>
  ENDMAINCALL
  }
- Line 908  ENDMAINCALL
+ Line 1223  ENDMAINCALL
  sub load_remote_msg {
      my ($lowerurl)=@_;
-     if (($env{'browser.interface'} eq 'textual') ||
+     unless ($env{'environment.remote'} eq 'on') { return ''; }
-         ($env{'environment.remote'} eq 'off')) { return ''; }
      my $esclowerurl=&escape($lowerurl);
      my $link=&mt('[_1]Continue[_2] on in Inline Menu mode'
- Line 933  sub get_menu_name {
+ Line 1247  sub get_menu_name {
  sub reopenmenu {
-    if (($env{'browser.interface'} eq 'textual') ||
+    unless ($env{'environment.remote'} eq 'on') { return ''; }
-        ($env{'environment.remote'} eq 'off')) { return ''; }
     my $menuname = &get_menu_name();
     my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
     return('window.open('.$nothing.',"'.$menuname.'","",false);');
  }
  sub open {
      my $returnval='';
-     if (($env{'browser.interface'} eq 'textual') ||
+     unless ($env{'environment.remote'} eq 'on') {
-         ($env{'environment.remote'} eq 'off')) {
+         return
- 	return '<script type="text/javascript">self.name="loncapaclient";</script>';
+         '<script type="text/javascript">'."\n"
+        .'// <![CDATA['."\n"
+        .'self.name="loncapaclient";'."\n"
+        .'// ]]>'."\n"
+        .'</script>';
      }
      my $menuname = &get_menu_name();
  #    unless (shift eq 'unix') {
  # resizing does not work on linux because of virtual desktop sizes
  #       $returnval.=(<<ENDRESIZE);
- Line 958  sub open {
+ Line 1275  sub open {
  #}
  #ENDRESIZE
  #    }
-     $returnval.=(<<ENDOPEN);
+     $returnval=(<<ENDOPEN);
+ // <![CDATA[
  window.status='Opening LON-CAPA Remote Control';
- var menu=window.open("/res/adm/pages/menu.html","$menuname",
+ var menu=window.open("/res/adm/pages/menu.html?inhibitmenu=yes","$menuname",
  "height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
  self.name='loncapaclient';
+ // ]]>
  ENDOPEN
      return '<script type="text/javascript">'.$returnval.'</script>';
  }
- Line 972  ENDOPEN
+ Line 1291  ENDOPEN
  sub clear {
      my ($row,$col)=@_;
-     unless (($env{'browser.interface'} eq 'textual') ||
+     if ($env{'environment.remote'} eq 'on') {
-             ($env{'environment.remote'} eq 'off')) {
+        if (($row<1) || ($row>13)) { return ''; }
         return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););
-    } else {
+     } else {
-        $inlineremote[10*$row+$col]='';
+         $inlineremote[10*$row+$col]='';
-        return '';
+         return '';
-    }
+     }
  }
  # ============================================ Switch a button or create a link
- Line 992  sub switch {
+ Line 1311  sub switch {
      $top=&mt($top);
      $bot=&mt($bot);
      $desc=&mt($desc);
-     if (($env{'environment.remote'} ne 'off') || ($env{'environment.icons'} eq 'classic')) {
-        $img=&mt($img);
-     }
      my $idx=10*$row+$col;
      $category_members{$cat}.=':'.$idx;
-     unless (($env{'browser.interface'} eq 'textual')  ||
+     if ($env{'environment.remote'} eq 'on') {
-             ($env{'environment.remote'} eq 'off')) {
+         if (($row<1) || ($row>13)) { return ''; }
+         if ($env{'request.state'} eq 'construct') {
+             my $text = $top.' '.$bot;
+             $text=~s/\s*\-\s*//gs;
+             my $pic = '<img alt="'.$text.'" src="'.
+                       &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
+                       '" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';
+            $inlineremote[$idx] =
+                '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.
+                $pic.'<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';
+         }
  # Remote
-        return "\n".
+         $img=~s/\.png$/\.gif/;
+         return "\n".
   qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););
-    } elsif ($env{'browser.interface'} eq 'textual') {
+     }
- # Accessibility
-        if ($nobreak==2) { return ''; }
+ # Inline Menu
-        my $text=$top.' '.$bot;
+     if ($nobreak==2) { return ''; }
-        $text=~s/\s*\-\s*//gs;
+     my $text=$top.' '.$bot;
-        if ($nobreak) {
+     $text=~s/\s*\-\s*//gs;
- 	   $inlineremote[$idx]=
- 	       '<a href="javascript:'.$act.';">'.$text.'</a>';
-        } else {
- 	   $inlineremote[$idx]="\n<br />".
- 	       $desc.' <a href="javascript:'.$act.';">'.$text.'</a>';
-        }
-    } else {
- # Inline Remote
-        if ($env{'environment.icons'} ne 'classic') {
-           $img=~s/\.gif$/\.png/;
-        }
-        if ($nobreak==2) { return ''; }
-        my $text=$top.' '.$bot;
-        $text=~s/\s*\-\s*//gs;
-        my $pic=
+     my $pic=
  	   '<img alt="'.$text.'" src="'.
  	   &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
- 	   '" align="'.($nobreak==3?'right':'left').'" class="LC_noBorder" />';
+ 	   '" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';
-        if ($env{'browser.interface'} eq 'faketextual') {
+     if ($env{'browser.interface'} eq 'faketextual') {
- # Accessibility
+ # Main Menu
  	   if ($nobreak==3) {
  	       $inlineremote[$idx]="\n".
  		   '<td class="LC_menubuttons_text" align="right">'.$text.
- Line 1047  sub switch {
+ Line 1360  sub switch {
  		   '</a></td><td class="LC_menubuttons_text" colspan="3">'.
  		   '<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>';
  	   }
-        } else {
+     } else {
  # Inline Menu
-            if ($env{'environment.icons'} eq 'iconsonly') {
+         my @tools = (93,91,81,82,83);
-               $inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>';
+         unless ($env{'request.state'} eq 'construct') {
-            } else {
+             push(@tools,63);
- 	      $inlineremote[$idx]=
+         }
- 		   '<a class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
+         if (($env{'environment.icons'} eq 'iconsonly') &&
- 		   '<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>';
+             (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.
+        '<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';
+         }
+     }
      return '';
  }
- Line 1077  sub secondlevel {
+ Line 1395  sub secondlevel {
  sub openmenu {
      my $menuname = &get_menu_name();
-     if (($env{'browser.interface'} eq 'textual') ||
+     unless ($env{'environment.remote'} eq 'on') { return ''; }
-         ($env{'environment.remote'} eq 'off')) { return ''; }
      my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
      return "window.open(".$nothing.",'".$menuname."');";
  }
- Line 1086  sub openmenu {
+ Line 1403  sub openmenu {
  sub inlinemenu {
      undef(@inlineremote);
      undef(%category_members);
+ # calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control
      &rawconfig(1);
-     my $output='<table id="LC_mainmenu"><tr>';
+     my $output='<table><tr>';
      for (my $col=1; $col<=2; $col++) {
          $output.='<td class="LC_mainmenu_col_fieldset">';
          for (my $row=1; $row<=8; $row++) {
              foreach my $cat (keys(%category_members)) {
                 if ($category_positions{$cat} ne "$col,$row") { next; }
                 #$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';
-                $output.='<div class="LC_ContentBoxSpecial">';
+                $output.='<div class="LC_Box LC_400Box">';
- 	       $output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>';
+ 	       $output.='<h3 class="LC_hcell">'.&mt($category_names{$cat}).'</h3>';
                 $output.='<table>';
                 my %active=();
                 foreach my $menu_item (split(/\:/,$category_members{$cat})) {
- Line 1117  sub inlinemenu {
+ Line 1435  sub inlinemenu {
  }
  sub rawconfig {
+ #
+ # This evaluates mydesk.tab
+ # Need to add more positions and more privileges to deal with all
+ # menu items.
+ #
      my $textualoverride=shift;
      my $output='';
-     unless (($env{'browser.interface'} eq 'textual') ||
+     if ($env{'environment.remote'} eq 'on') {
-             ($env{'environment.remote'} eq 'off')) {
         $output.=
   "window.status='Opening Remote Control';var swmenu=".&openmenu().
  "\nwindow.status='Configuring Remote Control ';";
      } else {
-        unless ($textualoverride) { return ''; }
+         unless ($textualoverride) { return ''; }
      }
      my $uname=$env{'user.name'};
      my $udom=$env{'user.domain'};
- Line 1133  sub rawconfig {
+ Line 1455  sub rawconfig {
      my $show_course=&Apache::loncommon::show_course();
      my $author=$env{'user.author'};
      my $crs='';
+     my $crstype='';
      if ($env{'request.course.id'}) {
         $crs='/'.$env{'request.course.id'};
         if ($env{'request.course.sec'}) {
  	   $crs.='_'.$env{'request.course.sec'};
         }
         $crs=~s/\_/\//g;
+        $crstype = &Apache::loncommon::course_type();
      }
      my $pub=($env{'request.state'} eq 'published');
      my $con=($env{'request.state'} eq 'construct');
- Line 1148  sub rawconfig {
+ Line 1472  sub rawconfig {
          my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);
          $prt=~s/\$uname/$uname/g;
          $prt=~s/\$udom/$udom/g;
-         $prt=~s/\$crs/$crs/g;
+         if ($prt =~ /\$crs/) {
+             next unless ($env{'request.course.id'});
+             next if ($crstype eq 'Community');
+             $prt=~s/\$crs/$crs/g;
+         } elsif ($prt =~ /\$cmty/) {
+             next unless ($env{'request.course.id'});
+             next if ($crstype ne 'Community');
+             $prt=~s/\$cmty/$crs/g;
+         }
          $prt=~s/\$requested_domain/$requested_domain/g;
          if ($category_names{$cat}!~/\w/) { $cat='oth'; }
-         my $type = &Apache::loncommon::course_type();
-         if ($type eq 'Group') {
-             $desc = &convert_menu_function($desc,$type);
-         }
          if ($pro eq 'clear') {
  	    $output.=&clear($row,$col);
          } elsif ($pro eq 'any') {
- Line 1181  sub rawconfig {
+ Line 1509  sub rawconfig {
  	  $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
              }
          } elsif (($pro=~/^p(\w+)/) && ($prt)) {
- 	    if (&Apache::lonnet::allowed($1,$prt)) {
+             my $priv = $1;
+             if ($priv =~ /^mdc(Course|Community)/) {
+                 if ($crstype eq $1) {
+                     $priv = 'mdc';
+                 } else {
+                     next;
+                 }
+             }
+ 	    if (&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'}) {
+             if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {
                 $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
  	    }
+         } elsif ($pro eq 'community')  {
+             if (($env{'request.course.fn'}) && ($crstype eq 'Community')) {
+                $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
+             }
          } elsif ($pro =~ /^courseenv_(.*)$/) {
              my $key = $1;
-             if ($env{'course.'.$env{'request.course.id'}.'.'.$key}) {
+             if ($crstype ne 'Community') {
-                 $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
+                 my $coursepref = $env{'course.'.$env{'request.course.id'}.'.'.$key};
+                 if ($key eq 'canuse_pdfforms') {
+                     if ($env{'request.course.id'} && $coursepref eq '') {
+                         my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
+                         $coursepref = $domdefs{'canuse_pdfforms'};
+                     }
+                 }
+                 if ($coursepref) {
+                     $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
+                 }
+             }
+         } elsif ($pro =~ /^communityenv_(.*)$/) {
+             my $key = $1;
+             if ($crstype eq 'Community') {
+                 my $coursepref = $env{'course.'.$env{'request.course.id'}.'.'.$key};
+                 if ($key eq 'canuse_pdfforms') {
+                     if ($env{'request.course.id'} && $coursepref eq '') {
+                         my %domdefs = &Apache::lonnet::get_domain_defaults($env{'course.'.$env{'request.course.id'}.'.domain'});
+                         $coursepref = $domdefs{'canuse_pdfforms'};
+                     }
+                 }
+                 if ($coursepref) {
+                     $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
+                 }
              }
          } elsif ($pro =~ /^course_(.*)$/) {
              # Check for permissions inside of a course
-             if (($env{'request.course.id'}) &&
+             if (($env{'request.course.id'}) && ($crstype ne 'Community') &&
                  (&Apache::lonnet::allowed($1,$env{'request.course.id'}.
              ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
                   )) {
                  $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
  	    }
+         } elsif ($pro =~ /^community_(.*)$/) {
+             # Check for permissions inside of a community
+             if (($env{'request.course.id'}) && ($crstype eq 'Community') &&
+                 (&Apache::lonnet::allowed($1,$env{'request.course.id'}.
+             ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
+                  )) {
+                 $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
+             }
          } elsif ($pro eq 'author') {
              if ($author) {
                  if ((($prt eq 'rca') && ($env{'request.role'}=~/^ca/)) ||
- Line 1214  sub rawconfig {
+ Line 1585  sub rawconfig {
                                 ($env{'request.role'}=~/($match_domain)\/($match_username)$/);
                      }
                      $act =~ s/\$caname/$caname/g;
+                     $act =~ s/\$cadom/$cadom/g;
                      my $home = &Apache::lonnet::homeserver($caname,$cadom);
  		    my $allowed=0;
  		    my @ids=&Apache::lonnet::current_machine_ids();
- Line 1233  sub rawconfig {
+ Line 1605  sub rawconfig {
                      $output.=&clear($row,$col);
                      next;
                  }
-             } elsif ($prt eq 'reqcrs') {
+             } elsif (($prt eq 'reqcrsnsc') || ($prt eq 'reqcrsshc')) {
-                 my $showreqcrs = 0;
+                 if (($prt eq 'reqcrsnsc') && ($show_course))   {
-                 foreach my $type ('official','unofficial') {
+                     next;
-                     if (&Apache::lonnet::usertools_access($env{'user.name'},
+                 }
-                                                     $env{'user.domain'},
+                 if (($prt eq 'reqcrsshc') && (!$show_course)) {
-                                                     $type,undef,'requestcourses')) {
+                     next;
-                         $showreqcrs = 1;
-                         last;
-                     }
                  }
+                 my $showreqcrs = &check_for_rcrs();
                  if (!$showreqcrs) {
                      $output.=&clear($row,$col);
                      next;
- Line 1253  sub rawconfig {
+ Line 1623  sub rawconfig {
            $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
          }
      }
-     unless (($env{'browser.interface'} eq 'textual') ||
+     if ($env{'environment.remote'} eq 'on') {
-             ($env{'environment.remote'} eq 'off')) {
+         $output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";
-        $output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";
+         if (&Apache::lonmsg::newmail()) {
-        if (&Apache::lonmsg::newmail()) {
+             $output.='swmenu.setstatus("you have","messages");';
- 	   $output.='swmenu.setstatus("you have","messages");';
+         }
-        }
      }
      return $output;
  }
+ sub check_for_rcrs {
+     my $showreqcrs = 0;
+     my @reqtypes = ('official','unofficial','community');
+     foreach my $type (@reqtypes) {
+         if (&Apache::lonnet::usertools_access($env{'user.name'},
+                                               $env{'user.domain'},
+                                               $type,undef,'requestcourses')) {
+             $showreqcrs = 1;
+             last;
+         }
+     }
+     if (!$showreqcrs) {
+         foreach my $type (@reqtypes) {
+             if ($env{'environment.reqcrsotherdom.'.$type} ne '') {
+                 $showreqcrs = 1;
+                 last;
+             }
+         }
+     }
+     return $showreqcrs;
+ }
  # ======================================================================= Close
  sub close {
-     if (($env{'browser.interface'} eq 'textual') ||
+     unless ($env{'environment.remote'} eq 'on') { return ''; }
-         ($env{'environment.remote'} eq 'off')) { return ''; }
      my $menuname = &get_menu_name();
      return(<<ENDCLOSE);
  <script type="text/javascript">
+ // <![CDATA[
  window.status='Accessing Remote Control';
  menu=window.open("/adm/rat/empty.html","$menuname",
                   "height=350,width=150,scrollbars=no,menubar=no");
- Line 1281  menu.autologout=0;
+ Line 1671  menu.autologout=0;
  window.status='Closing Remote Control';
  menu.close();
  window.status='Done.';
+ // ]]>
  </script>
  ENDCLOSE
  }
- # ====================================================================== Footer
+ sub dc_popup_js {
+     my %lt = &Apache::lonlocal::texthash(
- sub footer {
+                                           more => '(More ...)',
+                                           less => '(Less ...)',
+                                         );
+     return <<"END";
+ function showCourseID() {
+     document.getElementById('dccid').style.display='block';
+     document.getElementById('dccid').style.textAlign='left';
+     document.getElementById('dccid').style.textFace='normal';
+     document.getElementById('dccidtext').innerHTML ='<a href="javascript:hideCourseID();" class="LC_menubuttons_link">$lt{'less'}</a>';
+     return;
+ }
+ function hideCourseID() {
+     document.getElementById('dccid').style.display='none';
+     document.getElementById('dccidtext').innerHTML ='<a href="javascript:showCourseID()" class="LC_menubuttons_link">$lt{'more'}</a>';
+     return;
  }
- sub nav_control_js {
+ END
-     my $nav=($env{'environment.remotenavmap'} eq 'on');
-     return (<<NAVCONTROL);
+ }
-     var w_loncapanav_flag="$nav";
+ sub countdown_toggle_js {
+     return <<"END";
- function gonav(url) {
+ function toggleCountdown() {
-    if (w_loncapanav_flag != 1) {
+     var countdownid = document.getElementById('duedatecountdown');
-       gopost(url,'');
+     var currstyle = countdownid.style.display;
-    }  else {
+     if (currstyle == 'inline') {
-       navwindow=window.open(url,
+         countdownid.style.display = 'none';
-                   "loncapanav","height=600,width=400,scrollbars=1");
+         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;
  }
- NAVCONTROL
+ END
  }
  sub utilityfunctions {
-     my $caller = shift;
-     unless (($env{'browser.interface'} eq 'textual')  ||
-         ($env{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; }
      my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
+     if ($currenturl =~ m{^/adm/wrapper/ext/}
+         && $env{'request.external.querystring'} ) {
+             $currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'};
+     }
      $currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));
      my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
-     my $nav_control=&nav_control_js();
+     my $dc_popup_cid;
+     if ($env{'user.adv'} && exists($env{'user.role.dc./'.
+                         $env{'course.'.$env{'request.course.id'}.
+                                  '.domain'}.'/'})) {
+         $dc_popup_cid = &dc_popup_js();
+     }
      my $start_page_annotate =
          &Apache::loncommon::start_page('Annotator',undef,
- Line 1329  sub utilityfunctions {
+ Line 1750  sub utilityfunctions {
      my $end_page_annotate =
          &Apache::loncommon::end_page({'js_ready' => 1});
-     my $start_page_bookmark =
+     my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.
-         &Apache::loncommon::start_page('Bookmarks',undef,
+                          &mt('Switch server?');
- 				       {'only_body' => 1,
- 					'js_ready'  => 1,
- 					'bgcolor'   => '#BBBBBB',});
-     my $end_page_bookmark =
+     my $esc_url=&escape($currenturl);
-         &Apache::loncommon::end_page({'js_ready' => 1});
+     my $esc_symb=&escape($currentsymb);
+     my $countdown = &countdown_toggle_js();
  return (<<ENDUTILITY)
-     var currentURL="$currenturl";
+     var currentURL=unescape("$esc_url");
-     var reloadURL="$currenturl";
+     var reloadURL=unescape("$esc_url");
-     var currentSymb="$currentsymb";
+     var currentSymb=unescape("$esc_symb");
- $nav_control
+ $dc_popup_cid
  function go(url) {
     if (url!='' && url!= null) {
- Line 1354  function go(url) {
+ Line 1774  function go(url) {
     }
  }
+ function need_switchserver(url) {
+     if (url!='' && url!= null) {
+         if (confirm("$confirm_switch")) {
+             go(url);
+         }
+     }
+     return;
+ }
  function gopost(url,postdata) {
     if (url!='') {
        this.document.server.action=url;
- Line 1426  function golist(url) {
+ Line 1855  function golist(url) {
  function catalog_info() {
-    loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
+    openMyModal(window.location.pathname+'.meta',500,400,'yes');
  }
  function chat_win() {
-    lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
+    lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');
  }
  function group_chat(group) {
- Line 1439  function group_chat(group) {
+ Line 1868  function group_chat(group) {
     grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
  }
- function edit_bookmarks() {
-    go('');
-    w_BookmarkPal_flag=1;
-    bookmarkpal=window.open("/adm/bookmarks",
-                "BookmarkPal", "width=400,height=505,scrollbars=0");
- }
  function annotate() {
     w_Annotator_flag=1;
     annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');
- Line 1459  function annotate() {
+ Line 1881  function annotate() {
     annotator.document.close();
  }
- function set_bookmark() {
+ function open_StoredLinks_Import(rat) {
-    go('');
+    var newWin;
-    clienttitle=document.title;
+    if (rat) {
-    clienthref=location.pathname;
+        newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,
-    w_bmquery_flag=1;
+                             'wishlistImport','scrollbars=1,resizable=1,menubar=0');
-    bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');
+    }
-    bmquery.document.write(
+    else {
-    '$start_page_bookmark'
+        newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import',
-    +'<center><form method="post"'
+                             'wishlistImport','scrollbars=1,resizable=1,menubar=0');
-    +' name="newlink" action="/adm/bookmarks" target="bmquery" '
+    }
-    +'> <table width="340" height="150" '
+    newWin.focus();
-    +'bgcolor="#FFFFFF" align="center"><tr><td>Link Name:<br /><input '
-    +'type="text" name="title" size="45" value="'+clienttitle+'" />'
-    +'<br />Address:<br /><input type="text" name="address" size="45" '
-    +'value="'+clienthref+'" /><br /><center><input type="submit" '
-    +'value="Save" /> <input type="button" value="Close" '
-    +'onclick="javascript:window.close();" /></center></td>'
-    +'</tr></table></form></center>'
-    +'$end_page_bookmark' );
-    bmquery.document.close();
  }
+ (function (\$) {
+   \$(document).ready(function () {
+     \$.single=function(a){return function(b){a[0]=b;return a}}(\$([1]));
+     /*\@cc_on
+       if (!window.XMLHttpRequest) {
+         \$('.LC_hoverable').each(function () {
+           this.attachEvent('onmouseenter', function (evt) { \$.single(evt.srcElement).addClass('hover'); });
+           this.attachEvent('onmouseleave', function (evt) { \$.single(evt.srcElement).removeClass('hover'); });
+         });
+       }
+     \@*/
+   });
+ }(jQuery));
+ $countdown
  ENDUTILITY
  }
- Line 1513  sub constspaceform {
+ Line 1942  sub constspaceform {
  ENDCONSTSPACEFORM
  }
  sub get_nav_status {
      my $navstatus="swmenu.w_loncapanav_flag=";
      if ($env{'environment.remotenavmap'} eq 'on') {
- 	$navstatus.="1";
+         $navstatus.="1";
      } else {
- 	$navstatus.="-1";
+         $navstatus.="-1";
      }
      return $navstatus;
  }
- #FIXME this needs to move into mydesktab and the other locations
- # the text is generated
- sub convert_menu_function {
-     my ($rolename,$type) = @_;
-     if ($type eq 'Group') {
-         $rolename =~ s/student/member/g;
-         $rolename =~ s/group/team/g;
-         $rolename =~ s/course/group/g;
-         $rolename =~ s/Course/Group/g;
-     }
-     return $rolename;
- }
  sub hidden_button_check {
-     my $hidden;
+     if ( $env{'request.course.id'} eq ''
-     if ($env{'request.course.id'} eq '') {
+          || $env{'request.role.adv'} ) {
-         return;
-     }
-     if ($env{'request.role.adv'}) {
          return;
      }
      my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide');
- Line 1551  sub hidden_button_check {
+ Line 1964  sub hidden_button_check {
  sub roles_selector {
      my ($cdom,$cnum) = @_;
+     my $crstype = &Apache::loncommon::course_type();
      my $now = time;
-     my (%courseroles,%seccount);
+     my (%courseroles,%seccount,%courseprivs);
      my $is_cc;
      my $role_selector;
-     if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) {
+     my $ccrole;
-         my ($start,$end) = split(/\./,$env{'user.role.cc./'.$cdom.'/'.$cnum});
+     if ($crstype eq 'Community') {
+         $ccrole = 'co';
+     } else {
+         $ccrole = 'cc';
+     }
+     my ($priv,$gotsymb,$destsymb);
+     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();
+     if (ref($reqprivs) eq 'HASH') {
+         my $destination = $destinationurl;
+         $destination =~ s/(\?.*)$//;
+         if (exists($reqprivs->{$destination})) {
+             $priv = $reqprivs->{$destination};
+         }
+     }
+     if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) {
+         my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum});
          if ((($start) && ($start<0)) ||
              (($end) && ($end<$now))  ||
- Line 1567  sub roles_selector {
+ Line 2011  sub roles_selector {
          }
      }
      if ($is_cc) {
-         &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount);
+         &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount,\%courseprivs,$priv);
      } else {
          my %gotnosection;
          foreach my $item (keys(%env)) {
- Line 1583  sub roles_selector {
+ Line 2027  sub roles_selector {
                          $gotnosection{$role} = 1;
                      }
                  }
+                 if ($priv ne '') {
+                     my $cnumsec = $cnum;
+                     if ($sec ne '') {
+                         $cnumsec .= "/$sec";
+                     }
+                     $courseprivs{"$role./$cdom/$cnumsec./"} =
+                         $env{"user.priv.$role./$cdom/$cnumsec./"};
+                     $courseprivs{"$role./$cdom/$cnumsec./$cdom/"} =
+                         $env{"user.priv.$role./$cdom/$cnumsec./$cdom/"};
+                     $courseprivs{"$role./$cdom/$cnumsec./$cdom/$cnumsec"} =
+                         $env{"user.priv.$role./$cdom/$cnumsec./$cdom/$cnumsec"};
+                 }
                  if (ref($courseroles{$role}) eq 'ARRAY') {
                      if ($sec ne '') {
                          if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) {
- Line 1600  sub roles_selector {
+ Line 2056  sub roles_selector {
              }
          }
      }
-     my @roles_order = ('cc','in','ta','ep','ad','st');
+     my $switchtext;
+     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');
      if (keys(%courseroles) > 1) {
-         $role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles);
+         $role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);
          $role_selector .= '<form name="rolechooser" method="post" action="/adm/roles">
                            <select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">';
-         $role_selector .= '<option value="">'.&mt('Switch course role to...').'</option>';
+         $role_selector .= '<option value="">'.$switchtext.'</option>';
          foreach my $role (@roles_order) {
              if (defined($courseroles{$role})) {
-                 $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';
+                 $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role,$crstype).'</option>';
              }
          }
          foreach my $role (sort(keys(%courseroles))) {
- Line 1616  sub roles_selector {
+ Line 2078  sub roles_selector {
                  $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';
              }
          }
-         $role_selector .= '</select>'."\n".
+         $role_selector .= '</select>'."\n";
+         if ($destsymb ne '') {
+             $role_selector .= '<input type="hidden" name="destsymb" value="'.
+                               &HTML::Entities::encode($destsymb).'" />'."\n";
+         }
+         $role_selector .=
                 '<input type="hidden" name="destinationurl" value="'.
-                $ENV{'REQUEST_URI'}.'" />'."\n".
+                &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".
- Line 1628  sub roles_selector {
+ Line 2095  sub roles_selector {
  }
  sub get_all_courseroles {
-     my ($cdom,$cnum,$courseroles,$seccount) = @_;
+     my ($cdom,$cnum,$courseroles,$seccount,$courseprivs) = @_;
-     unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH')) {
+     unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH') &&
+             (ref($courseprivs) eq 'HASH')) {
          return;
      }
      my ($result,$cached) =
- Line 1637  sub get_all_courseroles {
+ Line 2105  sub get_all_courseroles {
      if (defined($cached)) {
          if (ref($result) eq 'HASH') {
              if ((ref($result->{'roles'}) eq 'HASH') &&
-                 (ref($result->{'seccount'}) eq 'HASH')) {
+                 (ref($result->{'seccount'}) eq 'HASH') &&
+                 (ref($result->{'privs'}) eq 'HASH')) {
                  %{$courseroles} = %{$result->{'roles'}};
                  %{$seccount} = %{$result->{'seccount'}};
+                 %{$courseprivs} = %{$result->{'privs'}};
                  return;
              }
          }
- Line 1667  sub get_all_courseroles {
+ Line 2137  sub get_all_courseroles {
                  push(@{$courseroles->{$urole}},$usec);
              }
          }
+         my $area = '/'.$cdom.'/'.$cnum;
+         if ($usec ne '') {
+             $area .= '/'.$usec;
+         }
+         if ($role =~ /^cr\//) {
+             &Apache::lonnet::custom_roleprivs($courseprivs,$urole,$cdom,$cnum,$urole.'.'.$area,$area);
+         } else {
+             &Apache::lonnet::standard_roleprivs($courseprivs,$urole,$cdom,$urole.'.'.$area,$cnum,$area);
+         }
      }
      my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']);
      @{$courseroles->{'st'}} = ();
+     &Apache::lonnet::standard_roleprivs($courseprivs,'st',$cdom,"st./$cdom/$cnum",$cnum,"/$cdom/$cnum");
      if (keys(%sections_count) > 0) {
          push(@{$courseroles->{'st'}},keys(%sections_count));
          $seccount->{'st'} = scalar(keys(%sections_count));
      }
      my $rolehash = {
                       'roles'    => $courseroles,
                       'seccount' => $seccount,
+                      'privs'    => $courseprivs,
                     };
      &Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash);
      return;
  }
  sub jump_to_role {
-     my ($cdom,$cnum,$seccount,$courseroles) = @_;
+     my ($cdom,$cnum,$seccount,$courseroles,$courseprivs,$priv) = @_;
      my %lt = &Apache::lonlocal::texthash(
                  this => 'This role has section(s) associated with it.',
                  ente => 'Enter a specific section.',
                  orlb => 'Enter a specific section, or leave blank for no section.',
                  avai => 'Available sections are:',
                  youe => 'You entered an invalid section choice:',
-                 plst => 'Please try again',
+                 plst => 'Please try again.',
+                 role => 'The role you selected is not permitted to view the current page.',
+                 swit => 'Switch role, but display Main Menu page instead?',
      );
      my $js;
      if (ref($courseroles) eq 'HASH') {
- Line 1713  sub jump_to_role {
+ Line 2196  sub jump_to_role {
                     '    numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n";
          }
      }
-     my $output = <<"END";
+     my $checkroles = 0;
+     if ($priv && ref($courseprivs) eq 'HASH') {
+         my (%disallowed,%allowed,@disallow);
+         foreach my $role (sort(keys(%{$courseprivs}))) {
+             my $trole;
+             if ($role =~ m{^(.+?)\Q./$cdom/$cnum\E}) {
+                 $trole = $1;
+             }
+             if (($trole ne '') && ($trole ne 'cm')) {
+                 if ($courseprivs->{$role} =~ /\Q:$priv\E($|:|\&\w+)/) {
+                     $allowed{$trole} = 1;
+                 } else {
+                     $disallowed{$trole} = 1;
+                 }
+             }
+         }
+         foreach my $trole (keys(%disallowed)) {
+             unless ($allowed{$trole}) {
+                 push(@disallow,$trole);
+             }
+         }
+         if (@disallow > 0) {
+             $checkroles = 1;
+             $js .= "    var disallow = new Array('".join("','",@disallow)."');\n".
+                    "    var rolecheck = 1;\n";
+         }
+     }
+     if (!$checkroles) {
+         $js .=  "    var disallow = new Array();\n".
+                 "    rolecheck = 0;\n";
+     }
+     return <<"END";
  <script type="text/javascript">
+ //<![CDATA[
  function adhocRole(roleitem) {
      $js
      var newrole =  document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value;
      if (newrole == '') {
          return;
      }
      var fullrole = newrole+'./$cdom/$cnum';
      var selidx = '';
- Line 1728  function adhocRole(roleitem) {
+ Line 2243  function adhocRole(roleitem) {
              selidx = i;
          }
      }
+     if (rolecheck > 0) {
+         for (var i=0; i<disallow.length; i++) {
+             if (disallow[i] == newrole) {
+                 if (confirm("$lt{'role'}\\n$lt{'swit'}")) {
+                     document.rolechooser.destinationurl.value = '/adm/menu';
+                 } else {
+                     document.rolechooser.elements[roleitem].selectedIndex = 0;
+                     return;
+                 }
+             }
+         }
+     }
      var secok = 1;
      var secchoice = '';
      if (selidx >= 0) {
- Line 1735  function adhocRole(roleitem) {
+ Line 2262  function adhocRole(roleitem) {
              secok = 0;
              var numrolesec = rolesections[selidx].length;
              var msgidx = numsec[selidx] - numrolesec;
-             secchoice = prompt("$lt{'this'}\\n"+secpick[msgidx]+"\\n$lt{'avai'} "+roleseclist[selidx],"");
+             secchoice = prompt("$lt{'this'} "+secpick[msgidx]+"\\n$lt{'avai'} "+roleseclist[selidx],"");
              if (secchoice == '') {
                  if (msgidx > 0) {
                      secok = 1;
- Line 1765  function adhocRole(roleitem) {
+ Line 2292  function adhocRole(roleitem) {
          return;
      }
      if (fullrole == "$env{'request.role'}") {
+         document.rolechooser.elements[roleitem].selectedIndex = 0;
          return;
      }
      itemid = retrieveIndex('gotorole');
- Line 1785  function retrieveIndex(item) {
+ Line 2313  function retrieveIndex(item) {
      }
      return -1;
  }
+ // ]]>
  </script>
  END
-     return $output;
  }
+ sub required_privs {
+     my $privs =  {
+              '/adm/parmset'      => 'opa',
+              '/adm/courseprefs'  => 'opa',
+              '/adm/whatsnew'     => 'whn',
+              '/adm/populate'     => 'cst',
+              '/adm/trackstudent' => 'vsa',
+              '/adm/statistics'   => 'vgr',
+              '/adm/setblock'     => 'dcm',
+              '/adm/coursedocs'   => 'mdc',
+            };
+     unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {
+         $privs->{'/adm/classcalc'}   = 'vgr',
+         $privs->{'/adm/assesscalc'}  = 'vgr',
+         $privs->{'/adm/studentcalc'} = 'vgr';
+     }
+     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");
+         my $hastimeleft;
+         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);
+             if ((@interval > 1 && $hastimeleft) ||
+                 ($type eq 'Task' && $slothastime)) {
+                 $currdisp = 'inline';
+                 $collapse = '&#9658;&nbsp;';
+             } 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>
+ END
+         }
+     }
+     return;
+ }
  # ================================================================ Main Program
  BEGIN {
      if (! defined($readdesk)) {
- 	{
+         {
- 	    my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';
+             my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';
- 	    if ( CORE::open( my $config,"<$tabfile") ) {
+             if ( CORE::open( my $config,"<$tabfile") ) {
- 		while (my $configline=<$config>) {
+                 while (my $configline=<$config>) {
- 		    $configline=(split(/\#/,$configline))[0];
+                     $configline=(split(/\#/,$configline))[0];
- 		    $configline=~s/^\s+//;
+                     $configline=~s/^\s+//;
- 		    chomp($configline);
+                     chomp($configline);
                      if ($configline=~/^cat\:/) {
-                        my @entries=split(/\:/,$configline);
+                         my @entries=split(/\:/,$configline);
-                        $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) {
+                     } elsif ($configline=~/^prim\:/) {
- 			push(@desklines,$configline);
+                         my @entries = (split(/\:/, $configline))[1..5];
- 		    }
+                         push @primary_menu, \@entries;
- 		}
+                     } elsif ($configline=~/^primsub\:/) {
- 		CORE::close($config);
+                         my ($parent,@entries) = (split(/\:/, $configline))[1..4];
- 	    }
+                         push (@{$primary_submenu{$parent}},\@entries);
- 	}
+                     } elsif ($configline=~/^scnd\:/) {
- 	$readdesk='done';
+                         my @entries = (split(/\:/, $configline))[1..5];
+                         push @secondary_menu, \@entries;
+                     } elsif ($configline=~/^scndsub\:/) {
+                         my ($parent,@entries) = (split(/\:/, $configline))[1..4];
+                         push (@{$secondary_submenu{$parent}},\@entries);
+                     } elsif ($configline) {
+                         push(@desklines,$configline);
+                     }
+                 }
+                 CORE::close($config);
+             }
+         }
+         $readdesk='done';
      }
  }
 ;
  __END__

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

Removed from v.1.267
changed lines
	Added in v.1.369.2.25