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.215 and 1.314

-version 1.215, 2007/04/17 15:45:03
+version 1.314, 2010/02/24 17:38:52
  Line 26
  # http://www.lon-capa.org/
  #
  #
- # There are two parameters controlling the action of this module:
+ # There is one parameter 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
+ # control, otherwise they render the main window controls;
- # browser.interface is 'textual'
- #
+ =head1 NAME
+ Apache::lonmenu
+ =head1 SYNOPSIS
+ Coordinates the response to clicking an image.
+ 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 @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
+ =item prep_menuitems(\@menuitem)
+ This routine wraps a menuitem in proper HTML. It is used by primary_menu() and
+ secondary_menu().
+ =item primary_menu()
+ 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 secondary_menu()
+ Same as primary_menu() but operates on @secondary_menu.
+ =item DEPRECATED: initlittle()
+ This routine returns a translated hash for the menu items in the top inline
+ menu row
+ =item menubuttons()
+ This gets called at the top of the body section
+ =item show_return_link()
+ =item registerurl()
+ This gets called in the header section
+ =item innerregister()
+ This gets called in order to register a URL, both with the Remote
+ and in the body of the document
+ =item loadevents()
+ =item unloadevents()
+ =item startupremote()
+ =item setflags()
+ =item maincall()
+ =item load_remote_msg()
+ =item get_menu_name()
+ =item reopenmenu()
+ =item open()
+ Open the menu
+ =item clear()
+ =item switch()
+ Switch a button or create a link
+ Switch acts on the javascript that is executed when a button is clicked.
+ The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".
+ =item secondlevel()
+ =item openmenu()
+ =item inlinemenu()
+ =item rawconfig()
+ =item close()
+ =item footer()
+ =item utilityfunctions()
+ =item serverform()
+ =item constspaceform()
+ =item get_nav_status()
+ =item hidden_button_check()
+ =item roles_selector()
+ =item jump_to_role()
+ =back
+ =cut
  package Apache::lonmenu;
- Line 45  use Apache::loncommon();
+ Line 196  use Apache::loncommon();
  use Apache::lonenc();
  use Apache::lonlocal;
  use LONCAPA qw(:DEFAULT :match);
+ use HTML::Entities();
- use vars qw(@desklines %category_names %category_members %category_positions $readdesk);
+ use vars qw(@desklines %category_names %category_members %category_positions
+             $readdesk @primary_menu @secondary_menu);
  my @inlineremote;
+ sub prep_menuitem {
+     my ($menuitem) = @_;
+     return '' unless(ref($menuitem) eq 'ARRAY');
+     my $link;
+     if ($$menuitem[1]) { # graphical Link
+         $link = "<img class=\"LC_noBorder\""
+               . " src=\"" . &Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\""
+               . " alt=\"" . &mt($$menuitem[2]) . "\" />";
+     } else {             # textual Link
+         $link = &mt($$menuitem[3]);
+     }
+     if($$menuitem[4] eq 'newmsg'){   #special style for New Messages
+         return '<li><a href="'.$$menuitem[0].'"><span class="LC_new_message">'.$link.'</span></a></li>';
+     }
+     return '<li><a href="'.$$menuitem[0].'">'.$link.'</a></li>';
+ }
+ # primary_menu() 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
+ sub primary_menu {
+     my $menu;
+     # each element of @primary contains following array:
+     # (link url, icon path, alt text, link text, condition)
+     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,
+                 && $env{'user.name'}    eq 'public'    ##who should not see all
+                 && $env{'user.domain'}  eq 'public';   ##links
+         next if    $$menuitem[4]        eq 'onlypublic'# hide links which are
+                 && $env{'user.name'}    ne 'public'    # only visible to public
+                 && $env{'user.domain'}  ne '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(); ##
+         if ($$menuitem[3] eq 'Help') { # special treatment for helplink
+             $menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
+         } else {
+             my @items = @{$menuitem};
+             $items[0] = 'javascript:'.$menuitem->[0].';';
+             $menu .= &prep_menuitem(\@items);
+         }
+     }
+     return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";
+ }
+ sub secondary_menu {
+     my $menu;
+     my $crstype = &Apache::loncommon::course_type();
+     my $canedit = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
+     my $canviewgrps = &Apache::lonnet::allowed('vcg', $env{'request.course.id'}
+                    . ($env{'request.course.sec'} ? "/$env{'request.course.sec'}"
+                                                  : ''));
+     my $showlink = &show_return_link();
+     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'
+                 && !$env{'request.course.id'};
+         next if    $$menuitem[4]   eq 'showreturn'
+                 && !$showlink
+                 && !($env{'request.state'} eq 'construct');
+         next if    $$menuitem[4]   =~ /^mdc/
+                 && !$canedit;
+         next if    $$menuitem[4]  eq 'mdcCourse'
+                 && $crstype eq 'Community';
+         next if    $$menuitem[4]  eq 'mdcCommunity'
+                 && $crstype ne 'Community';
+         next if    $$menuitem[4]  =~ /^remotenav/
+                 && $env{'environment.remotenavmap'} ne 'on';
+         next if    $$menuitem[4]  =~ /noremotenav/
+                 && $env{'environment.remotenavmap'} eq 'on';
+         next if $$menuitem[4] =~ /^(no|)remotenav$/
+                 && $crstype eq 'Community';
+         next if $$menuitem[4] =~ /^(no|)remotenavCommunity$/
+                 && $crstype ne 'Community';
+         next if    $$menuitem[4]   =~ /showgroups$/
+                 && !$canviewgrps
+                 && !%groups;
+         if ($$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>$roles_selector</li>"
+                                      : '';
+         } elsif ($env{'environment.remotenavmap'} eq 'on') {
+             # open link using javascript when remote navmap is activated
+             my @items = @{$menuitem};
+             if ($menuitem->[4] eq 'remotenav') {
+                 $items[0] = "javascript:gonav('$menuitem->[0]');";
+             } else {
+                 $items[0] = "javascript:go('$menuitem->[0]');";
+             }
+             $menu .= &prep_menuitem(\@items);
+         } else {
+             $menu .= &prep_menuitem(\@$menuitem);
+         }
+     }
+     if ($menu =~ /\[url\].*\[symb\]/) {
+         my $escurl  = &escape( &Apache::lonenc::check_encrypt(
+                              $env{'request.noversionuri'}));
+         my $escsymb = &escape( &Apache::lonenc::check_encrypt(
+                              $env{'request.symb'}));
+         if (    $env{'request.state'} eq 'construct'
+             and (   $env{'request.noversionuri'} eq ''
+                  || !defined($env{'request.noversionuri'})))
+         {
+             ($escurl = $env{'request.filename'}) =~
+                 s{^/home/([^/]+)/public_html/(.*)$}{/priv/$1/$2};
+             $escurl  = &escape($escurl);
+         }
+         $menu =~ s/\[url\]/$escurl/g;
+         $menu =~ s/\[symb\]/$escsymb/g;
+     }
+     return "<ul id=\"LC_secondary_menu\">$menu</ul>";
+ }
- # ================================================================ Little texts
+ #
+ # This routine returns a translated hash for the menu items in the top inline menu row
+ # Probably should be in mydesk.tab
+ #SD this sub is deprecated - don't use it
  sub initlittle {
      return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',
- 				       'nav' => 'Navigate Contents',
+ 				       'nav' => 'Course Contents',
  				       'main' => 'Main Menu',
-                                        'roles' => ($env{'user.adv'}?
+                                        'roles' => (&Apache::loncommon::show_course()?
-                                                     'Roles':'Courses'),
+                                                     'Courses':'Roles'),
-                                        'docs' => 'Course Documents',
+                                        'other' => 'Other Roles',
-                                        'exit' => 'Exit',
+                                        'docs' => 'Course Editor',
+                                        'exit' => 'Logout',
                                         'login' => 'Log In',
  				       'launch' => 'Launch Remote Control',
                                         'groups' => 'Groups',
-                                        'gdoc' => 'Group Documents',
+                                        'gdoc' => 'Community Documents',
                                         );
  }
