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

Diff for /loncom/interface/lonmenu.pm between versions 1.128 and 1.369.2.48

version 1.128, 2004/11/11 23:45:36 version 1.369.2.48, 2013/12/13 14:30:49
Line 26 Line 26
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 #  #
 # There are two parameters controlling the action of this module:  
 #  =head1 NAME
 # browser.interface - if this is 'textual', it overrides the second parameter  
 # and goes to screen reader PDA mode  Apache::lonmenu
 #  
 # environment.remote - if this is 'on', the routines controll the remote  =head1 SYNOPSIS
 # control, otherwise they render the main window controls; ignored it  
 # browser.interface is 'textual'  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
   
   =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 a two item array, 
   with the array elements containing XHTML for the left and right sides of 
   the menu that contains the following links: About, Message, Roles, Help, Logout 
   @primary_menu is filled within the BEGIN block of this module with 
   entries from mydesk.tab
   
   =item secondary_menu()
   
   Same as primary_menu() but operates on @secondary_menu.
   
   =item create_submenu()
   
   Creates XHTML for unordered list of sub-menu items which belong to a
   particular top-level menu item. Uses hover pseudo class in css to display
   dropdown list when mouse hovers over top-level item. Support for IE6
   (no hover psuedo class) via LC_hoverable class for <li> tag for top-
   level item, which employs jQuery to handle behavior on mouseover.
   
   Inputs: 4 - (a) link and (b) target for anchor href in top level item,
               (c) title for text wrapped by anchor tag in top level item.
               (d) reference to array of arrays of sub-menu items.
   
   =item innerregister()
   
   This gets called in order to register a URL 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 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 hidden_button_check()
   
   =item roles_selector()
   
   =item jump_to_role()
   
   =back
   
   =cut
   
 package Apache::lonmenu;  package Apache::lonmenu;
   
 use strict;  use strict;
 use Apache::lonnet();  use Apache::lonnet;
 use Apache::Constants qw(:common);  
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonenc();  use Apache::lonenc();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonmsg();
   use LONCAPA qw(:DEFAULT :match);
   use HTML::Entities();
   use Apache::lonwishlist();
   
 use vars qw(@desklines $readdesk);  use vars qw(@desklines %category_names %category_members %category_positions 
               $readdesk @primary_menu %primary_submenu @secondary_menu %secondary_submenu);
   
 my @inlineremote;  my @inlineremote;
 my $font;  
 my $tabbg;  sub prep_menuitem {
 my $pgbg;      my ($menuitem) = @_;
       return '' unless(ref($menuitem) eq 'ARRAY');
 # ================================================================ Little texts      my $link;
       if ($$menuitem[1]) { # graphical Link
 sub initlittle {          $link = "<img class=\"LC_noBorder\""
     return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',                . " src=\"" . &Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\"" 
        'nav' => 'Navigate Contents',                . " alt=\"" . &mt($$menuitem[2]) . "\" />";
        'main' => 'Main Menu',      } else {             # textual Link
        'launch' => 'Launch Remote Control');          $link = &mt($$menuitem[3]);
 }      }
       return '<li><a' 
 # ============================= This gets called at the top of the body section             # highlighting for new messages
              . ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '') 
 sub menubuttons {             . qq| href="$$menuitem[0]" target="_top">$link</a></li>|;
     my $forcereg=shift;  }
     my $target  =shift;  
     my $registration=shift;  # primary_menu() evaluates @primary_menu and returns a two item array,
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},  # with the array elements containing XHTML for the left and right sides of 
     ['inhibitmenu']);  # the menu that contains the following links:
     if ($ENV{'form.inhibitmenu'} eq 'yes') { return ''; }  # Personal, About, Message, Roles, Help, Logout
   # @primary_menu is filled within the BEGIN block of this module with 
     my $navmaps='';  # entries from mydesk.tab
     my $reloadlink='';  sub primary_menu {
     my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'}));      my %menu;
     my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($ENV{'request.symb'}));      # each element of @primary contains following array:
     if ($ENV{'browser.interface'} eq 'textual') {      # (link url, icon path, alt text, link text, condition, position)
 # Textual display only      my $public;
  my %lt=&initlittle();      if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
         $pgbg='#FFFFFF';          || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
         $tabbg='#FFFFFF';          $public = 1;
  $font='#000000';      }
         if ($ENV{'request.course.id'}) {      foreach my $menuitem (@primary_menu) {
     $navmaps=(<<ENDNAV);          # evaluate conditions 
 <a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a>          next if    ref($menuitem)       ne 'ARRAY';    #
 ENDNAV          next if    $$menuitem[4]        eq 'nonewmsg'  # show links depending on
             if (($ENV{'request.noversionuri'}=~/^\/adm\//) &&                  && &Apache::lonmsg::mynewmail();       # whether a new msg 
          ($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&          next if    $$menuitem[4]        eq 'newmsg'    # arrived or not
          ($ENV{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) {                  && !&Apache::lonmsg::mynewmail();      # 
                 my $escreload=&Apache::lonnet::escape('return:');          next if    $$menuitem[4]        !~ /public/    ##we've a public user,
                 $reloadlink=(<<ENDRELOAD);                  && $public;                            ##who should not see all
 <a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a>                                                         ##links
 ENDRELOAD          next if    $$menuitem[4]        eq 'onlypublic'# hide links which are 
             }                  && !$public;                           # only visible to public
         }                                                         # users
         my $utility=&utilityfunctions();          next if    $$menuitem[4]        eq 'roles'     ##show links depending on
  my $output=(<<ENDMAINMENU);                  && &Apache::loncommon::show_course();  ##term 'Courses' or 
 <script>          next if    $$menuitem[4]        eq 'courses'   ##'Roles' wanted
 // BEGIN LON-CAPA Internal                  && !&Apache::loncommon::show_course(); ##
 $utility          
 </script>          my $title = $menuitem->[3];
 <a href="/adm/menu" target="_top">$lt{'main'}</a>          my $position = $menuitem->[5];
 $reloadlink $navmaps<br />          if ($position eq '') {
 <script>              $position = 'right';
 // END LON-CAPA Internal          }
 </script>          if (defined($primary_submenu{$title})) {
 ENDMAINMENU              my ($link,$target);
         if ($registration) { $output.=&innerregister($forcereg,$target); }              if ($menuitem->[0] ne '') {
  return $output."<hr />";                  $link = $menuitem->[0];
     } elsif ($ENV{'environment.remote'} eq 'off') {                  $target = '_top';
 # Remote Control is switched off              } else {
 # figure out colors                  $link = '#';
  my %lt=&initlittle();              }
  my $function='student';              my @primsub;
         if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {              if (ref($primary_submenu{$title}) eq 'ARRAY') {
     $function='coordinator';                  foreach my $item (@{$primary_submenu{$title}}) {
         }                      next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'})); 
  if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {                      next if ((($item->[2] eq 'portfolio') || 
             $function='admin';                               ($item->[2] eq 'blog')) && 
         }                               (!&Apache::lonnet::usertools_access('','',$item->[2],
         if (($ENV{'request.role'}=~/^(au|ca)/) ||                                                             undef,'tools')));
             ($ENV{'request.noversionuri'}=~/^(\/priv|\~)/)) {                      push(@primsub,$item);
             $function='author';                  }
         }                  if (@primsub > 0) {
         my $domain=&Apache::loncommon::determinedomain();                      $menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1);
         $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);                  } elsif ($link) {
         $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);                      $menu{$position} .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';
         $font=&Apache::loncommon::designparm($function.'.font',$domain);                  }
         my $link=&Apache::loncommon::designparm($function.'.link',$domain);              }
         my $alink=&Apache::loncommon::designparm($function.'.alink',$domain);          } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
         my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);              if ($public) {
         my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain);                  my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
 # Do we have a NAV link?                  my $defdom = &Apache::lonnet::default_login_domain();
         if ($ENV{'request.course.id'}) {                  my $to = &Apache::loncommon::build_recipient_list(undef,
            $navmaps=(<<ENDNAV);                                                                    'helpdeskmail',
 <td bgcolor="$tabbg">                                                                    $defdom,$origmail);
 <a href="javascript:gonav('/adm/navmaps?postdata=$escurl&postsymb=$escsymb')"><font color="$font">$lt{'nav'}</font></a></td>                  if ($to ne '') {
 ENDNAV                      $menu{$position} .= &prep_menuitem($menuitem); 
     if (($ENV{'request.noversionuri'}=~/^\/adm\//) &&                  }
                 ($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&              } else {
          ($ENV{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) {                  $menu{$position} .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
                 my $escreload=&Apache::lonnet::escape('return:');              }
                 $reloadlink=(<<ENDRELOAD);          } else {
 <td bgcolor="$tabbg">              $menu{$position} .= prep_menuitem($menuitem);
 <a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a></td>          }
 ENDRELOAD      }
             }      my @output = ('','');
         }      if ($menu{'left'} ne '') {
         my $reg='';          $output[0] = "<ol class=\"LC_primary_menu LC_floatleft\">$menu{'left'}</ol>";
         if ($registration) {      }
            $reg=&innerregister($forcereg,$target);      if ($menu{'right'} ne '') {
         }          $output[1] = "<ol class=\"LC_primary_menu LC_floatright LC_right\">$menu{'right'}</ol>";
  my $utility=&utilityfunctions();  
  return (<<ENDINLINEMENU);  
 <script>  
 // BEGIN LON-CAPA Internal  
 $utility  
 </script>  
 <font face="Arial,Helvetica,sans-serif"><table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">  
 <tr>  
 <td bgcolor="$tabbg">  
 <a href="/adm/menu" target="_top"><font color="$font">$lt{'main'}</font></a>  
 </td>  
 $reloadlink  
 $navmaps  
 <td bgcolor="$tabbg">  
 <a href="/adm/remote?action=launch&url=$escurl" target="_top">  
 <font color="$font">$lt{'launch'}</font></a></td>  
 <td bgcolor="$tabbg">  
 <img align="right" src="/adm/lonIcons/minilogo.gif" />  
 <b>LON-CAPA</b></td>  
 </tr>  
 </table>  
 </font>  
 <script>  
 // END LON-CAPA Internal  
 </script>  
 $reg  
 ENDINLINEMENU  
     } else {  
  return '';  
     }      }
       return @output;
 }  }
   
 # ====================================== This gets called in the header section  #returns hashref {user=>'',dom=>''} containing:
   #   own name, domain if user is au
   #   name, domain of parent author if user is ca or aa
   #empty return if user is not an author or not on homeserver
   #
   #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 wrong server
       return;
   }
   
   sub secondary_menu {
       my ($httphost) = @_;
       my $menu;
   
       my $crstype = &Apache::loncommon::course_type();
       my $crs_sec = $env{'request.course.id'} . ($env{'request.course.sec'} 
                                                  ? "/$env{'request.course.sec'}"
                                                  : '');
       my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
       my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};
       if ($canviewroster eq 'disabled') {
           undef($canviewroster);
       }
       my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec);
       my $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 ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv);
       if ($env{'request.course.id'}) {
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           unless ($canedit) {
               unless (&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus")) {
                   if (($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'}) ||
                       ($env{'course.'.$env{'request.course.id'}.'.uploadedsyllabus'}) ||
                       ($env{'course.'.$env{'request.course.id'}.'.updatedsyllabus'}) ||
                       ($env{'request.course.syllabustime'})) {
                       $showsyllabus = 1;
                   }
               }
               if ($env{'request.course.feeds'}) {
                   $showfeeds = 1;
               }
           }
           unless ($canmgr) {
               my %slots = &Apache::lonnet::get_course_slots($cnum,$cdom);
               if (keys(%slots) > 0) {
                   $showresv = 1;
               }
           }
       }
   
       my ($canmodifycoauthor);
       if ($env{'request.role'} eq "au./$env{'user.domain'}/") {
           my $extent = "$env{'user.domain'}/$env{'user.name'}";
           if ((&Apache::lonnet::allowed('cca',$extent)) ||
               (&Apache::lonnet::allowed('caa',$extent))) {
               $canmodifycoauthor = 1;
           }
       }
   
       my %groups = &Apache::lonnet::get_active_groups(
                        $env{'user.domain'}, $env{'user.name'},
                        $env{'course.' . $env{'request.course.id'} . '.domain'},
                        $env{'course.' . $env{'request.course.id'} . '.num'});
   
       my ($roleswitcher_js,$roleswitcher_form);
   
       foreach my $menuitem (@secondary_menu) {
           # evaluate conditions 
           next if    ref($menuitem)  ne 'ARRAY';
           next if    $$menuitem[4]   ne 'always'
                   && ($$menuitem[4]  ne 'author' && $$menuitem[4] ne 'cca')
                   && !$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 'showresv'
                   && !$showresv;
           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 'showsyllabus'
                   && !$showsyllabus;
           next if    $$menuitem[4]   eq 'showfeeds'
                   && !$showfeeds;
           next if    $$menuitem[4]    eq 'author'
                   && !$author;
           next if    $$menuitem[4]    eq 'cca'
                   && !$canmodifycoauthor;
   
           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);
                           next if ($item->[2] eq 'mdc' && !$canedit);
                           push(@scndsub,$item); 
                       }
                   }
                   if (@scndsub > 0) {
                       $menu .= &create_submenu($link,$target,$title,\@scndsub,1);
                   } elsif ($link ne '#') {
                       $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
               ($roleswitcher_js,$roleswitcher_form,my $switcher) =
                   &roles_selector(
                           $env{'course.' . $env{'request.course.id'} . '.domain'},
                           $env{'course.' . $env{'request.course.id'} . '.num'},
                           $httphost
                   );
               $menu .= $switcher;
           } else {
               if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) {
                   my $url = $$menuitem[0];
                   $url =~ s{\[cdom\]/\[cnum\]}{$cdom/$cnum};
                   if (&Apache::lonnet::is_on_map($url)) {
                       unless ($$menuitem[0] =~ /\?register=1/) {
                           $$menuitem[0] .= '?register=1';
                       }
                   } else {
                       $$menuitem[0] =~ s{\?register=1}{};
                   }
               }
               $menu .= &prep_menuitem(\@$menuitem);
           }
       }
       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'}))) 
           {
               my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
               ($escurl = $env{'request.filename'}) =~ s{^\Q$londocroot\E}{};
               $escurl  = &escape($escurl);
           }    
           $menu =~ s/\[url\]/$escurl/g;
           $menu =~ s/\[symb\]/$escsymb/g;
       }
       $menu =~ s/\[uname\]/$$author{user}/g;
       $menu =~ s/\[udom\]/$$author{dom}/g;
       if ($env{'request.course.id'}) {  
           $menu =~ s/\[cnum\]/$cnum/g;
           $menu =~ s/\[cdom\]/$cdom/g;
       }
       if ($menu) {
           $menu = "<ul id=\"LC_secondary_menu\">$menu</ul>";
       }
       if ($roleswitcher_form) {
           $menu .= "\n$roleswitcher_js\n$roleswitcher_form";
       }
       return $menu;
   }
   
   sub create_submenu {
       my ($link,$target,$title,$submenu,$translate) = @_;
       return unless (ref($submenu) eq 'ARRAY');
       my $disptarget;
       if ($target ne '') {
           $disptarget = ' target="'.$target.'"';
       }
       my $name;
       if ($title eq 'Personal') {
           if ($env{'user.name'} && $env{'user.domain'}) {
               $name = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
           } else {
               $name = &mt($title);
           }
       } else {
           $name = &mt($title);
       }
       my $menu = '<li class="LC_hoverable">'.
                  '<a href="'.$link.'"'.$disptarget.'>'.
                  '<span class="LC_nobreak">'.$name.
                  '<span class="LC_fontsize_small" style="font-weight:normal;">'.
                  ' &#9660;</span></span></a>'.
                  '<ul>';
       my $count = 0;
       my $numsub = scalar(@{$submenu});
       foreach my $item (@{$submenu}) {
           $count ++;
           if (ref($item) eq 'ARRAY') {
               my $href = $item->[0];
               if ($href =~ /(aboutme|rss\.html)$/) {
                   next unless (($env{'user.name'} ne '') && ($env{'user.domain'} ne ''));
                   $href =~ s/\[domain\]/$env{'user.domain'}/g;
                   $href =~ s/\[user\]/$env{'user.name'}/g;
               }
               my $borderbot;
               if ($count == $numsub) {
                   $borderbot = 'border-bottom:1px solid black;';
               }
               $menu .= '<li style="margin:0;padding:0;'.
                        $borderbot.'"><a href="'.$href.'">';
               if ($translate) {
                   $menu .= &mt($item->[1]);
               } else {
                   $menu .= $item->[1];
               }
               $menu .= '</a></li>';
           }
       }
       $menu .= '</ul></li>';
       return $menu;
   }
   
 sub registerurl {  sub registerurl {
     my $forcereg=shift;      my ($forcereg) = @_;
     my $target = shift;  
     my $result = '';      my $result = '';
     if ($ENV{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; }      if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
     my $force_title='';      my $force_title='';
     if ($ENV{'request.state'} eq 'construct') {      if ($env{'request.state'} eq 'construct') {
  $force_title=&Apache::lonxml::display_title();          $force_title=&Apache::lonxml::display_title();
     }      }
     if ($target eq 'edit') {      if (($env{'environment.remote'} ne 'on') ||
         $result .="<script type=\"text/javascript\">\n".          ((($env{'request.publicaccess'}) ||
             "if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n".  
             &Apache::loncommon::browser_and_searcher_javascript().  
                 "\n</script>\n";  
     }  
     if (($ENV{'browser.interface'} eq 'textual') ||  
         ($ENV{'environment.remote'} eq 'off') ||  
         ((($ENV{'request.publicaccess'}) ||   
          (!&Apache::lonnet::is_on_map(           (!&Apache::lonnet::is_on_map(
    &Apache::lonnet::unescape($ENV{'request.noversionuri'})))) &&             &unescape($env{'request.noversionuri'})))) &&
         (!$forcereg))) {          (!$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  # Graphical display after login only
     if ($Apache::lonxml::registered && !$forcereg) { return ''; }      if ($env{'request.registered'} && !$forcereg) { return ''; }
     if ($target ne 'edit') {      $result.=&innerregister($forcereg);
  $result.=&innerregister($forcereg,$target);  
     }  
     return $result.$force_title;      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 {  sub innerregister {
     my $forcereg=shift;      my ($forcereg,$bread_crumbs,$group) = @_;
     my $target = shift;      my $const_space = ($env{'request.state'} eq 'construct');
     my $result = '';      my $is_const_dir = 0;
     my ($uname,$thisdisfn);  
     my $const_space = ($ENV{'request.state'} eq 'construct');  
   
     if ($ENV{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; }      if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
   
     $Apache::lonxml::registered=1;      $env{'request.registered'} = 1;
   
     my $textinter=($ENV{'browser.interface'} eq 'textual');      my $noremote = ($env{'environment.remote'} ne 'on');
     my $noremote=($ENV{'environment.remote'} eq 'off');  
       
     my $textual=($textinter || $noremote);  
   
     @inlineremote=();      undef(@inlineremote);
     undef @inlineremote;  
   
     my $reopen=&Apache::lonmenu::reopenmenu();      my $reopen=&Apache::lonmenu::reopenmenu();
   
     my $newmail='';      my $newmail='';
     if ($noremote) {  
  $newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">';      if (&Apache::lonmsg::newmail() && !$noremote) {
           # We have new mail and remote is up
           $newmail= 'swmenu.setstatus("you have","messages");';
     }      }
     if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {  
  my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'});      my ($mapurl,$resurl);
         $newmail.=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};  
         my $maptitle=&Apache::lonnet::gettitle($mapurl);      if ($env{'request.course.id'}) {
  my $restitle=&Apache::lonnet::gettitle($resurl);          if ($env{'request.symb'}) {
         if ($maptitle) {              ($mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
     $newmail.=', '.$maptitle;              my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};
         }  
         if ($restitle) {              my $maptitle = &Apache::lonnet::gettitle($mapurl);
     $newmail.=': '.$restitle;              my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());
         }  
         $newmail.='&nbsp;&nbsp;&nbsp;';  
     }  #SD
     if (&Apache::lonmsg::newmail()) {   #course_type only Course and Community?
        $newmail=($textual?  #
  '<b><a href="/adm/communicate" target="_top">You have new messages</a></b><br />':              my @crumbs;
                           'swmenu.setstatus("you have","messages");');              unless (($forcereg) && 
     }                      ($env{'request.noversionuri'} eq '/adm/navmaps') &&
     if ($noremote) {                      ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
  $newmail.='</td></tr></table></font>';                  @crumbs = ({text  => Apache::loncommon::course_type() 
     }                                      . ' Contents', 
     my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');                              href  => "Javascript:gopost('/adm/navmaps','')"});
     my $tablestart=($noremote?'<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%">':'').($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':'');              }
     my $tableend=($noremote?'</table></font>':'').($textinter?'<a name="content" />':'');              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);
           } else {
               $resurl = $env{'request.noversionuri'};
               my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});
               my $crstype = &Apache::loncommon::course_type();
               my $title = &mt('View Resource');
               if ($resurl =~ m{^\Q/uploaded$courseurl/supplemental/\E(default|\d+)/}) {
                   &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['folderpath','title']);
                   &Apache::lonhtmlcommon::clear_breadcrumbs();
                   if ($env{'form.title'}) {
                       $title = $env{'form.title'};
                   }
                   my $trail;
                   if ($env{'form.folderpath'}) {
                       &prepare_functions($resurl,$forcereg,$group,undef,undef,1);
                       ($trail) =
                           &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                   } else {
                       &Apache::lonhtmlcommon::add_breadcrumb(
                       {text  => "Supplemental $crstype Content",
                        href  => "javascript:gopost('/adm/supplemental','')"});
                       $title = &mt('View Resource');
                       ($trail) =
                           &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                   }
                   return $trail;
               } elsif ($resurl =~ m{^\Q/uploaded$courseurl/portfolio/syllabus/}) {
                   &Apache::lonhtmlcommon::clear_breadcrumbs();
                   &prepare_functions('/public'.$courseurl."/syllabus",
                                      $forcereg,$group,undef,undef,1);
                   $title = &mt('Syllabus File');
                   my ($trail) =
                       &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                   return $trail;
               }
               unless ($env{'request.state'} eq 'construct') {
                   &Apache::lonhtmlcommon::clear_breadcrumbs();
                   &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
               }
           }
       } elsif (! $const_space){
           #a situation when we're looking at a resource outside of context of a 
           #course or construction space (e.g. with cumulative rights)
           &Apache::lonhtmlcommon::clear_breadcrumbs();
           unless ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) {
               &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
           }
       }
       my $timesync   = ( $noremote ? '' : 'swmenu.syncclock(1000*'.time.');' );
 # =============================================================================  # =============================================================================
 # ============================ This is for URLs that actually can be registered  # ============================ This is for URLs that actually can be registered
     if (($ENV{'request.noversionuri'}!~/^\/(res\/)*adm\//) || ($forcereg)) {      if ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})
 # -- This applies to homework problems for users with grading privileges                         || ($forcereg)) {
  my $crs='/'.$ENV{'request.course.id'};  
  if ($ENV{'request.course.sec'}) {  
     $crs.='_'.$ENV{'request.course.sec'};  
  }  
  $crs=~s/\_/\//g;  
   
           my %swtext;
           if ($noremote) {
               %swtext = &get_inline_text();
           } else {
               %swtext = &get_rc_text();
           }
         my $hwkadd='';          my $hwkadd='';
         if ($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) {  
     if (&Apache::lonnet::allowed('vgr',$crs)) {          my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,
  $hwkadd.=&switch('','',7,1,'subm.gif','view sub-[_1]','missions[_1]',              $forceview,$editbutton);
                        "gocmd('/adm/grades','submission')",          if (($resurl =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) ||
        'View user submissions for this assessment resource');              ($env{'request.role'} !~/^(aa|ca|au)/)) {
             }              if (($env{'environment.remote'} eq 'on') && ($env{'request.symb'})) {
     if (&Apache::lonnet::allowed('mgr',$crs)) {                  &Apache::lonhtmlcommon::clear_breadcrumbs();
  $hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]',  
                        "gocmd('/adm/grades','gradingmenu')",  
                        'Modify user grades for this assessment resource');  
             }              }
  }              $editbutton = &prepare_functions($resurl,$forcereg,$group);
  if (&Apache::lonnet::allowed('opa',$crs)) {          }
     $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',          if ($editbutton eq '') {
      "gocmd('/adm/parmset','set')",              $editbutton = &clear(6,1);
      'Modify deadlines, etc, for this resource');          }
  }  
 # -- End Homework  #
         ###  # This applies in course context
         ### Determine whether or not to display the 'cstr' button for this  #
         ### resource          if ($env{'request.course.id'}) {
         ###              $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
         my $editbutton = '';              $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         if ($ENV{'user.author'}) {              $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
             if ($ENV{'request.role'}=~/^(ca|au)/) {              my @privs;
                 # Set defaults for authors              if ($env{'request.symb'} ne '') {
                 my ($top,$bottom) = ('con-','struct');                  if ($env{'request.filename'}=~/$LONCAPA::assess_re/) {
                 my $action = "go('/priv/".$ENV{'user.name'}."');";                      push(@privs,('mgr','vgr'));
                 my $cadom  = $ENV{'request.role.domain'};                  }
                 my $caname = $ENV{'user.name'};                  push(@privs,'opa');
                 my $desc = "Enter my resource construction space";              }
                 # Set defaults for co-authors              foreach my $priv (@privs) {
                 if ($ENV{'request.role'} =~ /^ca/) {                   $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
                     ($cadom,$caname)=($ENV{'request.role'}=~/(\w+)\/(\w+)$/);                  if (!$perms{$priv} && $env{'request.course.sec'} ne '') {
                     ($top,$bottom) = ('co con-','struct');                      $perms{$priv} =
                     $action = "go('/priv/".$caname."');";                          &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
                     $desc = "Enter construction space as co-author";                  }
                 }              }
                 # Check that we are on the correct machine  #
                 my $home = &Apache::lonnet::homeserver($caname,$cadom);  # Determine whether or not to show Grades and Submissions buttons
  my $allowed=0;  #
  my @ids=&Apache::lonnet::current_machine_ids();              if ($env{'request.symb'} ne '' &&
  foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }                  $env{'request.filename'}=~/$LONCAPA::assess_re/) {
  if (!$allowed) {                  if ($perms{'mgr'}) {
     $editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);                      $hwkadd.= &switch('','',7,2,'pgrd.png','Content Grades',
                 }                                        'grades[_4]',
             }                                        "gocmd('/adm/grades','gradingmenu')",
             ##                                        'Content Grades');
             ## Determine if user can edit url.                  } elsif ($perms{'vgr'}) {
             ##                      $hwkadd .= &switch('','',7,2,'subm.png','Content Submissions',
             my $cfile='';                                         'missions[_1]',
             my $cfuname='';                                         "gocmd('/adm/grades','submission')",
             my $cfudom='';                                         'Content Submissions');
             if ($ENV{'request.filename'}) {  
                 my $file=&Apache::lonnet::declutter($ENV{'request.filename'});  
                 $file=~s/^(\w+)\/(\w+)/\/priv\/$2/;  
                 # Check that the user has permission to edit this resource  
                 ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);  
                 if (defined($cfudom)) {  
     my $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;  
                     }  
                 }                  }
             }          
             # Finally, turn the button on or off  
             if ($cfile && !$const_space) {  
                 $editbutton=&switch  
                     ('','',6,1,'cstr.gif','edit[_1]','resource[_2]',  
                      "go('".$cfile."');","Edit this resource");  
             } elsif ($editbutton eq '') {  
                 $editbutton=&clear(6,1);  
             }              }
               if (($env{'request.symb'} ne '') && ($perms{'opa'})) {
                   $hwkadd .= &switch('','',7,3,'pparm.png','Content Settings',
                                      'parms[_2]',"gocmd('/adm/parmset','set')",
                                      'Content Settings');
               }
   # End grades/submissions check
   
   #
   # This applies to items inside a folder/page modifiable in the course.
   #
               if (($env{'request.symb'}=~/^uploaded/) && ($perms{'mdc'})) {
                   my $text = 'Edit Folder';
                   if (($mapurl =~ /\.page$/) ||
                       ($env{'request.symb'}=~
                            m{uploaded/$cdom/$cnum/default_\d+\.page$}))  {
                       $text = 'Edit Page';
                   }
                   $hwkadd .= &switch('','',7,4,'docs-22x22.png',$text,'parms[_2]',
                                      "gocmd('/adm/coursedocs','direct')",
                                      'Folder/Page Content');
               }
   # End modifiable folder/page container check
         }          }
         ###  # End course context
         ###  
 # Prepare the rest of the buttons  # Prepare the rest of the buttons
         my $menuitems;          my ($menuitems,$got_prt,$got_wishlist,$cstritems);
         if ($const_space) {          if ($const_space) {
     my ($uname,$thisdisfn) =  #
  ($ENV{'request.filename'}=~m|^/home/([^/]+)/public_html/(.*)|);  # We are in construction space
             my $currdir = '/priv/'.$uname.'/'.$thisdisfn;  #
             $currdir =~ s#[^/]+$##;  
             $menuitems=(<<ENDMENUITEMS);              my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
 s&6&1&list.gif&list[_1]&dir[_1]&go('$currdir')&List current directory      my ($udom,$uname,$thisdisfn) =
 s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$thisdisfn')&Retreive old version   ($env{'request.filename'}=~m{^\Q$londocroot/priv/\E([^/]+)/([^/]+)/(.*)$});
 s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$thisdisfn')&Publish this resource              my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;
 s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$thisdisfn')&Delete this resource              if ($currdir =~ m-/$-) {
 s&7&2&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout','/~$uname/$thisdisfn')&Prepare a printable document                  $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.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory
   s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version
   s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish 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.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document
 ENDMENUITEMS  ENDMENUITEMS
         } else {                  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);      $menuitems=(<<ENDMENUITEMS);
 c&3&1  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&6&3
 c&8&1  c&8&1
 c&8&2  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&2  ENDMENUITEMS
 s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&2              $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 my personal Stored Links repository&&1
 ENDMENUITEMS  ENDMENUITEMS
             unless ($ENV{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {                  $got_wishlist = 1;
         $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  my $currentURL = &Apache::loncommon::get_symb();
 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  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.png";
   }else{
    $menuitems.="anot.png";
   }
   $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|viewclasslist|portfolio)(\?|$)/) {
    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.png&$swtext{'catalog'}&info[_1]&catalog_info()&Show Metadata
   ENDREALRES
                   }
                   unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) ||
                           ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/})) { 
               $menuitems.=(<<ENDREALRES);
   s&8&1&eval.png&$swtext{'eval'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
   ENDREALRES
                   }
                   unless ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/}) {
                       $menuitems.=(<<ENDREALRES);
   s&8&2&fdbk.png&$swtext{'fdbk'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource
 ENDREALRES  ENDREALRES
                   }
     }      }
         }          }
    if ($env{'request.uri'} =~ /^\/res/) {
               unless ($got_prt) {
           $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='';          my $buttons='';
         foreach (split(/\n/,$menuitems)) {          foreach (split(/\n/,$menuitems)) {
     my ($command,@rest)=split(/\&/,$_);      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) {
 # Registered, textual output      my $addremote=0;
             my $form=&serverform();      foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
     my $inlinebuttons='';              if ($addremote) {
   
     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>                  my $countdown = &countdown_timer();
 <tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr>                  if (&hidden_button_check() eq 'yes') {
 <tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr>                      if ($countdown) {
 <tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr>                          &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
 <tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr>                      }
 ENDINLINE                  } else {
     }                      my @tools = @inlineremote[93,91,81,82,83];
     $result =(<<ENDREGTEXT);                      if ($countdown) {
 <script>                          unshift(@tools,$countdown);
 // BEGIN LON-CAPA Internal                      }
 </script>                      &Apache::lonhtmlcommon::add_breadcrumb_tool(
 $timesync                          'tools',@tools);
 $newmail  
 $tablestart                      #publish button in construction space
 $inlinebuttons                      if ($env{'request.state'} eq 'construct'){
 $tableend                          &Apache::lonhtmlcommon::add_breadcrumb_tool(
 $form                              'advtools', $inlineremote[63]);
 <script>                      } else {
 // END LON-CAPA Internal                          &Apache::lonhtmlcommon::add_breadcrumb_tool(
 </script>                              'tools', $inlineremote[63]);
                       }
                       &advtools_crumbs(@inlineremote);
                   }
               }
               return   &Apache::lonhtmlcommon::scripttag('', 'start')
                      . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
                      . &Apache::lonhtmlcommon::scripttag('', 'end');
   
 ENDREGTEXT  
 # Registered, graphical output  
         } else {          } else {
     my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0];              my $cstrcrumbs;
     $requri=&Apache::lonenc::check_encrypt(&Apache::lonnet::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(/\&/,$_);
     $result = (<<ENDREGTHIS);                      my $idx=10*$rest[0]+$rest[1];
                            &switch('','',@rest);
 <script language="JavaScript">                  }
                   &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  // BEGIN LON-CAPA Internal
 var swmenu=null;  var swmenu=null;
   
     function LONCAPAreg() {      function LONCAPAreg() {
   swmenu=$reopen;            swmenu=$reopen;
           swmenu.clearTimeout(swmenu.menucltim);            swmenu.clearTimeout(swmenu.menucltim);
           $timesync            $timesync
           $newmail            $newmail
           $buttons            $buttons
   swmenu.currentURL="$requri";            swmenu.currentURL="$requri";
           swmenu.reloadURL=swmenu.currentURL+window.location.search;            swmenu.reloadURL=swmenu.currentURL+window.location.search;
           swmenu.currentSymb="$cursymb";            swmenu.currentSymb="$cursymb";
           swmenu.reloadSymb="$cursymb";            swmenu.reloadSymb="$cursymb";
           swmenu.currentStale=0;            swmenu.currentStale=0;
   $navstatus            $navstatus
           $hwkadd            $hwkadd
           $editbutton            $editbutton
     }      }
   
     function LONCAPAstale() {      function LONCAPAstale() {
   swmenu=$reopen            swmenu=$reopen
           swmenu.currentStale=1;            swmenu.currentStale=1;
           if (swmenu.reloadURL!='' && swmenu.reloadURL!= null) {             if (swmenu.reloadURL!='' && swmenu.reloadURL!= null) {
              swmenu.switchbutton               swmenu.switchbutton
              (3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence');               (3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence');
   }            }
           swmenu.clearbut(7,1);  
           swmenu.clearbut(7,2);            swmenu.clearbut(7,2);
           swmenu.clearbut(7,3);            swmenu.clearbut(7,3);
           swmenu.menucltim=swmenu.setTimeout(            swmenu.menucltim=swmenu.setTimeout(
  'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+   'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+
  'clearbut(9,1);clearbut(9,3);clearbut(6,3);clearbut(6,1)',   'clearbut(9,1);clearbut(9,3);clearbut(6,3);$clearcstr',
   2000);                            2000);
       }        }
   
 // END LON-CAPA Internal  // END LON-CAPA Internal
   // ]]>
 </script>  </script>
   
   $cstrcrumbs
 ENDREGTHIS  ENDREGTHIS
         }          }
 # =============================================================================  
     } else {      } else {
 # ========================================== This can or will not be registered         unless ($noremote) {
         if ($textual) {  
 # Not registered, textual  
     $result= (<<ENDDONOTREGTEXT);  
 ENDDONOTREGTEXT  
         } else {  
 # Not registered, graphical  # Not registered, graphical
            $result = (<<ENDDONOTREGTHIS);             return (<<ENDDONOTREGTHIS);
   
 <script language="JavaScript">  <script type="text/javascript">
   // <![CDATA[
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 var swmenu=null;  var swmenu=null;
   
     function LONCAPAreg() {      function LONCAPAreg() {
   swmenu=$reopen            swmenu=$reopen
           $timesync            $timesync
           swmenu.currentStale=1;            swmenu.currentStale=1;
           swmenu.clearbut(2,1);            swmenu.clearbut(2,1);
Line 508  var swmenu=null; Line 1062  var swmenu=null;
           swmenu.clearbut(8,1);            swmenu.clearbut(8,1);
           swmenu.clearbut(8,2);            swmenu.clearbut(8,2);
           swmenu.clearbut(8,3);            swmenu.clearbut(8,3);
             swmenu.clearbut(9,1);
           if (swmenu.currentURL) {            if (swmenu.currentURL) {
              swmenu.switchbutton               swmenu.switchbutton
               (3,1,'reload.gif','return','location','go(currentURL)');                (3,1,'reload.gif','return','location','go(currentURL)');
    } else {            } else {
       swmenu.clearbut(3,1);                swmenu.clearbut(3,1);
           }            }
     }      }
   
Line 520  var swmenu=null; Line 1075  var swmenu=null;
     }      }
   
 // END LON-CAPA Internal  // END LON-CAPA Internal
   // ]]>
 </script>  </script>
 ENDDONOTREGTHIS  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 loadevents() {  sub loadevents() {
     if ($ENV{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; }      if ($env{'request.state'} eq 'construct' ||
           $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
     return 'LONCAPAreg();';      return 'LONCAPAreg();';
 }  }
   
 sub unloadevents() {  sub unloadevents() {
     if ($ENV{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; }      if ($env{'request.state'} eq 'construct' ||
           $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
     return 'LONCAPAstale();';      return 'LONCAPAstale();';
 }  }
   
 # ============================================================= Start up remote  
   
 sub startupremote {  sub startupremote {
     my ($lowerurl)=@_;      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!  # The Remote actually gets launched!
 #  #
     my $configmenu=&rawconfig();      my $configmenu=&rawconfig();
     my $esclowerurl=&Apache::lonnet::escape($lowerurl);      my $esclowerurl=&escape($lowerurl);
     my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');      my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');
     return(<<ENDREMOTESTARTUP);      return(<<ENDREMOTESTARTUP);
 <script>  <script type="text/javascript">
   // <![CDATA[
 var timestart;  var timestart;
 function wheelswitch() {  function wheelswitch() {
     if (typeof(document.wheel) != 'undefined') {      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=='|') {      if (window.status=='|') {
       window.status='/';         window.status='/';
    } else {     } else {
       if (window.status=='/') {        if (window.status=='/') {
          window.status='-';           window.status='-';
       } else {        } else {
          if (window.status=='-') {            if (window.status=='-') {
             window.status='\\\\';               window.status='\\\\';
          } else {           } else {
             if (window.status=='\\\\') { window.status='|'; }              if (window.status=='\\\\') { window.status='|'; }
          }           }
       }        }
    }      }
 }  }
   
 // ---------------------------------------------------------- The wait function  // ---------------------------------------------------------- The wait function
Line 586  function wait() { Line 1177  function wait() {
       if (tim==0) {        if (tim==0) {
          clearTimeout(canceltim);           clearTimeout(canceltim);
          $configmenu           $configmenu
          window.location='$lowerurl';             window.location='$lowerurl';
       } else {        } else {
   window.location='/adm/remote?action=collapse&url=$esclowerurl';            window.location='/adm/remote?action=collapse&url=$esclowerurl';
       }        }
    } else {     } else {
       wheelswitch();        wheelswitch();
Line 604  function main() { Line 1195  function main() {
    wait();     wait();
 }  }
   
   // ]]>
 </script>  </script>
 ENDREMOTESTARTUP  ENDREMOTESTARTUP
 }  }
   
 sub setflags() {  sub setflags() {
     return(<<ENDSETFLAGS);      return(<<ENDSETFLAGS);
 <script>  <script type="text/javascript">
   // <![CDATA[
     menuloaded=0;      menuloaded=0;
     tim=0;      tim=0;
   // ]]>
 </script>  </script>
 ENDSETFLAGS  ENDSETFLAGS
 }  }
   
 sub maincall() {  sub maincall() {
     if (($ENV{'browser.interface'} eq 'textual') ||      unless ($env{'environment.remote'} eq 'on') { return ''; }
         ($ENV{'environment.remote'} eq 'off')) { return ''; }  
     return(<<ENDMAINCALL);      return(<<ENDMAINCALL);
 <script>  <script type="text/javascript">
   // <![CDATA[
     main();      main();
   // ]]>
 </script>  </script>
 ENDMAINCALL  ENDMAINCALL
 }  }
Line 630  ENDMAINCALL Line 1225  ENDMAINCALL
 sub load_remote_msg {  sub load_remote_msg {
     my ($lowerurl)=@_;      my ($lowerurl)=@_;
   
     if (($ENV{'browser.interface'} eq 'textual') ||      unless ($env{'environment.remote'} eq 'on') { return ''; }
         ($ENV{'environment.remote'} eq 'off')) { return ''; }  
   
     my $esclowerurl=&Apache::lonnet::escape($lowerurl);      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?url=$esclowerurl");                  ,'<a href="/adm/remote?action=collapse&amp;url='.$esclowerurl.'">'
                   ,'</a>');
     return(<<ENDREMOTEFORM);      return(<<ENDREMOTEFORM);
 <p>  <p>
 <form name="wheel">  <form name="wheel">
Line 645  sub load_remote_msg { Line 1240  sub load_remote_msg {
 <p>$link</p>  <p>$link</p>
 ENDREMOTEFORM  ENDREMOTEFORM
 }  }
 # ================================================================= Reopen menu  
   sub get_menu_name {
       my $hostid = $Apache::lonnet::perlvar{'lonHostID'};
       $hostid =~ s/\W//g;
       return 'LCmenu'.$hostid;
   }
   
   
 sub reopenmenu {  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 $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};  
    my $nothing = &Apache::lonhtmlcommon::javascript_nothing();     my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
    return('window.open('.$nothing.',"'.$menuname.'","",false);');     return('window.open('.$nothing.',"'.$menuname.'","",false);');
 }   }
   
 # =============================================================== Open the menu  
   
 sub open {  sub open {
     my $returnval='';      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='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  # 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';  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=350,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");  "height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");
 self.name='loncapaclient';  self.name='loncapaclient';
   // ]]>
 ENDOPEN  ENDOPEN
     return '<script>'.$returnval.'</script>';      return '<script type="text/javascript">'.$returnval.'</script>';
   }
   
   sub get_editbutton {
       my ($cfile,$home,$switchserver,$forceedit,$forceview,$forcereg) = @_;
       my $jscall;
       if (($forceview) && ($env{'form.todocs'})) {
           my ($folderpath,$command);
           if ($env{'request.symb'}) {
               $folderpath = &Apache::loncommon::symb_to_docspath($env{'request.symb'});
           } elsif ($env{'form.folderpath'} =~ /^supplemental/) {
               $folderpath = $env{'form.folderpath'};
               $command = '&forcesupplement=1';
           }
           $folderpath = &escape(&HTML::Entities::encode(&escape($folderpath),'<>&"'));
           $jscall = "go('/adm/coursedocs?folderpath=$folderpath$command')";
       } else {
           $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,
                                                   $forceedit,$forcereg,$env{'request.symb'},
                                                   &escape($env{'form.folderpath'}),
                                                   &escape($env{'form.title'}),$env{'form.idx'},
                                                   &escape($env{'form.suppurl'},$env{'form.todocs'}));
       }
       if ($jscall) {
           my $icon = 'pcstr.png';
           my $label = 'Edit';
           if ($forceview) {
               $icon = 'tolastloc.png';
               $label = 'Exit Editing';
           }
           my $infunc = 1;
           my $clearbutton;
           if ($env{'environment.remote'} eq 'on') {
               if ($cfile =~ m{^/priv/}) {
                   undef($infunc);
                   $label = 'edit';
               } else {
                   $clearbutton = 1;
               }
           }
           my $editor = &switch('','',6,1,$icon,$label,'resource[_2]',
                                $jscall,"Edit this resource",'','',$infunc);
           if ($infunc) {
               return 1;
           } elsif ($clearbutton) {
               return &clear(6,1);
           } else {
               return $editor;
           }
       }
       return;
 }  }
   
   sub prepare_functions {
       my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs,$forbodytag) = @_;
       unless ($env{'request.registered'}) {
           undef(@inlineremote);
       }
       my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,
           $forceview);
   
       if ($env{'request.course.id'}) {
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});
       }
   
       my $editbutton = '';
   #
   # Determine whether or not to display 'Edit' icon/button
   #
       if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
           my $file=&Apache::lonnet::declutter($env{'request.filename'});
           ($cfile,$home,$switchserver,$forceedit,$forceview) =
               &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
                   &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
           if (($cfile) && ($home ne '') && ($home ne 'no_host')) {
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
           }
       } elsif ((!$env{'request.course.id'}) &&
                ($env{'user.author'}) && ($env{'request.filename'}) &&
                ($env{'request.role'} !~/^(aa|ca|au)/)) {
   #
   # Currently do not have the role of author or co-author.
   # Do we have authoring privileges for the resource?
   #
           my $file=&Apache::lonnet::declutter($env{'request.filename'});
           ($cfile,$home,$switchserver,$forceedit,$forceview) =
               &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
                   &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
           if (($cfile) && ($home ne '') && ($home ne 'no_host')) {
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
           }
       } elsif ($env{'request.course.id'}) {
   #
   # This applies in course context
   #
           if (($perms{'mdc'}) &&
               (($resurl eq "/public/$cdom/$cnum/syllabus") ||
               ($resurl =~ m{^/uploaded/$cdom/$cnum/portfolio/syllabus/}))) {
               $cfile = $resurl;
               $home = &Apache::lonnet::homeserver($cnum,$cdom);
               if ($env{'form.forceedit'}) {
                   $forceview = 1;
               } else {
                   $forceedit = 1;
               }
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
           } elsif (($resurl eq '/adm/extresedit') &&
                    (($env{'form.symb'}) || ($env{'form.folderpath'}))) {
               ($cfile,$home,$switchserver,$forceedit,$forceview) =
               &Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl,
                                                  $env{'form.symb'});
               if ($cfile ne '') {
                   $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                                 $forceedit,$forceview,$forcereg,
                                                 $env{'form.title'},$env{'form.suppurl'});
               }
           } elsif (($resurl =~ m{^/?adm/viewclasslist$}) &&
                    (&Apache::lonnet::allowed('opa',$env{'request.course.id'}))) {
               ($cfile,$home,$switchserver,$forceedit,$forceview) =
               &Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl,
                                                  $env{'form.symb'});
               $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                             $forceedit,$forceview,$forcereg);
           } elsif (($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) &&
                    ($resurl ne '/cgi-bin/printout.pl')) {
               if ($env{'request.filename'}) {
                   my $file=&Apache::lonnet::declutter($env{'request.filename'});
                   ($cfile,$home,$switchserver,$forceedit,$forceview) =
                       &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,
                           &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);
                   if ($cfile ne '') {
                       $editbutton = &get_editbutton($cfile,$home,$switchserver,
                                                     $forceedit,$forceview,$forcereg);
                   }
               }
           }
       }
   # End determination of 'Edit' icon/button display
   
       if ($env{'request.course.id'}) {
   # This applies to about me page for users in a course
           if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {
               my ($sdom,$sname) = ($1,$2);
               unless (&Apache::lonnet::is_course($sdom,$sname)) {
                   &switch('','',6,4,'mail-message-new-22x22.png','Message to user',
                           '',
                           "go('/adm/email?compose=individual&amp;recname=$sname&amp;recdom=$sdom')",
                               'Send message to specific user','','',1);
               }
               my $hideprivileged = 1;
               if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,
                                              $hideprivileged)) {
                   foreach my $priv ('vsa','vgr','srm') {
                       $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});
                       if (!$perms{$priv} && $env{'request.course.sec'} ne '') {
                           $perms{$priv} =
                               &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");
                       }
                   }
                   if ($perms{'vsa'}) {
                       &switch('','',6,5,'trck-22x22.png','Activity',
                               '',
                               "go('/adm/trackstudent?selected_student=$sname:$sdom')",
                               'View recent activity by this person','','',1);
                   }
                   if ($perms{'vgr'}) {
                       &switch('','',6,6,'rsrv-22x22.png','Reservations',
                               '',
                               "go('/adm/slotrequest?command=showresv&amp;origin=aboutme&amp;uname=$sname&amp;udom=$sdom')",
                               'Slot reservation history','','',1);
                   }
                   if ($perms{'srm'}) {
                       &switch('','',6,7,'contact-new-22x22.png','Records',
                               '',
                               "go('/adm/email?recordftf=retrieve&amp;recname=$sname&amp;recdom=$sdom')",
                               'Add records','','',1);
                   }
               }
           }
           if (($env{'form.folderpath'} =~ /^supplemental/) &&
               (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
               (($resurl =~ m{^/adm/wrapper/ext/}) ||
                ($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) ||
                ($resurl eq '/adm/supplemental') ||
                ($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) ||
                ($resurl =~ m{^/adm/$match_domain/$match_username/aboutme$}))) {
               my @folders=split('&',$env{'form.folderpath'});
               if ((@folders > 2) || ($resurl ne '/adm/supplemental')) {
                   my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));
                   &switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',
                           "location.href='/adm/coursedocs?command=direct&amp;forcesupplement=1&amp;supppath=$esc_path'",
                           'Folder/Page Content','','',1);
               }
           }
       }
   
   # End checking for items for about me page for users in a course
       if ($docscrumbs) {
           &Apache::lonhtmlcommon::clear_breadcrumb_tools();
           &advtools_crumbs(@inlineremote);
           return $editbutton;
       } elsif (($env{'request.registered'}) && (!ref($forbodytag))) {
           return $editbutton;
       } else {
           if (ref($bread_crumbs) eq 'ARRAY') {
               if (@inlineremote > 0) {
                   if (ref($advtools) eq 'ARRAY') {
                       @{$advtools} = @inlineremote;
                   }
               }
               return;
           } elsif (@inlineremote > 0) {
               &Apache::lonhtmlcommon::clear_breadcrumb_tools();
               &advtools_crumbs(@inlineremote);
               if (ref($forbodytag)) {
                   $$forbodytag =
                       &Apache::lonhtmlcommon::scripttag('', 'start')
                      .&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
                      .&Apache::lonhtmlcommon::scripttag('', 'end');
               }
               return;
           }
       }
   }
   
   sub advtools_crumbs {
       my @funcs = @_;
       if ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) {
           &Apache::lonhtmlcommon::add_breadcrumb_tool(
               'advtools', @funcs[61,64,65,66,67,74]);
       } elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {
           &Apache::lonhtmlcommon::add_breadcrumb_tool(
               'advtools', @funcs[61,71,72,73,74,92]);
       } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {
           &Apache::lonhtmlcommon::add_breadcrumb_tool(
               'advtools', $funcs[61]);
       }
   }
   
 # ================================================================== Raw Config  # ================================================================== Raw Config
   
 sub clear {  sub clear {
     my ($row,$col)=@_;      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););         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  # ============================================ Switch a button or create a link