- # ============================= This gets called at the top of the body section
+ #SD this sub is deprecated - don't use it
+ #SD functionality is covered by new loncommon::bodytag and primary_menu(), secondary_menu()
  sub menubuttons {
      my $forcereg=shift;
-     my $registration=shift;
      my $titletable=shift;
+ #
+ # Early-out for pages that should not have a menu, triggered by query string "inhibitmenu=yes"
+ #
      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
  					    ['inhibitmenu']);
      if (($env{'form.inhibitmenu'} eq 'yes') ||
- Line 88  sub menubuttons {
+ Line 386  sub menubuttons {
      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);
+ #
+ # if the URL is hidden, symbs and the non-versioned version of the URL would be encrypted
+ #
      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 = '<td class="LC_top_nav_logo"><a href="/adm/about.html"><img src="'.
+     $logo = '<a href="/adm/about.html"><img src="'.
- 	$logo.'" alt="LON-CAPA Logo" /></a></td>';
+ 	$logo.'" alt="LON-CAPA Logo" class="LC_noBorder" /></a>';
      if ($env{'request.state'} eq 'construct') {
+ #
+ # We are in construction space
+ #
          if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) {
              my $returnurl = $env{'request.filename'};
              $returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:;
- Line 104  sub menubuttons {
+ Line 411  sub menubuttons {
          }
      }
      if ($env{'request.course.id'}) {
+ #
+ # We are in a course
+ #
+         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
          my %coursegroups;
          my $viewgrps_permission =
  	    &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
          if (!$viewgrps_permission) {
-             %coursegroups = &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'});
+             %coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$cdom,$cnum);
  	}
          if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) {
              $showgroups = 1;
          }
+         $role_selector = &roles_selector($cdom,$cnum);
+         if ($role_selector) {
+             $roles = '<span class="LC_nobreak">'.$role_selector.'&nbsp;&nbsp;<a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></span>';
+         }
      }
-     if ($env{'browser.interface'} eq 'textual') {
+     if ($env{'environment.remote'} eq 'off') {
- # Textual display only
-         if ($env{'request.course.id'}) {
- 	    $navmaps=(<<ENDNAV);
- <a href="/adm/navmaps?postdata=$escurl&amp;postsymb=$escsymb" target="_top">$lt{'nav'}</a>
- ENDNAV
-             if (($env{'request.noversionuri'}=~/^\/adm\//) &&
-          ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
-          ($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) {
-                 my $escreload=&escape('return:');
-                 $reloadlink=(<<ENDRELOAD);
- <a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a>
- ENDRELOAD
-             }
- 	    if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
-                $docs=(<<ENDDOCS);
- <a href="/adm/coursedocs" target="_top">$lt{'docs'}</a>
- ENDDOCS
-             }
-             if ($showgroups) {
-                 $groups =(<<ENDGROUPS);
- <a href="/adm/coursegroups" target="_top">$lt{'groups'}</a>
- ENDGROUPS
-             }
- 	}
-         my $form=&serverform();
-         my $utility=&utilityfunctions();
- 	my $output=(<<ENDMAINMENU);
- <script type="text/javascript">
- // BEGIN LON-CAPA Internal
- $utility
- </script>
- <div id="LC_top_nav">
- <a href="/adm/menu" target="_top">$lt{'main'}</a>
- $reloadlink $navmaps $docs $groups
- <a href="/adm/roles" target="_top">$lt{'roles'}</a>
- <a href="/adm/logout" target="_top">$lt{'exit'}</a>
- </div>
- <br />
- <script type="text/javascript">
- // END LON-CAPA Internal
- </script>
- $form
- ENDMAINMENU
-         if ($registration) { $output.=&innerregister($forcereg); }
- 	return $output."<hr />";
-     } elsif ($env{'environment.remote'} eq 'off') {
  # Remote Control is switched off
  # figure out colors
- 	my %lt=&initlittle();
+         my %lt=&initlittle();
          my $domain=&Apache::loncommon::determinedomain();
- 	my $function =&Apache::loncommon::get_users_function();
+         my $function=&Apache::loncommon::get_users_function();
          my $link=&Apache::loncommon::designparm($function.'.link',$domain);
          my $alink=&Apache::loncommon::designparm($function.'.alink',$domain);
          my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);
          my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain);
- 	if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
- 	    return (<<ENDINLINEMENU);
+         if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
-    <table id="LC_top_nav">
+             return (<<ENDINLINEMENU);
-     <tr>
+             <ol class="LC_primary_menu LC_right">
-       $logo
+                 <li>$logo</li>
-       <td></td>
+                 <li><a href="/adm/roles" target="_top">$lt{'login'}</a></li>
-       <td class="LC_top_nav_login">
+             </ol>
-         <a href="/adm/roles" target="_top">$lt{'login'}</a>
+             <hr />
-      </td>
-     </tr>
-   </table>
- </font>
  ENDINLINEMENU
          }
+         $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='.
- Line 194  ENDINLINEMENU
+ Line 461  ENDINLINEMENU
  		$link="javascript:gonav('".$link."')";
  	    }
  	    $navmaps=(<<ENDNAV);
- <td><a href="$link" target="_top">$lt{'nav'}</a></td>
+ <li><a href="$link" target="_top">$lt{'nav'}</a></li>
  ENDNAV
- my $is_group = (&Apache::loncommon::course_type() eq 'Group');
+             my $is_community =
+                 (&Apache::loncommon::course_type() eq 'Community');
  	    if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
-                 my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'};
+                 my $text = ($is_community) ? $lt{'gdoc'} : $lt{'docs'};
  		$docs=(<<ENDDOCS);
- <td><a href="/adm/coursedocs" target="_top">$text</a></td>
+ <li><a href="/adm/coursedocs" target="_top">$text</a></li>
  ENDDOCS
              }
              if ($showgroups) {
                  $groups =(<<ENDGROUPS);
- <td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td>
+ <li><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></li>
  ENDGROUPS
              }
- 	    if (
+ 	    if (&show_return_link()) {
- 		($env{'request.noversionuri'}=~m[^/(res|public)/] &&
- 		 $env{'request.symb'} eq '')
- 		||
- 		(($env{'request.noversionuri'}=~/^\/adm\//) &&
- 		 ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
- 		 ($env{'request.noversionuri'}!~
- 		        m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)])
- 		  )
- 		 ) {
                  my $escreload=&escape('return:');
                  $reloadlink=(<<ENDRELOAD);
- <td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>
+ <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);
- <td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>
+ <li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li>
  ENDCRELOAD
          }