Line 701  sub clear { Line 1547  sub clear {
 # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".  # The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".
   
 sub switch {  sub switch {
     my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$nobreak)=@_;      my ($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat,$nobreak,$infunc)=@_;
     $act=~s/\$uname/$uname/g;      $act=~s/\$uname/$uname/g;
     $act=~s/\$udom/$udom/g;      $act=~s/\$udom/$udom/g;
     $top=&mt($top);      $top=&mt($top);
     $bot=&mt($bot);      $bot=&mt($bot);
     $desc=&mt($desc);      $desc=&mt($desc);
     $img=&mt($img);      my $idx=10*$row+$col;
     unless (($ENV{'browser.interface'} eq 'textual')  ||      $category_members{$cat}.=':'.$idx;
             ($ENV{'environment.remote'} eq 'off')) {  
       if (($env{'environment.remote'} eq 'on') && (!$infunc)) {
           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  # Remote
        return "\n".          $img=~s/\.png$/\.gif/;
           return "\n".
  qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););   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[10*$row+$col]=  
        '<a href="javascript:'.$act.';">'.$text.'</a>';      my $pic=
        } else {     '<img alt="'.$text.'" src="'.
    $inlineremote[10*$row+$col]="\n<br />".     &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
        $desc.' <a href="javascript:'.$act.';">'.$text.'</a>';     '" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';
        }      if ($env{'browser.interface'} eq 'faketextual') {
    } else {  # Main Menu
 # Inline Remote  
        if ($nobreak==2) { return ''; }  
        my $text=$top.' '.$bot;  
        $text=~s/\s*\-\s*//gs;  
   
        my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};  
        if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }  
        my $pic=  
    '<img border="0" alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}.  
    ':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'.  
    ($nobreak==3?'right':'left').'" />';  
        if (($ENV{'browser.interface'} eq 'textual') || ($ENV{'browser.interface'} eq 'faketextual')) {  
 # Accessibility  
    if ($nobreak==3) {     if ($nobreak==3) {
        $inlineremote[10*$row+$col]="\n".         $inlineremote[$idx]="\n".
    '<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.     '<td class="LC_menubuttons_text" align="right">'.$text.
    '</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.     '</td><td align="left">'.
    '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';     '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
    } elsif ($nobreak) {     } elsif ($nobreak) {
        $inlineremote[10*$row+$col]="\n<tr>".         $inlineremote[$idx]="\n<tr>".
    '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.     '<td align="left">'.
    '<a href="javascript:'.$act.';">'.$pic.     '<a href="javascript:'.$act.';">'.$pic.'</a></td>
    '</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></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 {     } else {
        $inlineremote[10*$row+$col]="\n<tr>".         $inlineremote[$idx]="\n<tr>".
    '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.     '<td align="left">'.
    '<a href="javascript:'.$act.';">'.$pic.     '<a href="javascript:'.$act.';">'.$pic.
    '</a></td><td colspan="3"><font color="'.$font.'">'.$desc.     '</a></td><td class="LC_menubuttons_text" colspan="3">'.
    '</font></td></tr>';            '<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>';
    }     }
        } else {      } else {
 # Inline Menu  # Inline Menu
    $inlineremote[10*$row+$col]=          my @tools = (93,91,81,82,83);
    '<a href="javascript:'.$act.';">'.$pic.          unless ($env{'request.state'} eq 'construct') {
    '</a><font color="'.$font.'" size="2">'.$desc.              push(@tools,63);
    '</font>';          }
        }          if (($env{'environment.icons'} eq 'iconsonly') &&
    }              (grep(/^$idx$/,@tools))) {
               $inlineremote[$idx] =
           '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>';
           } else {
               $inlineremote[$idx] =
          '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
          '<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';
           }
       }
     return '';      return '';
 }  }
   
 sub secondlevel {  sub secondlevel {
     my $output='';      my $output='';
     my       my 
     ($uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc)=@_;      ($uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat)=@_;
     if ($prt eq 'any') {      if ($prt eq 'any') {
    $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);     $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
     } elsif ($prt=~/^r(\w+)/) {      } elsif ($prt=~/^r(\w+)/) {
         if ($rol eq $1) {          if ($rol eq $1) {
            $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);             $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
         }          }
     }      }
     return $output;      return $output;
 }  }
   
 sub openmenu {  sub openmenu {
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};      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();      my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
     return "window.open(".$nothing.",'".$menuname."');";      return "window.open(".$nothing.",'".$menuname."');";
 }  }
   
 sub inlinemenu {  sub inlinemenu {
     @inlineremote=();      undef(@inlineremote);
     undef @inlineremote;      undef(%category_members);
   # calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control
     &rawconfig(1);      &rawconfig(1);
     return join('',map { (defined($_)?$_:'') } @inlineremote);      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_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]) {
                        $active{$menu_item}=1;
                     }
                  }  
                  foreach my $item (sort(keys(%active))) {
                     $output.=$inlineremote[$item];
                  }
                  $output.='</table>';
                  $output.='</div>';
               }
            }
            $output.="</td>";
       }
       $output.="</tr></table>";
       return $output;
 }  }
   
 sub rawconfig {  sub rawconfig {
   #
   # This evaluates mydesk.tab
   # Need to add more positions and more privileges to deal with all
   # menu items.
   #
     my $textualoverride=shift;      my $textualoverride=shift;
     my $output='';      my $output='';
     unless (($ENV{'browser.interface'} eq 'textual') ||      if ($env{'environment.remote'} eq 'on') {
             ($ENV{'environment.remote'} eq 'off')) {  
        $output.=         $output.=
  "window.status='Opening Remote Control';var swmenu=".&openmenu().   "window.status='Opening Remote Control';var swmenu=".&openmenu().
 "\nwindow.status='Configuring Remote Control ';";  "\nwindow.status='Configuring Remote Control ';";
     } else {      } else {
        unless ($textualoverride) { return ''; }          unless ($textualoverride) { return ''; }
     }      }
     my $uname=$ENV{'user.name'};      my $uname=$env{'user.name'};
     my $udom=$ENV{'user.domain'};      my $udom=$env{'user.domain'};
     my $adv=$ENV{'user.adv'};      my $adv=$env{'user.adv'};
     my $author=$ENV{'user.author'};      my $show_course=&Apache::loncommon::show_course();
       my $author=$env{'user.author'};
     my $crs='';      my $crs='';
     if ($ENV{'request.course.id'}) {      my $crstype='';
        $crs='/'.$ENV{'request.course.id'};      if ($env{'request.course.id'}) {
        if ($ENV{'request.course.sec'}) {         $crs='/'.$env{'request.course.id'};
    $crs.='_'.$ENV{'request.course.sec'};         if ($env{'request.course.sec'}) {
      $crs.='_'.$env{'request.course.sec'};
        }         }
        $crs=~s/\_/\//g;         $crs=~s/\_/\//g;
          $crstype = &Apache::loncommon::course_type();
     }      }
     my $pub=($ENV{'request.state'} eq 'published');      my $pub=($env{'request.state'} eq 'published');
     my $con=($ENV{'request.state'} eq 'construct');      my $con=($env{'request.state'} eq 'construct');
     my $rol=$ENV{'request.role'};      my $rol=$env{'request.role'};
     my $requested_domain = $ENV{'request.role.domain'};      my $requested_domain = $env{'request.role.domain'};
     foreach (@desklines) {      foreach my $line (@desklines) {
         my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc)=split(/\:/,$_);          my ($row,$col,$pro,$prt,$img,$top,$bot,$act,$desc,$cat)=split(/\:/,$line);
         $prt=~s/\$uname/$uname/g;          $prt=~s/\$uname/$uname/g;
         $prt=~s/\$udom/$udom/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;          $prt=~s/\$requested_domain/$requested_domain/g;
           if ($category_names{$cat}!~/\w/) { $cat='oth'; }
         if ($pro eq 'clear') {          if ($pro eq 'clear') {
     $output.=&clear($row,$col);      $output.=&clear($row,$col);
         } elsif ($pro eq 'any') {          } elsif ($pro eq 'any') {
                $output.=&secondlevel(                 $output.=&secondlevel(
   $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc);    $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
  } elsif ($pro eq 'smp') {   } elsif ($pro eq 'smp') {
             unless ($adv) {              unless ($adv) {
                $output.=&secondlevel(                 $output.=&secondlevel(
           $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc);            $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
             }              }
         } elsif ($pro eq 'adv') {          } elsif ($pro eq 'adv') {
             if ($adv) {              if ($adv) {
                $output.=&secondlevel(                 $output.=&secondlevel(
   $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc);    $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)) {          } elsif (($pro=~/^p(\w+)/) && ($prt)) {
     if (&Apache::lonnet::allowed($1,$prt)) {              my $priv = $1;
                $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);              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);                 $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_(.*)$/) {          } elsif ($pro =~ /^courseenv_(.*)$/) {
             my $key = $1;              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);                  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_(.*)$/) {          } elsif ($pro =~ /^course_(.*)$/) {
             # Check for permissions inside of a 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'}.                  (&Apache::lonnet::allowed($1,$env{'request.course.id'}.
             ($ENV{'request.course.sec'}?'/'.$ENV{'request.course.sec'}:''))              ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
                  )) {                   )) {
                 $output.=switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc);                  $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') {          } elsif ($pro eq 'author') {
             if ($author) {              if ($author) {
                 if ((($prt eq 'rca') && ($ENV{'request.role'}=~/^ca/)) ||                  if ((($prt eq 'rca') && ($env{'request.role'}=~/^ca/)) ||
                     (($prt eq 'rau') && ($ENV{'request.role'}=~/^au/))) {                      (($prt eq 'raa') && ($env{'request.role'}=~/^aa/)) || 
                       (($prt eq 'rau') && ($env{'request.role'}=~/^au/))) {
                     # Check that we are on the correct machine                      # Check that we are on the correct machine
                     my $cadom=$requested_domain;                      my $cadom=$requested_domain;
                     my $caname=$ENV{'user.name'};                      my $caname=$env{'user.name'};
                     if ($prt eq 'rca') {                      if (($prt eq 'rca') || ($prt eq 'raa')) {
        ($cadom,$caname)=         ($cadom,$caname)=
                                ($ENV{'request.role'}=~/(\w+)\/(\w+)$/);                                 ($env{'request.role'}=~/($match_domain)\/($match_username)$/);
                     }                                             }                       
                     $act =~ s/\$caname/$caname/g;                      $act =~ s/\$caname/$caname/g;
                       $act =~ s/\$cadom/$cadom/g;
                     my $home = &Apache::lonnet::homeserver($caname,$cadom);                      my $home = &Apache::lonnet::homeserver($caname,$cadom);
     my $allowed=0;      my $allowed=0;
     my @ids=&Apache::lonnet::current_machine_ids();      my @ids=&Apache::lonnet::current_machine_ids();
     foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }      foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
     if ($allowed) {      if ($allowed) {
                         $output.=switch($caname,$cadom,                          $output.=&switch($caname,$cadom,
                                         $row,$col,$img,$top,$bot,$act,$desc);                                          $row,$col,$img,$top,$bot,$act,$desc,$cat);
                     }                      }
                 }                  }
             }              }
           } 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') ||      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;      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  # ======================================================================= Close
   
 sub 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();
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};  
     return(<<ENDCLOSE);      return(<<ENDCLOSE);
 <script>  <script type="text/javascript">
   // <![CDATA[
 window.status='Accessing Remote Control';  window.status='Accessing Remote Control';
 menu=window.open("/adm/rat/empty.html","$menuname",  menu=window.open("/adm/rat/empty.html","$menuname",
                  "height=350,width=150,scrollbars=no,menubar=no");                   "height=350,width=150,scrollbars=no,menubar=no");