-         my $reg='';
+     my $reg     = $forcereg ? &innerregister($forcereg,$titletable) : '';
-         if ($registration) {
+     my $form    = &serverform();
-            $reg=&innerregister($forcereg,$titletable);
+     my $utility = &utilityfunctions();
-         }
-         my $form=&serverform();
+     #Prepare the message link that indicates the arrival of new mail
- 	my $utility=&utilityfunctions();
+     my $messagelink = &Apache::lonmsg::mynewmail() ? "Message (new)" : "Message";
- 	my $remote;
+        $messagelink = '<a href="javascript:go(\'/adm/communicate\');">'
- 	if ($env{'user.adv'}) {
+                       . mt($messagelink) .'</a>';
- 	    $remote = '<td><a href="/adm/remote?action=launch&amp;url='.$escurl.'" target="_top">'.$lt{'launch'}.'</a></td>'
- 	}
-         my $helplink=&Apache::loncommon::top_nav_help('Help');
+     my $helplink = &Apache::loncommon::top_nav_help('Help');
  	return (<<ENDINLINEMENU);
  <script type="text/javascript">
- // BEGIN LON-CAPA Internal
  // <![CDATA[
+ // BEGIN LON-CAPA Internal
  $utility
  // ]]>
  </script>
- <table id="LC_top_nav">
+ <ol class="LC_primary_menu LC_right">
- <tr>
+ 	<li>$logo</li>
- $logo
+ 	<li>$messagelink</li>
- <td><a href="/adm/menu" target="_top">$lt{'main'}</a></td>
+ 	<li>$roles</li>
+ 	<li>$helplink</li>
+ 	<li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li>
+ </ol>
+ <ul id="LC_secondary_menu">
+ <li><a href="/adm/menu" target="_top">$lt{'main'}</a></li>
  $reloadlink
  $navmaps
  $docs
  $groups
- $remote
+ $role_selector
- <td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td>
+ </ul>
- <td class="LC_top_nav_help">$helplink</td>
- <td class="LC_top_nav_exit"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>
- </tr>
- </table>
  $form
  <script type="text/javascript">
  // END LON-CAPA Internal
- Line 274  ENDINLINEMENU
+ Line 536  ENDINLINEMENU
      }
  }
- # ====================================== This gets called in the header section
+ 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) = @_;
- Line 284  sub registerurl {
+ Line 558  sub registerurl {
      if ($env{'request.state'} eq 'construct') {
  	$force_title=&Apache::lonxml::display_title();
      }
-     if (($env{'browser.interface'} eq 'textual') ||
+     if (($env{'environment.remote'} eq 'off') ||
-         ($env{'environment.remote'} eq 'off') ||
          ((($env{'request.publicaccess'}) ||
           (!&Apache::lonnet::is_on_map(
  	   &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 299  sub registerurl {
+ Line 578  sub registerurl {
      return $result.$force_title;
  }
- # =========== This gets called in order to register a URL, both with the Remote
- # =========== and in the body of the document
  sub innerregister {
-     my ($forcereg, $titletable) = @_;
+     my ($forcereg,$titletable,$bread_crumbs) = @_;
      my $result = '';
      my ($uname,$thisdisfn);
      my $const_space = ($env{'request.state'} eq 'construct');
- Line 313  sub innerregister {
+ Line 589  sub innerregister {
      $env{'request.registered'} = 1;
-     my $textinter=($env{'browser.interface'} eq 'textual');
+     my $noremote = ($env{'environment.remote'} eq 'off');
-     my $noremote=($env{'environment.remote'} eq 'off');
-     my $textual=($textinter || $noremote);
      undef(@inlineremote);
      my $reopen=&Apache::lonmenu::reopenmenu();
      my $newmail='';
-     if ($noremote) {
- 	$newmail='<table id="LC_nav_location"><tr>';
+     if (&Apache::lonmsg::newmail() && !$noremote) {
-     }
+         # We have new mail and remote is up
-     if (&Apache::lonmsg::newmail()) {
+         $newmail= 'swmenu.setstatus("you have","messages");';
- 	if ($textual) {
+     }
- 	    $newmail.= '<td class="LC_new_mail">
-                    <a href="/adm/communicate" target="_top">'.
+     my ($breadcrumb,$separator);
- 		   &mt('You have new messages').'</a></td>';
+     if ($noremote
- 	} else {
- 	    $newmail= 'swmenu.setstatus("you have","messages");';
- 	}
-     } elsif (($textual)
  	     && ($env{'request.symb'})
  	     && ($env{'request.course.id'})) {
- 	$newmail.= '<td class="LC_current_location">';
- 	my ($mapurl,$rid,$resurl)=
+         my ($mapurl,$rid,$resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
- 	    &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
+         my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};
-         $newmail.=$env{'course.'.$env{'request.course.id'}.'.description'};
-         my $maptitle=&Apache::lonnet::gettitle($mapurl);
+         my $maptitle = &Apache::lonnet::gettitle($mapurl);
- 	my $restitle=&Apache::lonnet::gettitle(&Apache::lonnet::symbread());
+         my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());
-         if ($maptitle && $maptitle ne 'default.sequence') {
+         my $contentstext;
- 	    $newmail.=', '.$maptitle;
+         if ($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Community') {
+             $contentstext = &mt('Community Contents');
+         } else {
+             $contentstext = &mt('Course Contents');
+         }
+         my @crumbs = ({text  => $contentstext,
+                        href  => "Javascript:gonav('/adm/navmaps')"});
+         if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {
+             push(@crumbs, {text  => '...',
+                            no_mt => 1});
          }
-         if ($restitle) {
- 	    $newmail.=': '.$restitle;
+         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);
+         #$breadcrumb .= &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);
+ 	unless (($env{'request.state'} eq 'edit') || ($newmail) ||
+ 		($env{'request.state'} eq 'construct') ||
+ 		($env{'form.register'})) {
+             $separator = &Apache::loncommon::head_subbox();
          }
-         $newmail.='&nbsp;&nbsp;&nbsp;</td>';
+         #
      }
      if ($env{'request.state'} eq 'construct') {
          $newmail = $titletable;
-     } else {
+     }
- 	if ($noremote) {
+     my $timesync   = ( $noremote ? '' : 'swmenu.syncclock(1000*'.time.');' );
- 	    $newmail.='</tr></table>';
+     my $tablestart = ( $noremote ? '<table id="LC_menubuttons">' : '');
- 	}
+     my $tableend   = ( $noremote ? '</table>' : '');
-     }
-     my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
-     my $tablestart=($noremote?'<table id="LC_menubuttons">':'').
- 	($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':'');
-     my $tableend=($noremote?'</table>':'').($textinter?'<a name="content" />':'');
  # =============================================================================
  # ============================ 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 376  sub innerregister {
+ Line 662  sub innerregister {
          if ($env{'request.symb'} ne '' &&
  	    $env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) {
  	    if (&Apache::lonnet::allowed('mgr',$crs)) {
- 		$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]',
+ 		$hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_4]',
                         "gocmd('/adm/grades','gradingmenu')",
                         'Modify user grades for this assessment resource');
              } elsif (&Apache::lonnet::allowed('vgr',$crs)) {
- Line 397  sub innerregister {
+ Line 683  sub innerregister {
          ### resource
          ###
          my $editbutton = '';
+         my $noeditbutton = 1;
+         my ($cnum,$cdom);
+         if ($env{'request.course.id'}) {
+             $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+             $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+         }
          if ($env{'user.author'}) {
-             if ($env{'request.role'}=~/^(ca|au)/) {
+             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 $cadom  = $env{'request.role.domain'};
                  my $caname = $env{'user.name'};
-                 my $desc = "Enter my resource construction space";
+                 my $desc = "Enter my construction space";
                  # Set defaults for co-authors
                  if ($env{'request.role'} =~ /^ca/) {
                      ($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);
                      ($top,$bottom) = ('co con-','struct');
                      $action = "go('/priv/".$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."');";
+                     $desc = "Enter construction space as assistant co-author";
                  }
                  # Check that we are on the correct machine
                  my $home = &Apache::lonnet::homeserver($caname,$cadom);
- Line 419  sub innerregister {
+ Line 719  sub innerregister {
  		foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
  		if (!$allowed) {
  		    $editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);
+                     $noeditbutton = 0;
                  }
              }
+ #
+ # We are an author for some stuff, but currently do not have the role of author.
+ # Figure out if we have authoring privileges for the resource we are looking at.
+ # This should maybe become a privilege check in lonnet
+ #
              ##
              ## Determine if user can edit url.
              ##
              my $cfile='';
              my $cfuname='';
              my $cfudom='';
+             my $uploaded;
              if ($env{'request.filename'}) {
                  my $file=&Apache::lonnet::declutter($env{'request.filename'});
-                 $file=~s/^($match_domain)\/($match_username)/\/priv\/$2/;
+                 if (defined($cnum) && defined($cdom)) {
-                 # Check that the user has permission to edit this resource
+                     $uploaded = &is_course_upload($file,$cnum,$cdom);
-                 ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);
+                 }
-                 if (defined($cfudom)) {
+                 if (!$uploaded) {
- 		    my $home=&Apache::lonnet::homeserver($cfuname,$cfudom);
+                     $file=~s/^($match_domain)\/($match_username)/\/priv\/$2/;
- 		    my $allowed=0;
+                     # Check that the user has permission to edit this resource
- 		    my @ids=&Apache::lonnet::current_machine_ids();
+                     ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);
- 		    foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
+                     if (defined($cfudom)) {
- 		    if ($allowed) {
+ 		        my $home=&Apache::lonnet::homeserver($cfuname,$cfudom);
-                         $cfile=$file;
+ 		        my $allowed=0;
+ 		        my @ids=&Apache::lonnet::current_machine_ids();
+ 		        foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
+ 		        if ($allowed) {
+                             $cfile=$file;
+                         }
                      }
                  }
              }
              # Finally, turn the button on or off
              if ($cfile && !$const_space) {
-                 $editbutton=&switch
+                 my $nocrsedit;
-                     ('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
+                 # Suppress display where CC has switched to student role.
+                 if ($env{'request.course.id'}) {
+                     unless(&Apache::lonnet::allowed('mdc',
+                                                     $env{'request.course.id'})) {
+                         $nocrsedit = 1;
+                     }
+                 }
+                 if ($nocrsedit) {
+                     $editbutton=&clear(6,1);
+                 } else {
+                     $editbutton=&switch
+                        ('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
                       "go('".$cfile."');","Edit this resource");
+                     $noeditbutton = 0;
+                 }
              } elsif ($editbutton eq '') {
                  $editbutton=&clear(6,1);
              }
          }
+         if (($noeditbutton) && ($env{'request.filename'})) {
+             if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
+                 my $file=&Apache::lonnet::declutter($env{'request.filename'});
+                 if (defined($cnum) && defined($cdom)) {
+                     if (&is_course_upload($file,$cnum,$cdom)) {
+                         my $cfile = &edit_course_upload($file,$cnum,$cdom);
+                         if ($cfile) {
+                             $editbutton=&switch
+                                         ('','',6,1,'pcstr.gif','edit[_1]',
+                                          'resource[_2]',"go('".$cfile."');",
+                                          'Edit this resource');
+                         }
+                     }
+                 }
+             }
+         }
          ###
          ###
  # Prepare the rest of the buttons
          my $menuitems;
          if ($const_space) {
+ #
+ # We are in construction space
+ #
  	    my ($uname,$thisdisfn) =
  		($env{'request.filename'}=~m|^/home/([^/]+)/public_html/(.*)|);
              my $currdir = '/priv/'.$uname.'/'.$thisdisfn;
              if ($currdir =~ m-/$-) {
                  $is_const_dir = 1;
              } else {
-                 $currdir =~ s#[^/]+$##;
+                 $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&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version
- s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource
+ s&6&3&pub.gif&publish[_1]&resource[_3]&gocstr('/adm/publish','/~$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&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document
  ENDMENUITEMS
              }
+             if ($noremote) {
+                 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 registred 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
- Line 484  c&8&1
+ Line 843  c&8&1
  c&8&2
  s&8&3&prt.gif&prepare[_1]&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
- s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&&1
  ENDMENUITEMS
+ 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";
+ }else{
+ 	$menuitems.="anot.gif";
+ }
+ $menuitems.="&anno-[_1]&tations[_1]&annotate()&";
+ $menuitems.="Make notes and annotations about this resource&&1\n";
+             unless ($noremote) {
+                 my $showreqcrs = &check_for_rcrs();
+                 if ($showreqcrs) {
+                     $menuitems.="s&8&1&rcrs.gif&request[_1]&course[_16]".
+                                 "&go('/adm/requestcourse')&Course requests\n";
+                 }
+             }
              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {
+ 		if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/})) {
+ 		    $menuitems.=(<<ENDREALRES);
+ s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata
+ ENDREALRES
+                 }
  	        $menuitems.=(<<ENDREALRES);
- s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information
  s&8&1&eval.gif&evaluate[_1]&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of 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
- Line 502  ENDMENUITEMS
+ Line 884  ENDMENUITEMS
          my $buttons='';
          foreach (split(/\n/,$menuitems)) {
  	    my ($command,@rest)=split(/\&/,$_);
-             if ($command eq 's') {
+             my $idx=10*$rest[0]+$rest[1];
- 		$buttons.=&switch('','',@rest);
+             if (&hidden_button_check() eq 'yes') {
-             } else {
+                 if ($idx == 21 ||$idx == 23) {
-                 $buttons.=&clear(@rest);
+                     $buttons.=&switch('','',@rest);
+                 } else {
+                     $buttons.=&clear(@rest);
+                 }
+             } else {
+                 if ($command eq 's') {
+ 	            $buttons.=&switch('','',@rest);
+                 } else {
+                     $buttons.=&clear(@rest);
+                 }
              }
          }
-         if ($textual) {
+         if ($noremote) {
  	    my $addremote=0;
- 	    foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } }
+ 	    foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
  	    my $inlinebuttons='';
- 	    if ($addremote) {
+     if ($addremote) {
- # Registered, textual output
- 		if ($env{'browser.interface'} eq 'textual') {
+         Apache::lonhtmlcommon::clear_breadcrumb_tools();
- 		    $inlinebuttons=
-                         join('',map { (defined($_)?$_:'') } @inlineremote);
+             Apache::lonhtmlcommon::add_breadcrumb_tool(
- 		} else {
+                 'navigation', @inlineremote[21,23]);
- 		    $inlinebuttons=(<<ENDINLINE);
- <tr><td>$inlineremote[21]</td><td>&nbsp;</td><td>$inlineremote[23]</td></tr>
+         if(hidden_button_check() ne 'yes') {
- <tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr>
+             Apache::lonhtmlcommon::add_breadcrumb_tool(
- <tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr>
+                 'tools', @inlineremote[93,91,81,82,83]);
- <tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr>
- <tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr>
+             #publish button in construction space
- ENDINLINE
+             if ($env{'request.state'} eq 'construct'){
-                 }
+                 Apache::lonhtmlcommon::add_breadcrumb_tool(
- 	    }
+                      'advtools', @inlineremote[63]);
+             }else{
+                 Apache::lonhtmlcommon::add_breadcrumb_tool(
+                      'tools', @inlineremote[63]);
+             }
+             Apache::lonhtmlcommon::add_breadcrumb_tool(
+                 'advtools', @inlineremote[61,71,72,73,92]);
+         }
+ #       # Registered, textual output
+ #        if ( $env{'environment.icons'} eq 'iconsonly' ) {
+ #            $inlinebuttons = (<<ENDARROWSINLINE);
+ #<tr><td>
+ #$inlineremote[21] $inlineremote[23]
+ #ENDARROWSINLINE
+ #            if ( &hidden_button_check() ne 'yes' ) {
+ #                $inlinebuttons .= (<<ENDINLINEICONS);
+ #$inlineremote[61] $inlineremote[63]
+ #$inlineremote[71] $inlineremote[72] $inlineremote[73]
+ #$inlineremote[81] $inlineremote[82] $inlineremote[83]
+ #$inlineremote[91] $inlineremote[92] $inlineremote[93]</td></tr>
+ #ENDINLINEICONS
+ #            }
+ #        } else { # not iconsonly
+ #            if ( $inlineremote[21] ne '' || $inlineremote[23] ne '' ) {
+ #                $inlinebuttons = (<<ENDFIRSTLINE);
+ #<tr><td>$inlineremote[21]</td><td>&nbsp;</td><td>$inlineremote[23]</td></tr>
+ #ENDFIRSTLINE
+ #            }
+ #            if ( &hidden_button_check() ne 'yes' ) {
+ #                foreach my $row ( 6 .. 9 ) {
+ #                    if (   $inlineremote[ ${row} . '1' ] ne ''
+ #                        || $inlineremote[ $row . '2' ] ne ''
+ #                        || $inlineremote[ $row . '3' ] ne '' )
+ #                    {
+ #                        $inlinebuttons .= <<"ENDLINE";
+ #<tr><td>$inlineremote["${row}1"]</td><td>$inlineremote["${row}2"]</td><td>$inlineremote["${row}3"]</td></tr>
+ #ENDLINE
+ #                    }
+ #                }
+ #            }
+ #        }
+     }
+         $breadcrumb = &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);
  	    $result =(<<ENDREGTEXT);
  <script type="text/javascript">
  // BEGIN LON-CAPA Internal
  </script>
  $timesync
+ $breadcrumb
+ <!-- $tablestart -->
+ <!-- $inlinebuttons -->
+ <!-- $tableend -->
  $newmail
- $tablestart
+ <!-- $separator -->
- $inlinebuttons
- $tableend
  <script type="text/javascript">
  // END LON-CAPA Internal
  </script>
- Line 555  ENDREGTEXT
+ Line 992  ENDREGTEXT
  	    $result = (<<ENDREGTHIS);
  <script type="text/javascript">
+ // <![CDATA[
  // BEGIN LON-CAPA Internal
  var swmenu=null;
- Line 590  var swmenu=null;
+ Line 1028  var swmenu=null;
        }
  // END LON-CAPA Internal
+ // ]]>
  </script>
  ENDREGTHIS
          }
  # =============================================================================
      } else {
  # ========================================== This can or will not be registered
-         if ($textual) {
+         if ($noremote) {
- # Not registered, textual
+ # Not registered
- 	    $result= (<<ENDDONOTREGTEXT);
+             $result= (<<ENDDONOTREGTEXT);
  ENDDONOTREGTEXT
          } else {
  # Not registered, graphical
             $result = (<<ENDDONOTREGTHIS);
  <script type="text/javascript">
+ // <![CDATA[
  // BEGIN LON-CAPA Internal
  var swmenu=null;
- Line 629  var swmenu=null;
+ Line 1069  var swmenu=null;
      }
  // END LON-CAPA Internal
+ // ]]>
  </script>
  ENDDONOTREGTHIS
         }
- Line 637  ENDDONOTREGTHIS
+ Line 1078  ENDDONOTREGTHIS
      return $result;
  }
+ sub is_course_upload {
+     my ($file,$cnum,$cdom) = @_;
+     my $uploadpath = &LONCAPA::propath($cdom,$cnum);
+     $uploadpath =~ s{^\/}{};
+     if (($file =~ m{^\Q$uploadpath\E/userfiles/docs/}) ||
+         ($file =~ m{^userfiles/\Q$cdom\E/\Q$cnum\E/docs/})) {
+         return 1;
+     }
+     return;
+ }
+ sub edit_course_upload {
+     my ($file,$cnum,$cdom) = @_;
+     my $cfile;
+     if ($file =~/\.(htm|html|css|js|txt)$/) {
+         my $ext = $1;
+         my $url = &Apache::lonnet::hreflocation('',$file);
+         my $home = &Apache::lonnet::homeserver($cnum,$cdom);
+         my @ids=&Apache::lonnet::current_machine_ids();
+         my $dest;
+         if ($home && grep(/^\Q$home\E$/,@ids)) {
+             $dest = $url.'?forceedit=1';
+         } else {
+             unless (&Apache::lonnet::get_locks()) {
+                 $dest = '/adm/switchserver?otherserver='.
+                         $home.'&role='.$env{'request.role'}.
+                         '&url='.$url.'&forceedit=1';
+             }
+         }
+         if ($dest) {
+             $cfile = &HTML::Entities::encode($dest,'"<>&');
+         }
+     }
+     return $cfile;
+ }
  sub loadevents() {
      if ($env{'request.state'} eq 'construct' ||
  	$env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
- Line 649  sub unloadevents() {
+ Line 1126  sub unloadevents() {
      return 'LONCAPAstale();';
  }
- # ============================================================= Start up remote
  sub startupremote {
      my ($lowerurl)=@_;
-     if (($env{'browser.interface'} eq 'textual') ||
+     if ($env{'environment.remote'} eq 'off') {
-         ($env{'environment.remote'} eq 'off')) {
       return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');
      }
  #
- Line 665  sub startupremote {
+ Line 1140  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') {
- Line 715  function main() {
+ Line 1191  function main() {
     wait();
  }
+ // ]]>
  </script>
  ENDREMOTESTARTUP
  }
- Line 722  ENDREMOTESTARTUP
+ Line 1199  ENDREMOTESTARTUP
  sub setflags() {
      return(<<ENDSETFLAGS);
  <script type="text/javascript">
+ // <![CDATA[
      menuloaded=0;
      tim=0;
+ // ]]>
  </script>
  ENDSETFLAGS
  }
  sub maincall() {
-     if (($env{'browser.interface'} eq 'textual') ||
+     if ($env{'environment.remote'} eq 'off') { return ''; }
-         ($env{'environment.remote'} eq 'off')) { return ''; }
      return(<<ENDMAINCALL);
  <script type="text/javascript">
+ // <![CDATA[
      main();
+ // ]]>
  </script>
  ENDMAINCALL
  }
- Line 741  ENDMAINCALL
+ Line 1221  ENDMAINCALL
  sub load_remote_msg {
      my ($lowerurl)=@_;
-     if (($env{'browser.interface'} eq 'textual') ||
+     if ($env{'environment.remote'} eq 'off') { return ''; }
-         ($env{'environment.remote'} eq 'off')) { return ''; }
      my $esclowerurl=&escape($lowerurl);
-     my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode',
+     my $link=&mt('[_1]Continue[_2] on in Inline Menu mode'
- 		 "/adm/remote?action=collapse&amp;url=$esclowerurl");
+                 ,'<a href="/adm/remote?action=collapse&amp;url='.$esclowerurl.'">'
+                 ,'</a>');
      return(<<ENDREMOTEFORM);
  <p>
  <form name="wheel">
- Line 756  sub load_remote_msg {
+ Line 1236  sub load_remote_msg {
  <p>$link</p>
  ENDREMOTEFORM
  }
- # ================================================================= Reopen menu
+ sub get_menu_name {
+     my $hostid = $Apache::lonnet::perlvar{'lonHostID'};
+     $hostid =~ s/\W//g;
+     return 'LCmenu'.$hostid;
+ }
  sub reopenmenu {
-    if (($env{'browser.interface'} eq 'textual') ||
+    if ($env{'environment.remote'} eq 'off') { return ''; }
-        ($env{'environment.remote'} eq 'off')) { return ''; }
+    my $menuname = &get_menu_name();
-    my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
     my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
     return('window.open('.$nothing.',"'.$menuname.'","",false);');
  }
- # =============================================================== Open the menu
  sub open {
      my $returnval='';
-     if (($env{'browser.interface'} eq 'textual') ||
+     if ($env{'environment.remote'} eq 'off') {
-         ($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='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
+     my $menuname = &get_menu_name();
-     unless (shift eq 'unix') {
+ #    unless (shift eq 'unix') {
  # resizing does not work on linux because of virtual desktop sizes
-        $returnval.=(<<ENDRESIZE);
+ #       $returnval.=(<<ENDRESIZE);
- if (window.screen) {
+ #if (window.screen) {
-     self.resizeTo(screen.availWidth-215,screen.availHeight-55);
+ #    self.resizeTo(screen.availWidth-215,screen.availHeight-55);
-     self.moveTo(190,15);
+ #    self.moveTo(190,15);
- }
+ #}
- ENDRESIZE
+ #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 798  ENDOPEN
+ Line 1289  ENDOPEN
  sub clear {
      my ($row,$col)=@_;
-     unless (($env{'browser.interface'} eq 'textual') ||
+     unless ($env{'environment.remote'} eq 'off') {
-             ($env{'environment.remote'} eq 'off')) {
+        if (($row<1) || ($row>13)) { return ''; }
         return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););
     } else {
         $inlineremote[10*$row+$col]='';
- Line 818  sub switch {
+ Line 1309  sub switch {
      $top=&mt($top);
      $bot=&mt($bot);
      $desc=&mt($desc);
-     $img=&mt($img);
+     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')  ||
+     unless ($env{'environment.remote'} eq 'off') {
-             ($env{'environment.remote'} eq 'off')) {
+        if (($row<1) || ($row>13)) { return ''; }
  # Remote
         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 ''; }
-        my $text=$top.' '.$bot;
-        $text=~s/\s*\-\s*//gs;
-        if ($nobreak) {
- 	   $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') {
- Line 849  sub switch {
+ Line 1329  sub switch {
         my $text=$top.' '.$bot;
         $text=~s/\s*\-\s*//gs;
-        my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
-        if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
         my $pic=
- 	   '<img alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}.
+ 	   '<img alt="'.$text.'" src="'.
- 	   ':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'.
+ 	   &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
- 	   ($nobreak==3?'right':'left').'" />';
+ 	   '" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';
         if ($env{'browser.interface'} eq 'faketextual') {
- # Accessibility
+ # Main Menu
  	   if ($nobreak==3) {
  	       $inlineremote[$idx]="\n".
  		   '<td class="LC_menubuttons_text" align="right">'.$text.
- 		   '</td><td class="LC_menubuttons_img" align="left">'.
+ 		   '</td><td align="left">'.
  		   '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
  	   } elsif ($nobreak) {
  	       $inlineremote[$idx]="\n<tr>".
- 		   '<td class="LC_menubuttons_img" align="left">'.
+ 		   '<td align="left">'.
  		   '<a href="javascript:'.$act.';">'.$pic.'</a></td>
                      <td class="LC_menubuttons_text" align="left"><a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$text.'</span></a></td>';
  	   } else {
  	       $inlineremote[$idx]="\n<tr>".
- 		   '<td class="LC_menubuttons_img" align="left">'.
+ 		   '<td align="left">'.
  		   '<a href="javascript:'.$act.';">'.$pic.
  		   '</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 {
  # Inline Menu
- 	   $inlineremote[$idx]=
+            if ($env{'environment.icons'} eq 'iconsonly') {
- 		   '<a class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
+               $inlineremote[$idx]='<a title="'.$desc.'" 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">'.$desc.'</span></a>';
+            }
         }
     }
      return '';
- Line 899  sub secondlevel {
+ Line 1381  sub secondlevel {
  }
  sub openmenu {
-     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
+     my $menuname = &get_menu_name();
-     if (($env{'browser.interface'} eq 'textual') ||
+     if ($env{'environment.remote'} eq 'off') { return ''; }
-         ($env{'environment.remote'} eq 'off')) { return ''; }
      my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
      return "window.open(".$nothing.",'".$menuname."');";
  }
- Line 909  sub openmenu {
+ Line 1390  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_column">';
+         $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 id="LC_menubuttons_mainmenu"><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';
+                #$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';
+                $output.='<div class="LC_Box LC_400Box">';
+ 	       $output.='<h3 class="LC_hcell">'.&mt($category_names{$cat}).'</h3>';
+                $output.='<table>';
                 my %active=();
                 foreach my $menu_item (split(/\:/,$category_members{$cat})) {
                    if ($inlineremote[$menu_item]) {
- Line 927  sub inlinemenu {
+ Line 1412  sub inlinemenu {
                    $output.=$inlineremote[$item];
                 }
                 $output.='</table>';
+                $output.='</div>';
              }
           }
           $output.="</td>";
- Line 936  sub inlinemenu {
+ Line 1422  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') ||
+     unless ($env{'environment.remote'} eq 'off') {
-             ($env{'environment.remote'} eq 'off')) {
         $output.=
   "window.status='Opening Remote Control';var swmenu=".&openmenu().
  "\nwindow.status='Configuring Remote Control ';";
- Line 949  sub rawconfig {
+ Line 1439  sub rawconfig {
      my $uname=$env{'user.name'};
      my $udom=$env{'user.domain'};
      my $adv=$env{'user.adv'};
+     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 966  sub rawconfig {
+ Line 1459  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 988  sub rawconfig {
+ Line 1485  sub rawconfig {
                 $output.=&secondlevel(
  	  $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
              }
+ 	} elsif ($pro eq 'shc') {
+             if ($show_course) {
+                $output.=&secondlevel(
+           $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
+             }
+         } elsif ($pro eq 'nsc') {
+             if (!$show_course) {
+                $output.=&secondlevel(
+ 	  $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/)) ||
+                     (($prt eq 'raa') && ($env{'request.role'}=~/^aa/)) ||
                      (($prt eq 'rau') && ($env{'request.role'}=~/^au/))) {
                      # Check that we are on the correct machine
                      my $cadom=$requested_domain;
                      my $caname=$env{'user.name'};
-                     if ($prt eq 'rca') {
+                     if (($prt eq 'rca') || ($prt eq 'raa')) {
  		       ($cadom,$caname)=
                                 ($env{'request.role'}=~/($match_domain)\/($match_username)$/);
                      }
- Line 1031  sub rawconfig {
+ Line 1582  sub rawconfig {
                      }
                  }
              }
+         } elsif ($pro eq 'tools') {
+             my @tools = ('aboutme','blog','portfolio');
+             if (grep(/^\Q$prt\E$/,@tools)) {
+                 if (!&Apache::lonnet::usertools_access($env{'user.name'},
+                                                        $env{'user.domain'},
+                                                        $prt,undef,'tools')) {
+                     $output.=&clear($row,$col);
+                     next;
+                 }
+             } elsif (($prt eq 'reqcrsnsc') || ($prt eq 'reqcrsshc')) {
+                 if (($prt eq 'reqcrsnsc') && ($show_course))   {
+                     next;
+                 }
+                 if (($prt eq 'reqcrsshc') && (!$show_course)) {
+                     next;
+                 }
+                 my $showreqcrs = &check_for_rcrs();
+                 if (!$showreqcrs) {
+                     $output.=&clear($row,$col);
+                     next;
+                 }
+             }
+             $prt='any';
+             $output.=&secondlevel(
+           $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
          }
      }
-     unless (($env{'browser.interface'} eq 'textual') ||
+     unless ($env{'environment.remote'} eq 'off') {
-             ($env{'environment.remote'} eq 'off')) {
         $output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";
         if (&Apache::lonmsg::newmail()) {
  	   $output.='swmenu.setstatus("you have","messages");';
- Line 1044  sub rawconfig {
+ Line 1619  sub rawconfig {
      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') ||
+     if ($env{'environment.remote'} eq 'off') { return ''; }
-         ($env{'environment.remote'} eq 'off')) { return ''; }
+     my $menuname = &get_menu_name();
-     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
      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 1061  menu.autologout=0;
+ Line 1658  menu.autologout=0;
  window.status='Closing Remote Control';
  menu.close();
  window.status='Done.';
+ // ]]>
  </script>
  ENDCLOSE
  }
- Line 1088  function gonav(url) {
+ Line 1686  function gonav(url) {
  NAVCONTROL
  }
+ sub dc_popup_js {
+     my %lt = &Apache::lonlocal::texthash(
+                                           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();">$lt{'less'}</a>';
+     return;
+ }
+ function hideCourseID() {
+     document.getElementById('dccid').style.display='none';
+     document.getElementById('dccidtext').innerHTML ='<a href="javascript:showCourseID()">$lt{'more'}</a>';
+     return;
+ }
+ END
+ }
  sub utilityfunctions {
      my $caller = shift;
-     unless (($env{'browser.interface'} eq 'textual')  ||
+     unless ($env{'environment.remote'} eq 'off' ||
-         ($env{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; }
+             $caller eq '/adm/menu') {
+             return ''; }
      my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
+     if ($currenturl =~ m{^/adm/wrapper/ext/}) {
+         if ($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,
  				       {'only_body' => 1,
- Line 1125  return (<<ENDUTILITY)
+ Line 1762  return (<<ENDUTILITY)
      var currentSymb="$currentsymb";
  $nav_control
+ $dc_popup_cid
  function go(url) {
     if (url!='' && url!= null) {
- Line 1134  function go(url) {
+ Line 1772  function go(url) {
     }
  }
+ function gotop(url) {
+     if (url!='' && url!= null) {
+         top.location.href = url;
+     }
+ }
  function gopost(url,postdata) {
     if (url!='') {
        this.document.server.action=url;
- Line 1210  function catalog_info() {
+ Line 1854  function catalog_info() {
  }
  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 1233  function annotate() {
+ Line 1877  function annotate() {
     '$start_page_annotate'
    +"<form name='goannotate' target='Annotator' method='post' "
    +"action='/adm/annotations'>"
-   +"<input type='hidden' name='urlnew' value='"+currentURL+"' />"
+   +"<input type='hidden' name='symbnew' value='"+currentSymb+"' />"
    +"<\\/form>"
    +'$end_page_annotate');
     annotator.document.close();
- Line 1247  function set_bookmark() {
+ Line 1891  function set_bookmark() {
     bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');
     bmquery.document.write(
     '$start_page_bookmark'
-    +"<center><form method='post'"
+    +'<center><form method="post"'
-    +" name='newlink' action='/adm/bookmarks' target='bmquery' "
+    +' name="newlink" action="/adm/bookmarks" target="bmquery" '
-    +">\\n <table width=340 height=150 "
+    +'> <table width="340" height="150" '
-    +"bgcolor='ffffff' align=center><tr><td>Link Name:<br /><input "
+    +'bgcolor="#FFFFFF" align="center"><tr><td>Link Name:<br /><input '
-    +"type='text' name='title' size=45 value='"+clienttitle+"' />"
+    +'type="text" name="title" size="45" value="'+clienttitle+'" />'
-    +"<br />Address:<br /><input type='text' name='address' size='45' "
+    +'<br />Address:<br /><input type="text" name="address" size="45" '
-    +"value='"+clienthref+"' /><br /><center><input type='submit' "
+    +'value="'+clienthref+'" /><br /><center><input type="submit" '
-    +"value='Save' /> <input type='button' value='Close (no save)' "
+    +'value="Save" /> <input type="button" value="Close" '
-    +"onclick='javascript:window.close();' /><\\/center><\\/td>"
+    +'onclick="javascript:window.close();" /></center></td>'
-    +"<\\/tr><\\/table><\\/form><\\/center>"
+    +'</tr></table></form></center>'
     +'$end_page_bookmark' );
     bmquery.document.close();
  }
- Line 1304  sub get_nav_status {
+ Line 1948  sub get_nav_status {
      return $navstatus;
  }
- #FIXME this needs to move into mydesktab and the other locations
+ sub hidden_button_check {
- # the text is generated
+     my $hidden;
- sub convert_menu_function {
+     if ($env{'request.course.id'} eq '') {
-     my ($rolename,$type) = @_;
+         return;
-     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;
+     if ($env{'request.role.adv'}) {
+         return;
+     }
+     my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide');
+     return $buttonshide;
+ }
+ sub roles_selector {
+     my ($cdom,$cnum) = @_;
+     my $crstype = &Apache::loncommon::course_type();
+     my $now = time;
+     my (%courseroles,%seccount);
+     my $is_cc;
+     my $role_selector;
+     my $ccrole;
+     if ($crstype eq 'Community') {
+         $ccrole = 'co';
+     } else {
+         $ccrole = 'cc';
+     }
+     if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) {
+         my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum});
+         if ((($start) && ($start<0)) ||
+             (($end) && ($end<$now))  ||
+             (($start) && ($now<$start))) {
+             $is_cc = 0;
+         } else {
+             $is_cc = 1;
+         }
+     }
+     if ($is_cc) {
+         &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount);
+     } else {
+         my %gotnosection;
+         foreach my $item (keys(%env)) {
+             if ($item =~ m-^user\.role\.([^.]+)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) {
+                 my $role = $1;
+                 my $sec = $2;
+                 next if ($role eq 'gr');
+                 my ($start,$end) = split(/\./,$env{$item});
+                 next if (($start && $start > $now) || ($end && $end < $now));
+                 if ($sec eq '') {
+                     if (!$gotnosection{$role}) {
+                         $seccount{$role} ++;
+                         $gotnosection{$role} = 1;
+                     }
+                 }
+                 if (ref($courseroles{$role}) eq 'ARRAY') {
+                     if ($sec ne '') {
+                         if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) {
+                             push(@{$courseroles{$role}},$sec);
+                             $seccount{$role} ++;
+                         }
+                     }
+                 } else {
+                     @{$courseroles{$role}} = ();
+                     if ($sec ne '') {
+                         $seccount{$role} ++;
+                         push(@{$courseroles{$role}},$sec);
+                     }
+                 }
+             }
+         }
+     }
+     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 .= '<form name="rolechooser" method="post" action="/adm/roles">
+                           <select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">';
+         $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,$crstype).'</option>';
+             }
+         }
+         foreach my $role (sort(keys(%courseroles))) {
+             if ($role =~ /^cr/) {
+                 $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';
+             }
+         }
+         $role_selector .= '</select>'."\n".
+                '<input type="hidden" name="destinationurl" value="'.
+                &HTML::Entities::encode($ENV{'REQUEST_URI'}).'" />'."\n".
+                '<input type="hidden" name="gotorole" value="1" />'."\n".
+                '<input type="hidden" name="selectrole" value="" />'."\n".
+                '<input type="hidden" name="switch" value="1" />'."\n".
+                '</form>';
+     }
+     return $role_selector;
+ }
+ sub get_all_courseroles {
+     my ($cdom,$cnum,$courseroles,$seccount) = @_;
+     unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH')) {
+         return;
+     }
+     my ($result,$cached) =
+         &Apache::lonnet::is_cached_new('getcourseroles',$cdom.'_'.$cnum);
+     if (defined($cached)) {
+         if (ref($result) eq 'HASH') {
+             if ((ref($result->{'roles'}) eq 'HASH') &&
+                 (ref($result->{'seccount'}) eq 'HASH')) {
+                 %{$courseroles} = %{$result->{'roles'}};
+                 %{$seccount} = %{$result->{'seccount'}};
+                 return;
+             }
+         }
+     }
+     my %gotnosection;
+     my %adv_roles =
+          &Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1);
+     foreach my $role (keys(%adv_roles)) {
+         my ($urole,$usec) = split(/:/,$role);
+         if (!$gotnosection{$urole}) {
+             $seccount->{$urole} ++;
+             $gotnosection{$urole} = 1;
+         }
+         if (ref($courseroles->{$urole}) eq 'ARRAY') {
+             if ($usec ne '') {
+                 if (!grep(/^Q$usec\E$/,@{$courseroles->{$urole}})) {
+                     push(@{$courseroles->{$urole}},$usec);
+                     $seccount->{$urole} ++;
+                 }
+             }
+         } else {
+             @{$courseroles->{$urole}} = ();
+             if ($usec ne '') {
+                 $seccount->{$urole} ++;
+                 push(@{$courseroles->{$urole}},$usec);
+             }
+         }
+     }
+     my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']);
+     @{$courseroles->{'st'}} = ();
+     if (keys(%sections_count) > 0) {
+         push(@{$courseroles->{'st'}},keys(%sections_count));
+         $seccount->{'st'} = scalar(keys(%sections_count));
+     }
+     my $rolehash = {
+                      'roles'    => $courseroles,
+                      'seccount' => $seccount,
+                    };
+     &Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash);
+     return;
+ }
+ sub jump_to_role {
+     my ($cdom,$cnum,$seccount,$courseroles) = @_;
+     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',
+     );
+     my $js;
+     if (ref($courseroles) eq 'HASH') {
+         $js = '    var secpick = new Array("'.$lt{'ente'}.'","'.$lt{'orlb'}.'");'."\n".
+               '    var numsec = new Array();'."\n".
+               '    var rolesections = new Array();'."\n".
+               '    var rolenames = new Array();'."\n".
+               '    var roleseclist = new Array();'."\n";
+         my @items = keys(%{$courseroles});
+         for (my $i=0; $i<@items; $i++) {
+             $js .= '    rolenames['.$i.'] = "'.$items[$i].'";'."\n";
+             my ($secs,$secstr);
+             if (ref($courseroles->{$items[$i]}) eq 'ARRAY') {
+                 my @sections = sort { $a <=> $b } @{$courseroles->{$items[$i]}};
+                 $secs = join('","',@sections);
+                 $secstr = join(', ',@sections);
+             }
+             $js .= '    rolesections['.$i.'] = new Array("'.$secs.'");'."\n".
+                    '    roleseclist['.$i.'] = "'.$secstr.'";'."\n".
+                    '    numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\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 = '';
+     for (var i=0; i<rolenames.length; i++) {
+         if (rolenames[i] == newrole) {
+             selidx = i;
+         }
+     }
+     var secok = 1;
+     var secchoice = '';
+     if (selidx >= 0) {
+         if (numsec[selidx] > 1) {
+             secok = 0;
+             var numrolesec = rolesections[selidx].length;
+             var msgidx = numsec[selidx] - numrolesec;
+             secchoice = prompt("$lt{'this'}\\n"+secpick[msgidx]+"\\n$lt{'avai'} "+roleseclist[selidx],"");
+             if (secchoice == '') {
+                 if (msgidx > 0) {
+                     secok = 1;
+                 }
+             } else {
+                 for (var j=0; j<rolesections[selidx].length; j++) {
+                     if (rolesections[selidx][j] == secchoice) {
+                         secok = 1;
+                     }
+                 }
+             }
+         } else {
+             if (rolesections[selidx].length == 1) {
+                 secchoice = rolesections[selidx][0];
+             }
+         }
+     }
+     if (secok == 1) {
+         if (secchoice != '') {
+             fullrole += '/'+secchoice;
+         }
+     } else {
+         document.rolechooser.elements[roleitem].selectedIndex = 0;
+         if (secchoice != null) {
+             alert("$lt{'youe'} \\""+secchoice+"\\".\\n $lt{'plst'}");
+         }
+         return;
+     }
+     if (fullrole == "$env{'request.role'}") {
+         return;
+     }
+     itemid = retrieveIndex('gotorole');
+     if (itemid != -1) {
+         document.rolechooser.elements[itemid].name = fullrole;
+     }
+     document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value = fullrole;
+     document.rolechooser.selectrole.value = '1';
+     document.rolechooser.submit();
+     return;
+ }
+ function retrieveIndex(item) {
+     for (var i=0;i<document.rolechooser.elements.length;i++) {
+         if (document.rolechooser.elements[i].name == item) {
+             return i;
+         }
+     }
+     return -1;
+ }
+ // ]]>
+ </script>
+ END
  }
- Line 1322  sub convert_menu_function {
+ Line 2220  sub convert_menu_function {
  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=~/^scnd\:/) {
- 		CORE::close($config);
+                         my @entries = (split(/\:/, $configline))[1..5];
- 	    }
+                         push @secondary_menu, \@entries;
- 	}
+                     } elsif ($configline) {
- 	$readdesk='done';
+                         push(@desklines,$configline);
+                     }
+                 }
+                 CORE::close($config);
+             }
+         }
+         $readdesk='done';
      }
  }
 ;
  __END__

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

Removed from v.1.215
changed lines
	Added in v.1.314