Line 917  menu.autologout=0; Line 1913  menu.autologout=0;
 window.status='Closing Remote Control';  window.status='Closing Remote Control';
 menu.close();  menu.close();
 window.status='Done.';  window.status='Done.';
   // ]]>
 </script>  </script>
 ENDCLOSE  ENDCLOSE
 }  }
   
 # ====================================================================== Footer  sub dc_popup_js {
       my %lt = &Apache::lonlocal::texthash(
                                             more => '(More ...)',
                                             less => '(Less ...)',
                                           );
       return <<"END";
   
 sub footer {  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";  
   
   }
   
 function gonav(url) {  sub countdown_toggle_js {
    if (w_loncapanav_flag != 1) {      return <<"END";
       gopost(url,'');  
    }  else {  function toggleCountdown() {
       navwindow=window.open(url,      var countdownid = document.getElementById('duedatecountdown');
                   "loncapanav","height=600,width=400,scrollbars=1");       var currstyle = countdownid.style.display;
    }      if (currstyle == 'inline') {
           countdownid.style.display = 'none';
           document.getElementById('ddcountcollapse').innerHTML='';
           document.getElementById('ddcountexpand').innerHTML='&#9668;&nbsp;';
       } else {
           countdownid.style.display = 'inline';
           document.getElementById('ddcountcollapse').innerHTML='&#9658;&nbsp;';
           document.getElementById('ddcountexpand').innerHTML='';
       }
       return;
 }  }
 NAVCONTROL  
   END
 }  }
   
 sub utilityfunctions {  sub utilityfunctions {
     unless (($ENV{'browser.interface'} eq 'textual')  ||      my ($httphost) = @_;
         ($ENV{'environment.remote'} eq 'off')) { return ''; }      my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
     my $currenturl=&Apache::lonenc::check_encrypt($ENV{'request.noversionuri'});      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 $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
     my $nav_control=&nav_control_js();  
 return (<<ENDUTILITY)      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,
    'js_ready'  => 1,
    'bgcolor'   => '#BBBBBB',
    'add_entries' => {
       'onload' => 'javascript:document.goannotate.submit();'}});
   
       my $end_page_annotate = 
           &Apache::loncommon::end_page({'js_ready' => 1});
   
       my $jumptores = &Apache::lonhtmlcommon::javascript_jumpto_resource();
   
     var currentURL="$currenturl";      my $esc_url=&escape($currenturl);
     var reloadURL="$currenturl";      my $esc_symb=&escape($currentsymb);
     var currentSymb="$currentsymb";  
   
 $nav_control      my $countdown = &countdown_toggle_js();
   
   return (<<ENDUTILITY)
       var host="$httphost";
       var currentURL=unescape("$esc_url");
       var reloadURL=unescape("$esc_url");
       var currentSymb=unescape("$esc_symb");
   
   $dc_popup_cid
   
 function go(url) {  function go(url) {
    if (url!='' && url!= null) {     if (url!='' && url!= null) {
        currentURL = null;         currentURL = null;
        currentSymb= null;         currentSymb= null;
        window.location.href=url;         window.location.href=host+url;
    }     }
 }  }
   
   $jumptores
   
 function gopost(url,postdata) {  function gopost(url,postdata) {
    if (url!='') {     if (url!='') {
       this.document.server.action=url;        this.document.server.action=host+url;
       this.document.server.postdata.value=postdata;        this.document.server.postdata.value=postdata;
       this.document.server.command.value='';        this.document.server.command.value='';
       this.document.server.url.value='';        this.document.server.url.value='';
Line 980  function gopost(url,postdata) { Line 2031  function gopost(url,postdata) {
   
 function gocmd(url,cmd) {  function gocmd(url,cmd) {
    if (url!='') {     if (url!='') {
       this.document.server.action=url;        this.document.server.action=host+url;
       this.document.server.postdata.value='';        this.document.server.postdata.value='';
       this.document.server.command.value=cmd;        this.document.server.command.value=cmd;
       this.document.server.url.value=currentURL;        this.document.server.url.value=currentURL;
Line 995  function gocstr(url,filename) { Line 2046  function gocstr(url,filename) {
         this.document.cstrdelete.submit();          this.document.cstrdelete.submit();
         return;          return;
     }      }
       if (url == '/adm/printout') {
           this.document.cstrprint.postdata.value = filename
           this.document.cstrprint.curseed.value = 0;
           this.document.cstrprint.problemtype.value = 0;
           if (this.document.lonhomework) {
               if ((this.document.lonhomework.rndseed) && (this.document.lonhomework.rndseed.value != null) && (this.document.lonhomework.rndseed.value != '')) {
                   this.document.cstrprint.curseed.value = this.document.lonhomework.rndseed.value
               }
               if (this.document.lonhomework.problemtype) {
    if (this.document.lonhomework.problemtype.value) {
       this.document.cstrprint.problemtype.value = 
    this.document.lonhomework.problemtype.value;
    } else if (this.document.lonhomework.problemtype.options) {
       for (var i=0; i<this.document.lonhomework.problemtype.options.length; i++) {
    if (this.document.lonhomework.problemtype.options[i].selected) {
       if (this.document.lonhomework.problemtype.options[i].value != null && this.document.lonhomework.problemtype.options[i].value != '') { 
    this.document.cstrprint.problemtype.value = this.document.lonhomework.problemtype.options[i].value
    }
    }
       }
    }
       }
    }
           this.document.cstrprint.submit();
           return;
       }
     if (url !='') {      if (url !='') {
         this.document.constspace.filename.value = filename;          this.document.constspace.filename.value = filename;
         this.document.constspace.action = url;          this.document.constspace.action = url;
Line 1002  function gocstr(url,filename) { Line 2079  function gocstr(url,filename) {
     }      }
 }  }
   
   function golist(url) {
      if (url!='' && url!= null) {
          currentURL = null;
          currentSymb= null;
          top.location.href=host+url;
      }
   }
   
   
   
 function catalog_info() {  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() {  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(host+'/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');
   }
   
   function group_chat(group) {
      var url = host+'/adm/groupchat?group='+group;
      var winName = 'LONchat_'+group;
      grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
   }
   
   function annotate() {
      w_Annotator_flag=1;
      annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');
      annotator.document.write(
      '$start_page_annotate'
     +"<form name='goannotate' target='Annotator' method='post' "
     +"action='/adm/annotations'>"
     +"<input type='hidden' name='symbnew' value='"+currentSymb+"' />"
     +"<\\/form>"
     +'$end_page_annotate');
      annotator.document.close();
   }
   
   function open_StoredLinks_Import(rat) {
      var newWin;
      if (rat) {
          newWin = window.open(host+'/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,
                               'wishlistImport','scrollbars=1,resizable=1,menubar=0');
      }
      else {
          newWin = window.open(host+'/adm/wishlist?inhibitmenu=yes&mode=import',
                               'wishlistImport','scrollbars=1,resizable=1,menubar=0');
      }
      newWin.focus();
 }  }
   
   (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  ENDUTILITY
 }  }
   
 sub serverform {  sub serverform {
     return(<<ENDSERVERFORM);      return(<<ENDSERVERFORM);
   
 <form name="server" action="/adm/logout" method="post" target="_top">  <form name="server" action="/adm/logout" method="post" target="_top">
 <input type="hidden" name="postdata" value="none" />  <input type="hidden" name="postdata" value="none" />
 <input type="hidden" name="command" value="none" />  <input type="hidden" name="command" value="none" />
Line 1034  sub constspaceform { Line 2168  sub constspaceform {
 <input type="hidden" name="action" value="delete" />   <input type="hidden" name="action" value="delete" /> 
 <input type="hidden" name="filename" value="" />  <input type="hidden" name="filename" value="" />
 </form>  </form>
   <form name="cstrprint" action="/adm/printout" target="_parent" method="post">
   <input type="hidden" name="postdata" value="" />
   <input type="hidden" name="curseed" value="" />
   <input type="hidden" name="problemtype" value="" />
   </form>
   
 ENDCONSTSPACEFORM  ENDCONSTSPACEFORM
 }  }
   
   
 sub get_nav_status {  sub get_nav_status {
     my $navstatus="swmenu.w_loncapanav_flag=";      my $navstatus="swmenu.w_loncapanav_flag=";
     if ($ENV{'environment.remotenavmap'} eq 'on') {      if ($env{'environment.remotenavmap'} eq 'on') {
  $navstatus.="1";          $navstatus.="1";
     } else {      } else {
  $navstatus.="-1";          $navstatus.="-1";
     }      }
     return $navstatus;      return $navstatus;
 }  }
   
 # ================================================ Handler when called directly  sub hidden_button_check {
       if ( $env{'request.course.id'} eq ''
            || $env{'request.role.adv'} ) {
   
 sub handler {          return;
     my $r = shift;      }
     &Apache::loncommon::content_type($r,'text/html');      my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide');
     $r->send_http_header;      return $buttonshide; 
     return OK if $r->header_only;  
   
     my $form=&serverform();  
     my $bodytag=&Apache::loncommon::bodytag('Main Menu');  
     my $function='student';  
     if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {  
  $function='coordinator';  
     }  
     if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {  
  $function='admin';  
     }  
     if (($ENV{'request.role'}=~/^(au|ca)/) ||  
  ($ENV{'request.noversionuri'}=~/^(\/priv|\~)/)) {  
  $function='author';  
     }  
     my $domain=&Apache::loncommon::determinedomain();  
     $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);  
     $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);  
     $font=&Apache::loncommon::designparm($function.'.font',$domain);  
 # ---- Print the screen, pretent to be in text mode to generate text-based menu  
     unless ($ENV{'browser.interface'} eq 'textual') {  
  $ENV{'browser.interface'}='faketextual';  
  $ENV{'environment.remote'}='off';  
     }  
     $r->print(<<ENDHEADER);  
 <html><head>  
 <title>LON-CAPA Main Menu</title>  
 </head>  
 $bodytag  
 ENDHEADER  
     $r->print('<table>'.&inlinemenu().'</table>'.$form);  
     $r->print('</body></html>');  
     return OK;  
 }  }
   
 # ================================================================ Main Program  sub roles_selector {
       my ($cdom,$cnum,$httphost) = @_;
 BEGIN {      my $crstype = &Apache::loncommon::course_type();
   if (! defined($readdesk)) {      my $now = time;
    {      my (%courseroles,%seccount,%courseprivs);
     my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';      my $is_cc;
     if ( CORE::open( my $config,"<$tabfile") ) {      my ($js,$form,$switcher,$switchtext);
         while (my $configline=<$config>) {      my $ccrole;
             $configline=(split(/\#/,$configline))[0];      if ($crstype eq 'Community') {
             $configline=~s/^\s+//;          $ccrole = 'co';
             chomp($configline);      } else {
             if ($configline) {          $ccrole = 'cc';
                 $desklines[$#desklines+1]=$configline;      }
       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))  ||
               (($start) && ($now<$start))) {
               $is_cc = 0;
           } else {
               $is_cc = 1;
           }
       }
       if ($is_cc) {
           &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount,\%courseprivs,$priv);
       } 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 ($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}})) {
                               push(@{$courseroles{$role}},$sec);
                               $seccount{$role} ++;
                           }
                       }
                   } else {
                       @{$courseroles{$role}} = ();
                       if ($sec ne '') {
                           $seccount{$role} ++;
                           push(@{$courseroles{$role}},$sec);
                       }
                   }
             }              }
         }          }
         CORE::close($config);  
     }      }
    }      $switchtext = 'Switch role'; # do not translate here
    $readdesk='done';      my @roles_order = ($ccrole,'in','ta','ep','ad','st');
   }      my $numdiffsec;
       if (keys(%seccount) == 1) {
           foreach my $key (keys(%seccount)) {
               $numdiffsec = $seccount{$key};
           }
       }
       if ((keys(%seccount) > 1) || ($numdiffsec > 1)) {
           my @submenu;
           $js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);
           $form = 
               '<form name="rolechooser" method="post" action="'.$httphost.'/adm/roles">'."\n".
               '  <input type="hidden" name="destinationurl" value="'.
               &HTML::Entities::encode($destinationurl).'" />'."\n".
               '  <input type="hidden" name="gotorole" value="1" />'."\n".
               '  <input type="hidden" name="selectrole" value="" />'."\n".
               '  <input type="hidden" name="switchrole" value="" />'."\n";
           if ($destsymb ne '') {
               $form .= '   <input type="hidden" name="destsymb" value="'.
                            &HTML::Entities::encode($destsymb).'" />'."\n";
           }
           $form .= '</form>'."\n";
           foreach my $role (@roles_order) {
               my $include;
               if (defined($courseroles{$role})) {
                   if ($env{'request.role'} =~ m{^\Q$role\E}) {
                       if ($seccount{$role} > 1) {
                           $include = 1;
                       }
                   } else {
                       $include = 1;
                   }
               }
               if ($include) {
                   push(@submenu,['javascript:adhocRole('."'$role'".')',
                                  &Apache::lonnet::plaintext($role,$crstype)]);
               }
           }
           foreach my $role (sort(keys(%courseroles))) {
               if ($role =~ /^cr/) {
                   my $include;
                   if ($env{'request.role'} =~ m{^\Q$role\E}) {
                       if ($seccount{$role} > 1) {
                           $include = 1;
                       }
                   } else {
                       $include = 1;
                   }
                   if ($include) {
                       push(@submenu,['javascript:adhocRole('."'$role'".')',
                                      &Apache::lonnet::plaintext($role)]);
                   }
               }
           }
           if (@submenu > 0) {
               $switcher = &create_submenu('','',$switchtext,\@submenu);
           }
       }
       return ($js,$form,$switcher);
 }  }
   
 1;  sub get_all_courseroles {
 __END__      my ($cdom,$cnum,$courseroles,$seccount,$courseprivs) = @_;
       unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH') &&
               (ref($courseprivs) 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') && 
                   (ref($result->{'privs'}) eq 'HASH')) {
                   %{$courseroles} = %{$result->{'roles'}};
                   %{$seccount} = %{$result->{'seccount'}};
                   %{$courseprivs} = %{$result->{'privs'}};
                   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 $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));
       }
       $seccount->{'st'} ++; # Increment for a section-less student role.
       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,$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.',
                   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') {
           $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";
           }
       }
       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(newrole) {
       $js
       if (newrole == '') {
           return;
       } 
       var fullrole = newrole+'./$cdom/$cnum';
       var selidx = '';
       for (var i=0; i<rolenames.length; i++) {
           if (rolenames[i] == newrole) {
               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 {
                       return;
                   }
               }
           }
       }
       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'} "+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.switchrole.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
   }
   
   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");
           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';
               if ( CORE::open( my $config,"<$tabfile") ) {
                   while (my $configline=<$config>) {
                       $configline=(split(/\#/,$configline))[0];
                       $configline=~s/^\s+//;
                       chomp($configline);
                       if ($configline=~/^cat\:/) {
                           my @entries=split(/\:/,$configline);
                           $category_positions{$entries[2]}=$entries[1];
                           $category_names{$entries[2]}=$entries[3];
                       } elsif ($configline=~/^prim\:/) {
                           my @entries = (split(/\:/, $configline))[1..6];
                           push(@primary_menu,\@entries);
                       } elsif ($configline=~/^primsub\:/) {
                           my ($parent,@entries) = (split(/\:/, $configline))[1..4];
                           push(@{$primary_submenu{$parent}},\@entries);
                       } elsif ($configline=~/^scnd\:/) {
                           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';
       }
   }
   
   1;
   __END__
   
Removed from v.1.128  
changed lines
  Added in v.1.369.2.48

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