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

Diff for /loncom/interface/lonmenu.pm between versions 1.222 and 1.282

version 1.222, 2007/07/17 18:31:37 version 1.282, 2009/09/27 11:05:06
Line 26 Line 26
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 #  #
 # There are two parameters controlling the action of this module:  # There is one parameter controlling the action of this module:
 #  
 # browser.interface - if this is 'textual', it overrides the second parameter  
 # and goes to screen reader PDA mode  
 #  #
 # environment.remote - if this is 'on', the routines controll the remote  # environment.remote - if this is 'on', the routines controll the remote
 # control, otherwise they render the main window controls; ignored it  # control, otherwise they render the main window controls; 
 # browser.interface is 'textual'  
 #  =head1 NAME
   
   Apache::lonmenu
   
   =head1 SYNOPSIS
   
   Coordinates the response to clicking an image.
   
   This is part of the LearningOnline Network with CAPA project
   described at http://www.lon-capa.org.
   
   =head1 SUBROUTINES
   
   =over
   
   Little texts
   
   =item initlittle()
   
   =item menubuttons()
   
   This gets called at the top of the body section
   
   =item show_return_link()
   
   =item registerurl()
   
   This gets called in the header section
   
   =item innerregister()
   
   This gets called in order to register a URL, both with the Remote
   and in the body of the document
   
   =item loadevents()
   
   =item unloadevents()
   
   =item startupremote()
   
   =item setflags()
   
   =item maincall()
   
   =item load_remote_msg()
   
   =item get_menu_name()
   
   =item reopenmenu()
   
   =item open()
   
   Open the menu
   
   =item clear()
   
   =item switch()
   
   Switch a button or create a link
   Switch acts on the javascript that is executed when a button is clicked.  
   The javascript is usually similar to "go('/adm/roles')" or "cstrgo(..)".
   
   =item secondlevel()
   
   =item openmenu()
   
   =item inlinemenu()
   
   =item rawconfig()
   
   =item close()
   
   =item footer()
   
   =item utilityfunctions()
   
   =item serverform()
   
   =item constspaceform()
   
   =item get_nav_status()
   
   =item convert_menu_function()
   
   FIXME this needs to move into mydesktab and the other locations 
   the text is generated
   
   =item hidden_button_check()
   
   =item roles_selector()
   
   =item jump_to_role()
   
   =back
   
   =cut
   
 package Apache::lonmenu;  package Apache::lonmenu;
   
Line 45  use Apache::loncommon(); Line 137  use Apache::loncommon();
 use Apache::lonenc();  use Apache::lonenc();
 use Apache::lonlocal;  use Apache::lonlocal;
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
   use HTML::Entities();
   
 use vars qw(@desklines %category_names %category_members %category_positions $readdesk);  use vars qw(@desklines %category_names %category_members %category_positions $readdesk);
   
   
 my @inlineremote;  my @inlineremote;
   
   #
   # This routine returns a translated hash for the menu items in the top inline menu row
 # ================================================================ Little texts  # Probably should be in mydesk.tab
   
 sub initlittle {  sub initlittle {
     return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',      return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',
        'nav' => 'Navigate Contents',         'nav' => 'Course Contents',
        'main' => 'Main Menu',         'main' => 'Main Menu',
                                        'roles' => ($env{'user.adv'}?                                         'roles' => (&Apache::loncommon::show_course()?
                                                     'Roles':'Courses'),                                                      'Courses':'Roles'),
                                          'other' => 'Other Roles',
                                        'docs' => 'Edit Course',                                         'docs' => 'Edit Course',
                                        'exit' => 'Exit',                                         'exit' => 'Logout',
                                        'login' => 'Log In',                                         'login' => 'Log In',
        'launch' => 'Launch Remote Control',         'launch' => 'Launch Remote Control',
                                        'groups' => 'Groups',                                         'groups' => 'Groups',
Line 70  sub initlittle { Line 164  sub initlittle {
                                        );                                         );
 }  }
   
 # ============================= This gets called at the top of the body section  
   
 sub menubuttons {  sub menubuttons {
     my $forcereg=shift;      my $forcereg=shift;
     my $registration=shift;  
     my $titletable=shift;      my $titletable=shift;
   #
   # Early-out for pages that should not have a menu, triggered by query string "inhibitmenu=yes"
   #
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
     ['inhibitmenu']);      ['inhibitmenu']);
     if (($env{'form.inhibitmenu'} eq 'yes') ||      if (($env{'form.inhibitmenu'} eq 'yes') ||
Line 88  sub menubuttons { Line 182  sub menubuttons {
     my $reloadlink='';      my $reloadlink='';
     my $docs='';      my $docs='';
     my $groups='';      my $groups='';
       my $roles='<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>';
       my $role_selector;
     my $showgroups=0;      my $showgroups=0;
       my ($cnum,$cdom);
   #
   # if the URL is hidden, symbs and the non-versioned version of the URL would be encrypted
   #
     my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));      my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));
     my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));      my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));
   
     my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");      my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");
     $logo = '<td class="LC_top_nav_logo"><a href="/adm/about.html"><img src="'.      $logo = '<a href="/adm/about.html"><img src="'.
  $logo.'" alt="LON-CAPA Logo" /></a></td>';   $logo.'" alt="LON-CAPA Logo" class="LC_noBorder" /></a>';
   
     if ($env{'request.state'} eq 'construct') {      if ($env{'request.state'} eq 'construct') {
   #
   # We are in construction space
   #
         if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) {          if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) {
             my $returnurl = $env{'request.filename'};              my $returnurl = $env{'request.filename'};
             $returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:;              $returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:;
Line 104  sub menubuttons { Line 207  sub menubuttons {
         }          }
     }      }
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
   #
   # We are in a course
   #
           $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
           $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
         my %coursegroups;          my %coursegroups;
         my $viewgrps_permission =          my $viewgrps_permission =
     &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));      &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
         if (!$viewgrps_permission) {          if (!$viewgrps_permission) {
             %coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});              %coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$cdom,$cnum);
  }   }
         if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) {          if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) {
             $showgroups = 1;              $showgroups = 1;
         }          }
           $role_selector = &roles_selector($cdom,$cnum);
           if ($role_selector) {
               $roles = '<span class="LC_nobreak">'.$role_selector.'&nbsp;&nbsp;<a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></span>';
           }
     }      }
   
     if ($env{'browser.interface'} eq 'textual') {      if ($env{'environment.remote'} eq 'off') {
 # Textual display only  
         if ($env{'request.course.id'}) {  
     $navmaps=(<<ENDNAV);  
 <a href="/adm/navmaps?postdata=$escurl&amp;postsymb=$escsymb" target="_top">$lt{'nav'}</a>  
 ENDNAV  
             if (($env{'request.noversionuri'}=~/^\/adm\//) &&  
          ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&  
          ($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) {  
                 my $escreload=&escape('return:');  
                 $reloadlink=(<<ENDRELOAD);  
 <a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a>  
 ENDRELOAD  
             }  
     if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {  
                $docs=(<<ENDDOCS);  
 <a href="/adm/coursedocs" target="_top">$lt{'docs'}</a>  
 ENDDOCS  
             }  
             if ($showgroups) {  
                 $groups =(<<ENDGROUPS);  
 <a href="/adm/coursegroups" target="_top">$lt{'groups'}</a>  
 ENDGROUPS  
             }  
  }  
         my $form=&serverform();  
         my $utility=&utilityfunctions();  
  my $output=(<<ENDMAINMENU);  
 <script type="text/javascript">  
 // BEGIN LON-CAPA Internal  
 $utility  
 </script>  
 <div id="LC_top_nav">  
 <a href="/adm/menu" target="_top">$lt{'main'}</a>  
 $reloadlink $navmaps $docs $groups  
 <a href="/adm/roles" target="_top">$lt{'roles'}</a>  
 <a href="/adm/logout" target="_top">$lt{'exit'}</a>  
 </div>  
 <br />  
 <script type="text/javascript">  
 // END LON-CAPA Internal  
 </script>  
 $form  
 ENDMAINMENU  
         if ($registration) { $output.=&innerregister($forcereg); }  
  return $output."<hr />";  
     } elsif ($env{'environment.remote'} eq 'off') {  
 # Remote Control is switched off  # Remote Control is switched off
 # figure out colors  # figure out colors
  my %lt=&initlittle();          my %lt=&initlittle();
   
         my $domain=&Apache::loncommon::determinedomain();          my $domain=&Apache::loncommon::determinedomain();
  my $function =&Apache::loncommon::get_users_function();          my $function =&Apache::loncommon::get_users_function();
         my $link=&Apache::loncommon::designparm($function.'.link',$domain);          my $link=&Apache::loncommon::designparm($function.'.link',$domain);
         my $alink=&Apache::loncommon::designparm($function.'.alink',$domain);          my $alink=&Apache::loncommon::designparm($function.'.alink',$domain);
         my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);          my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);
         my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain);          my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain);
  if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {  
     return (<<ENDINLINEMENU);          if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
    <table id="LC_top_nav">              return (<<ENDINLINEMENU);
     <tr>              <ol class="LC_smallMenu LC_right">
       $logo                  <li>$logo</li>
       <td></td>                  <li><a href="/adm/roles" target="_top">$lt{'login'}</a></li>
       <td class="LC_top_nav_login">              </ol>
         <a href="/adm/roles" target="_top">$lt{'login'}</a>              <hr />
      </td>  
     </tr>  
   </table>  
 </font>  
 ENDINLINEMENU  ENDINLINEMENU
         }          }
           $roles = '<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>';
 # Do we have a NAV link?  # Do we have a NAV link?
         if ($env{'request.course.id'}) {          if ($env{'request.course.id'}) {
     my $link='/adm/navmaps?postdata='.$escurl.'&amp;postsymb='.      my $link='/adm/navmaps?postdata='.$escurl.'&amp;postsymb='.
Line 194  ENDINLINEMENU Line 257  ENDINLINEMENU
  $link="javascript:gonav('".$link."')";   $link="javascript:gonav('".$link."')";
     }      }
     $navmaps=(<<ENDNAV);      $navmaps=(<<ENDNAV);
 <td><a href="$link" target="_top">$lt{'nav'}</a></td>  <li><a href="$link" target="_top">$lt{'nav'}</a></li>
 ENDNAV  ENDNAV
 my $is_group = (&Apache::loncommon::course_type() eq 'Group');              my $is_group = (&Apache::loncommon::course_type() eq 'Group');
     if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {      if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
                 my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'};                  my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'};
  $docs=(<<ENDDOCS);   $docs=(<<ENDDOCS);
 <td><a href="/adm/coursedocs" target="_top">$text</a></td>  <li><a href="/adm/coursedocs" target="_top">$text</a></li>
 ENDDOCS  ENDDOCS
             }              }
             if ($showgroups) {              if ($showgroups) {
                 $groups =(<<ENDGROUPS);                  $groups =(<<ENDGROUPS);
 <td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td>  <li><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></li>
 ENDGROUPS  ENDGROUPS
             }              }
     if (      if (&show_return_link()) {
  ($env{'request.noversionuri'}=~m[^/(res|public)/] &&  
  $env{'request.symb'} eq '')  
  ||  
  (($env{'request.noversionuri'}=~/^\/adm\//) &&  
  ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&  
  ($env{'request.noversionuri'}!~  
         m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)])  
   )  
  ) {  
                 my $escreload=&escape('return:');                  my $escreload=&escape('return:');
                 $reloadlink=(<<ENDRELOAD);                  $reloadlink=(<<ENDRELOAD);
 <td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>  <li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li>
 ENDRELOAD  ENDRELOAD
             }              }
               if ($role_selector) {
               #$roles = '<td>'.$role_selector.'</td><td><a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></td>';
    $role_selector = '<li>'.$role_selector.'</li>';
               }
         }          }
  if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) {   if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) {
     my $escreload=&escape('return:');      my $escreload=&escape('return:');
     $reloadlink=(<<ENDCRELOAD);      $reloadlink=(<<ENDCRELOAD);
 <td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>  <li><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></li>
 ENDCRELOAD  ENDCRELOAD
         }          }
         my $reg='';      my $reg     = $forcereg ? &innerregister($forcereg,$titletable) : '';
         if ($registration) {      my $form    = &serverform();
            $reg=&innerregister($forcereg,$titletable);      my $utility = &utilityfunctions();
         }  
         my $form=&serverform();      #Prepare the message link that indicates the arrival of new mail
  my $utility=&utilityfunctions();      my $messagelink = Apache::lonmsg::mynewmail() ? "Message (new)" : "Message";
  my $remote;         $messagelink = '<a href="javascript:go(\'/adm/communicate\');">'
  if ($env{'user.adv'}) {                        . mt($messagelink) .'</a>';
     $remote = '<td><a href="/adm/remote?action=launch&amp;url='.$escurl.'" target="_top">'.$lt{'launch'}.'</a></td>'  
  }  
   
         my $helplink=&Apache::loncommon::top_nav_help('Help');      my $helplink = &Apache::loncommon::top_nav_help('Help');
  return (<<ENDINLINEMENU);   return (<<ENDINLINEMENU);
 <script type="text/javascript">  <script type="text/javascript">
 // BEGIN LON-CAPA Internal  
 // <![CDATA[  // <![CDATA[
   // BEGIN LON-CAPA Internal
 $utility  $utility
 // ]]>  // ]]>
 </script>  </script>
 <table id="LC_top_nav">  <ol class="LC_smallMenu LC_right">
 <tr>   <li>$logo</li>
 $logo   <li>$messagelink</li>
 <td><a href="/adm/menu" target="_top">$lt{'main'}</a></td>   <li>$roles</li>
    <li>$helplink</li>
    <li><a href="/adm/logout" target="_top">$lt{'exit'}</a></li>
   </ol>
   <ul id="LC_TabMainMenuContent">
   <li><a href="/adm/menu" target="_top">$lt{'main'}</a></li>
 $reloadlink  $reloadlink
 $navmaps  $navmaps
 $docs  $docs
 $groups  $groups
 $remote  $role_selector
 <td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td>  </ul>
 <td class="LC_top_nav_help">$helplink</td>  
 <td class="LC_top_nav_exit"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>  
 </tr>  
 </table>  
 $form  $form
 <script type="text/javascript">  <script type="text/javascript">
 // END LON-CAPA Internal  // END LON-CAPA Internal
Line 274  ENDINLINEMENU Line 331  ENDINLINEMENU
     }      }
 }  }
   
 # ====================================== This gets called in the header section  sub show_return_link {
       return (($env{'request.noversionuri'}=~m{^/(res|public)/} &&
        $env{'request.symb'} eq '')
       ||
       ($env{'request.noversionuri'}=~ m{^/cgi-bin/printout.pl})
       ||
       (($env{'request.noversionuri'}=~/^\/adm\//) &&
        ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
        ($env{'request.noversionuri'}!~
         m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)])
        ));
   }
   
   
 sub registerurl {  sub registerurl {
     my ($forcereg) = @_;      my ($forcereg) = @_;
Line 284  sub registerurl { Line 353  sub registerurl {
     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 (($env{'browser.interface'} eq 'textual') ||      if (($env{'environment.remote'} eq 'off') ||
         ($env{'environment.remote'} eq 'off') ||  
         ((($env{'request.publicaccess'}) ||           ((($env{'request.publicaccess'}) || 
          (!&Apache::lonnet::is_on_map(           (!&Apache::lonnet::is_on_map(
    &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 ($env{'request.registered'} && !$forcereg) { return ''; }      if ($env{'request.registered'} && !$forcereg) { return ''; }
Line 299  sub registerurl { Line 373  sub registerurl {
     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, $titletable) = @_;      my ($forcereg, $titletable) = @_;
     my $result = '';      my $result = '';
Line 313  sub innerregister { Line 384  sub innerregister {
   
     $env{'request.registered'} = 1;      $env{'request.registered'} = 1;
   
     my $textinter=($env{'browser.interface'} eq 'textual');      my $noremote = ($env{'environment.remote'} eq 'off');
     my $noremote=($env{'environment.remote'} eq 'off');  
           
     my $textual=($textinter || $noremote);  
   
     undef(@inlineremote);      undef(@inlineremote);
   
     my $reopen=&Apache::lonmenu::reopenmenu();      my $reopen=&Apache::lonmenu::reopenmenu();
   
     my $newmail='';      my $newmail='';
     if ($noremote) {  
  $newmail='<table id="LC_nav_location"><tr>';      if (&Apache::lonmsg::newmail() && !$noremote) { 
     }          # We have new mail and remote is up
     if (&Apache::lonmsg::newmail()) {           $newmail= 'swmenu.setstatus("you have","messages");';
  if ($textual) {      } 
     $newmail.= '<td class="LC_new_mail">  
                    <a href="/adm/communicate" target="_top">'.      my $breadcrumb;
    &mt('You have new messages').'</a></td>';      if ($noremote
  } else {  
     $newmail= 'swmenu.setstatus("you have","messages");';  
  }  
     } elsif (($textual)   
      && ($env{'request.symb'})        && ($env{'request.symb'}) 
      && ($env{'request.course.id'})) {       && ($env{'request.course.id'})) {
  $newmail.= '<td class="LC_current_location">';  
  my ($mapurl,$rid,$resurl)=          my ($mapurl,$rid,$resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
     &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());          my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};
         $newmail.=$env{'course.'.$env{'request.course.id'}.'.description'};  
         my $maptitle=&Apache::lonnet::gettitle($mapurl);          my $maptitle = &Apache::lonnet::gettitle($mapurl);
  my $restitle=&Apache::lonnet::gettitle(&Apache::lonnet::symbread());          my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());
         if ($maptitle && $maptitle ne 'default.sequence') {          my @crumbs = ({text  => "Course Content", 
     $newmail.=', '.$maptitle;                         href  => "Javascript:gonav('/adm/navmaps')"}, 
         }                        {text  => '...',
         if ($restitle) {                         no_mt => 1});
     $newmail.=': '.$restitle;  
         }          push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle 
         $newmail.='&nbsp;&nbsp;&nbsp;</td>';                                                     && $maptitle ne 'default.sequence' 
                                                      && $maptitle ne $coursetitle);
   
           push @crumbs, {text => $restitle, no_mt => 1} if $restitle; 
   
           Apache::lonhtmlcommon::clear_breadcrumbs();
           Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
           $breadcrumb .= Apache::lonhtmlcommon::breadcrumbs(undef,undef,0);
           #
     }      }
     if ($env{'request.state'} eq 'construct') {      if ($env{'request.state'} eq 'construct') {
         $newmail = $titletable;          $newmail = $titletable;
     } else {      } 
  if ($noremote) {      my $timesync   = ( $noremote ? '' : 'swmenu.syncclock(1000*'.time.');' );
     $newmail.='</tr></table>';      my $tablestart = ( $noremote ? '<table id="LC_menubuttons">' : '');
  }      my $tableend   = ( $noremote ? '</table>' : '');
     }  
     my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');  
     my $tablestart=($noremote?'<table id="LC_menubuttons">':'').  
  ($textinter?'<br /><a href="#content">'.&mt('Skip to Content').'</a><br />':'');  
     my $tableend=($noremote?'</table>':'').($textinter?'<a name="content" />':'');  
 # =============================================================================  # =============================================================================
 # ============================ This is for URLs that actually can be registered  # ============================ This is for URLs that actually can be registered
     if (($env{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) {      if (($env{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) {
Line 376  sub innerregister { Line 443  sub innerregister {
         if ($env{'request.symb'} ne '' &&          if ($env{'request.symb'} ne '' &&
     $env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) {      $env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) {
     if (&Apache::lonnet::allowed('mgr',$crs)) {      if (&Apache::lonnet::allowed('mgr',$crs)) {
  $hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]',   $hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_4]',
                        "gocmd('/adm/grades','gradingmenu')",                         "gocmd('/adm/grades','gradingmenu')",
                        'Modify user grades for this assessment resource');                         'Modify user grades for this assessment resource');
             } elsif (&Apache::lonnet::allowed('vgr',$crs)) {              } elsif (&Apache::lonnet::allowed('vgr',$crs)) {
Line 397  sub innerregister { Line 464  sub innerregister {
         ### resource          ### resource
         ###          ###
         my $editbutton = '';          my $editbutton = '';
           my $noeditbutton = 1;
           my ($cnum,$cdom);
           if ($env{'request.course.id'}) {
               $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
               $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
           }
         if ($env{'user.author'}) {          if ($env{'user.author'}) {
             if ($env{'request.role'}=~/^(ca|au)/) {              if ($env{'request.role'}=~/^(aa|ca|au)/) {
   #
   # We have the role of an author
   #
                 # Set defaults for authors                  # Set defaults for authors
                 my ($top,$bottom) = ('con-','struct');                  my ($top,$bottom) = ('con-','struct');
                 my $action = "go('/priv/".$env{'user.name'}."');";                  my $action = "go('/priv/".$env{'user.name'}."');";
                 my $cadom  = $env{'request.role.domain'};                  my $cadom  = $env{'request.role.domain'};
                 my $caname = $env{'user.name'};                  my $caname = $env{'user.name'};
                 my $desc = "Enter my resource construction space";                  my $desc = "Enter my construction space";
                 # Set defaults for co-authors                  # Set defaults for co-authors
                 if ($env{'request.role'} =~ /^ca/) {                   if ($env{'request.role'} =~ /^ca/) { 
                     ($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);                      ($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);
                     ($top,$bottom) = ('co con-','struct');                      ($top,$bottom) = ('co con-','struct');
                     $action = "go('/priv/".$caname."');";                      $action = "go('/priv/".$caname."');";
                     $desc = "Enter construction space as co-author";                      $desc = "Enter construction space as co-author";
                   } elsif ($env{'request.role'} =~ /^aa/) {
                       ($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);
                       ($top,$bottom) = ('co con-','struct');
                       $action = "go('/priv/".$caname."');";
                       $desc = "Enter construction space as assistant co-author";
                 }                  }
                 # Check that we are on the correct machine                  # Check that we are on the correct machine
                 my $home = &Apache::lonnet::homeserver($caname,$cadom);                  my $home = &Apache::lonnet::homeserver($caname,$cadom);
Line 419  sub innerregister { Line 500  sub innerregister {
  foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }   foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
  if (!$allowed) {   if (!$allowed) {
     $editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);      $editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);
                       $noeditbutton = 0;
                 }                  }
             }              }
   #
   # We are an author for some stuff, but currently do not have the role of author.
   # Figure out if we have authoring privileges for the resource we are looking at.
   # This should maybe become a privilege check in lonnet
   #
             ##              ##
             ## Determine if user can edit url.              ## Determine if user can edit url.
             ##              ##
             my $cfile='';              my $cfile='';
             my $cfuname='';              my $cfuname='';
             my $cfudom='';              my $cfudom='';
               my $uploaded;
             if ($env{'request.filename'}) {              if ($env{'request.filename'}) {
                 my $file=&Apache::lonnet::declutter($env{'request.filename'});                  my $file=&Apache::lonnet::declutter($env{'request.filename'});
                 $file=~s/^($match_domain)\/($match_username)/\/priv\/$2/;                  if (defined($cnum) && defined($cdom)) {
                 # Check that the user has permission to edit this resource                      $uploaded = &is_course_upload($file,$cnum,$cdom);
                 ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);                  }
                 if (defined($cfudom)) {                  if (!$uploaded) {
     my $home=&Apache::lonnet::homeserver($cfuname,$cfudom);                      $file=~s/^($match_domain)\/($match_username)/\/priv\/$2/;
     my $allowed=0;                      # Check that the user has permission to edit this resource
     my @ids=&Apache::lonnet::current_machine_ids();                      ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);
     foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }                      if (defined($cfudom)) {
     if ($allowed) {          my $home=&Apache::lonnet::homeserver($cfuname,$cfudom);
                         $cfile=$file;          my $allowed=0;
           my @ids=&Apache::lonnet::current_machine_ids();
           foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
           if ($allowed) {
                               $cfile=$file;
                           }
                     }                      }
                 }                  }
             }                      }
             # Finally, turn the button on or off              # Finally, turn the button on or off
             if ($cfile && !$const_space) {              if ($cfile && !$const_space) {
                 $editbutton=&switch                  $editbutton=&switch
                     ('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',                      ('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
                      "go('".$cfile."');","Edit this resource");                       "go('".$cfile."');","Edit this resource");
                   $noeditbutton = 0;
             } elsif ($editbutton eq '') {              } elsif ($editbutton eq '') {
                 $editbutton=&clear(6,1);                  $editbutton=&clear(6,1);
             }              }
         }          }
           if (($noeditbutton) && ($env{'request.filename'})) { 
               if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
                   my $file=&Apache::lonnet::declutter($env{'request.filename'});
                   if (defined($cnum) && defined($cdom)) {
                       if (&is_course_upload($file,$cnum,$cdom)) {
                           my $cfile = &edit_course_upload($file,$cnum,$cdom);
                           if ($cfile) {
                               $editbutton=&switch
                                           ('','',6,1,'pcstr.gif','edit[_1]',
                                            'resource[_2]',"go('".$cfile."');",
                                            'Edit this resource');
                           }
                       }
                   }
               }
           }
         ###          ###
         ###          ###
 # Prepare the rest of the buttons  # Prepare the rest of the buttons
         my $menuitems;          my $menuitems;
         if ($const_space) {          if ($const_space) {
   #
   # We are in construction space
   #
     my ($uname,$thisdisfn) =      my ($uname,$thisdisfn) =
  ($env{'request.filename'}=~m|^/home/([^/]+)/public_html/(.*)|);   ($env{'request.filename'}=~m|^/home/([^/]+)/public_html/(.*)|);
             my $currdir = '/priv/'.$uname.'/'.$thisdisfn;              my $currdir = '/priv/'.$uname.'/'.$thisdisfn;
             if ($currdir =~ m-/$-) {              if ($currdir =~ m-/$-) {
                 $is_const_dir = 1;                  $is_const_dir = 1;
             } else {              } else {
                 $currdir =~ s#[^/]+$##;                  $currdir =~ s|[^/]+$||;
  my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);   my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
  my $esc_currdir = &Apache::loncommon::escape_single($currdir);   my $esc_currdir = &Apache::loncommon::escape_single($currdir);
   #
   # Probably should be in mydesk.tab
   #
                 $menuitems=(<<ENDMENUITEMS);                  $menuitems=(<<ENDMENUITEMS);
 s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory  s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory
 s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version  s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version
 s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource  s&6&3&pub.gif&publish[_1]&resource[_3]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource
 s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource  s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource
 s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document  s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document
 ENDMENUITEMS  ENDMENUITEMS
             }              }
         } elsif ( defined($env{'request.course.id'}) &&           } elsif ( defined($env{'request.course.id'}) && 
  $env{'request.symb'} ne '' ) {   $env{'request.symb'} ne '' ) {
   #
   # We are in a course and looking at a registred URL
   # 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.gif&backward[_1]&&gopost('/adm/flip','back:'+currentURL)&Go to the previous resource in the course sequence&&1
Line 484  c&8&1 Line 604  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.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
 s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1  s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1
 s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&&1  
 ENDMENUITEMS  ENDMENUITEMS
   
   my $currentURL = &Apache::loncommon::get_symb();
   my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);
   my $annotation = &Apache::loncommon::get_annotation($symb_old,$symb_old_enc);
   $menuitems.="s&9&3&";
   if(length($annotation) > 0){
    $menuitems.="anot2.gif";
   }else{
    $menuitems.="anot.gif";
   }
   $menuitems.="&anno-[_1]&tations[_1]&annotate()&";
   $menuitems.="Make notes and annotations about this resource&&1\n";
   
               unless ($noremote) { 
                   my $showreqcrs = &check_for_rcrs();
                   if ($showreqcrs) {
                       $menuitems.="s&8&1&rcrs.gif&request[_1]&course[_16]".
                                   "&go('/adm/requestcourse')&Course requests\n";
                   }
               }
             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {
  if (!$env{'request.enc'}) {   if (!$env{'request.enc'}) {
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information  s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata
 ENDREALRES  ENDREALRES
                 }                  }
         $menuitems.=(<<ENDREALRES);          $menuitems.=(<<ENDREALRES);
Line 523  ENDMENUITEMS Line 661  ENDMENUITEMS
             }              }
         }          }
   
         if ($textual) {          if ($noremote) {
     my $addremote=0;      my $addremote=0;
     foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } }      foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
     my $inlinebuttons='';      my $inlinebuttons='';
     if ($addremote) {      if ($addremote) {
 # Registered, textual output              # Registered, textual output
  if ($env{'browser.interface'} eq 'textual') {  
     $inlinebuttons=  
                         join('',map { (defined($_)?$_:'') } @inlineremote);  
  } else {  
                     if ($env{'environment.icons'} eq 'iconsonly') {                      if ($env{'environment.icons'} eq 'iconsonly') {
                         $inlinebuttons=(<<ENDARROWSINLINE);                          $inlinebuttons=(<<ENDARROWSINLINE);
 <tr><td>  <tr><td>
Line 547  $inlineremote[91] $inlineremote[92] $inl Line 681  $inlineremote[91] $inlineremote[92] $inl
 ENDINLINEICONS  ENDINLINEICONS
                         }                          }
                     } else {                      } else {
  $inlinebuttons=(<<ENDFIRSTLINE);   if ($inlineremote[21] ne '' || $inlineremote[23] ne '') {
       $inlinebuttons=(<<ENDFIRSTLINE);
 <tr><td>$inlineremote[21]</td><td>&nbsp;</td><td>$inlineremote[23]</td></tr>  <tr><td>$inlineremote[21]</td><td>&nbsp;</td><td>$inlineremote[23]</td></tr>
 ENDFIRSTLINE  ENDFIRSTLINE
                         if (&hidden_button_check() ne 'yes') {   
                             $inlinebuttons .= (<<ENDINLINE);  
 <tr><td>$inlineremote[61]</td><td>$inlineremote[62]</td><td>$inlineremote[63]</td></tr>  
 <tr><td>$inlineremote[71]</td><td>$inlineremote[72]</td><td>$inlineremote[73]</td></tr>  
 <tr><td>$inlineremote[81]</td><td>$inlineremote[82]</td><td>$inlineremote[83]</td></tr>  
 <tr><td>$inlineremote[91]</td><td>$inlineremote[92]</td><td>$inlineremote[93]</td></tr>  
 ENDINLINE  
                         }                          }
                     }                          if (&hidden_button_check() ne 'yes') { 
                 }      foreach my $row (6..9) {
    if ($inlineremote[${row}.'1'] ne ''
       || $inlineremote[$row.'2'] ne ''
       || $inlineremote[$row.'3'] ne '') {
       $inlinebuttons .= <<"ENDLINE";
   <tr><td>$inlineremote["${row}1"]</td><td>$inlineremote["${row}2"]</td><td>$inlineremote["${row}3"]</td></tr>
   ENDLINE
    }
       }
    }
       }
     }      }
     $result =(<<ENDREGTEXT);      $result =(<<ENDREGTEXT);
 <script type="text/javascript">  <script type="text/javascript">
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 </script>  </script>
 $timesync  $timesync
 $newmail  $breadcrumb
 $tablestart  $tablestart
 $inlinebuttons  $inlinebuttons
 $tableend  $tableend
   $newmail
 <script type="text/javascript">  <script type="text/javascript">
 // END LON-CAPA Internal  // END LON-CAPA Internal
 </script>  </script>
Line 587  ENDREGTEXT Line 726  ENDREGTEXT
     $result = (<<ENDREGTHIS);      $result = (<<ENDREGTHIS);
             
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 var swmenu=null;  var swmenu=null;
   
Line 622  var swmenu=null; Line 762  var swmenu=null;
       }        }
   
 // END LON-CAPA Internal   // END LON-CAPA Internal 
   // ]]>
 </script>  </script>
 ENDREGTHIS  ENDREGTHIS
         }          }
 # =============================================================================  # =============================================================================
     } else {      } else {
 # ========================================== This can or will not be registered  # ========================================== This can or will not be registered
         if ($textual) {          if ($noremote) {
 # Not registered, textual  # Not registered
     $result= (<<ENDDONOTREGTEXT);              $result= (<<ENDDONOTREGTEXT);
 ENDDONOTREGTEXT  ENDDONOTREGTEXT
         } else {          } else {
 # Not registered, graphical  # Not registered, graphical
            $result = (<<ENDDONOTREGTHIS);             $result = (<<ENDDONOTREGTHIS);
   
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 var swmenu=null;  var swmenu=null;
   
Line 661  var swmenu=null; Line 803  var swmenu=null;
     }      }
   
 // END LON-CAPA Internal  // END LON-CAPA Internal
   // ]]>
 </script>  </script>
 ENDDONOTREGTHIS  ENDDONOTREGTHIS
        }         }
Line 669  ENDDONOTREGTHIS Line 812  ENDDONOTREGTHIS
     return $result;      return $result;
 }  }
   
   sub is_course_upload {
       my ($file,$cnum,$cdom) = @_;
       my $uploadpath = &LONCAPA::propath($cdom,$cnum);
       $uploadpath =~ s{^\/}{};
       if (($file =~ m{^\Q$uploadpath\E/userfiles/docs/}) ||
           ($file =~ m{^userfiles/\Q$cdom\E/\Q$cnum\E/docs/})) {
           return 1;
       }
       return;
   }
   
   sub edit_course_upload {
       my ($file,$cnum,$cdom) = @_;
       my $cfile;
       if ($file =~/\.(htm|html|css|js|txt)$/) {
           my $ext = $1;
           my $url = &Apache::lonnet::hreflocation('',$file);
           my $home = &Apache::lonnet::homeserver($cnum,$cdom);
           my @ids=&Apache::lonnet::current_machine_ids();
           my $dest;
           if ($home && grep(/^\Q$home\E$/,@ids)) {
               $dest = $url.'?forceedit=1';
           } else {
               unless (&Apache::lonnet::get_locks()) {
                   $dest = '/adm/switchserver?otherserver='.
                           $home.'&role='.$env{'request.role'}.
                           '&url='.$url.'&forceedit=1';
               }
           }
           if ($dest) {
               $cfile = &HTML::Entities::encode($dest,'"<>&');
           }
       }
       return $cfile;
   }
   
 sub loadevents() {  sub loadevents() {
     if ($env{'request.state'} eq 'construct' ||      if ($env{'request.state'} eq 'construct' ||
  $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }   $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
Line 681  sub unloadevents() { Line 860  sub unloadevents() {
     return 'LONCAPAstale();';      return 'LONCAPAstale();';
 }  }
   
 # ============================================================= Start up remote  
   
 sub startupremote {  sub startupremote {
     my ($lowerurl)=@_;      my ($lowerurl)=@_;
     if (($env{'browser.interface'} eq 'textual') ||      if ($env{'environment.remote'} eq 'off') {
         ($env{'environment.remote'} eq 'off')) {  
      return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');       return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');
     }      }
 #  #
Line 697  sub startupremote { Line 874  sub startupremote {
     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 type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
 var timestart;  var timestart;
 function wheelswitch() {  function wheelswitch() {
     if (typeof(document.wheel) != 'undefined') {      if (typeof(document.wheel) != 'undefined') {
Line 747  function main() { Line 925  function main() {
    wait();     wait();
 }  }
   
   // ]]>
 </script>  </script>
 ENDREMOTESTARTUP  ENDREMOTESTARTUP
 }  }
Line 754  ENDREMOTESTARTUP Line 933  ENDREMOTESTARTUP
 sub setflags() {  sub setflags() {
     return(<<ENDSETFLAGS);      return(<<ENDSETFLAGS);
 <script type="text/javascript">  <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') ||      if ($env{'environment.remote'} eq 'off') { return ''; }
         ($env{'environment.remote'} eq 'off')) { return ''; }  
     return(<<ENDMAINCALL);      return(<<ENDMAINCALL);
 <script type="text/javascript">  <script type="text/javascript">
   // <![CDATA[
     main();      main();
   // ]]>
 </script>  </script>
 ENDMAINCALL  ENDMAINCALL
 }  }
Line 773  ENDMAINCALL Line 955  ENDMAINCALL
 sub load_remote_msg {  sub load_remote_msg {
     my ($lowerurl)=@_;      my ($lowerurl)=@_;
   
     if (($env{'browser.interface'} eq 'textual') ||      if ($env{'environment.remote'} eq 'off') { return ''; }
         ($env{'environment.remote'} eq 'off')) { return ''; }  
   
     my $esclowerurl=&escape($lowerurl);      my $esclowerurl=&escape($lowerurl);
     my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode',      my $link=&mt('[_1]Continue[_2] on in Inline Menu mode'
  "/adm/remote?action=collapse&amp;url=$esclowerurl");                  ,'<a href="/adm/remote?action=collapse&amp;url='.$esclowerurl.'">'
                   ,'</a>');
     return(<<ENDREMOTEFORM);      return(<<ENDREMOTEFORM);
 <p>  <p>
 <form name="wheel">  <form name="wheel">
Line 788  sub load_remote_msg { Line 970  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') ||     if ($env{'environment.remote'} eq 'off') { return ''; }
        ($env{'environment.remote'} eq 'off')) { return ''; }     my $menuname = &get_menu_name();
    my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};  
    my $nothing = &Apache::lonhtmlcommon::javascript_nothing();     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') ||      if ($env{'environment.remote'} eq 'off') { 
         ($env{'environment.remote'} eq 'off')) {    return
  return '<script type="text/javascript">self.name="loncapaclient";</script>';          '<script type="text/javascript">'."\n"
          .'// <![CDATA['."\n"
          .'self.name="loncapaclient";'."\n"
          .'// ]]>'."\n"
          .'</script>';
     }      }
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};      my $menuname = &get_menu_name();
           
 #    unless (shift eq 'unix') {  #    unless (shift eq 'unix') {
 # resizing does not work on linux because of virtual desktop sizes  # resizing does not work on linux because of virtual desktop sizes
Line 817  sub open { Line 1007  sub open {
 #}  #}
 #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=375,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 type="text/javascript">'.$returnval.'</script>';      return '<script type="text/javascript">'.$returnval.'</script>';
 }  }
Line 831  ENDOPEN Line 1023  ENDOPEN
   
 sub clear {  sub clear {
     my ($row,$col)=@_;      my ($row,$col)=@_;
     unless (($env{'browser.interface'} eq 'textual') ||      unless ($env{'environment.remote'} eq 'off') {
             ($env{'environment.remote'} eq 'off')) {         if (($row<1) || ($row>13)) { return ''; }
        return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););         return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););
    } else {      } else { 
        $inlineremote[10*$row+$col]='';         $inlineremote[10*$row+$col]='';
Line 851  sub switch { Line 1043  sub switch {
     $top=&mt($top);      $top=&mt($top);
     $bot=&mt($bot);      $bot=&mt($bot);
     $desc=&mt($desc);      $desc=&mt($desc);
     $img=&mt($img);      if (($env{'environment.remote'} ne 'off') || ($env{'environment.icons'} eq 'classic')) {
          $img=&mt($img);
       }
     my $idx=10*$row+$col;      my $idx=10*$row+$col;
     $category_members{$cat}.=':'.$idx;      $category_members{$cat}.=':'.$idx;
   
     unless (($env{'browser.interface'} eq 'textual')  ||      unless ($env{'environment.remote'} eq 'off') {
             ($env{'environment.remote'} eq 'off')) {         if (($row<1) || ($row>13)) { return ''; }
 # Remote  # Remote
        return "\n".         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 ''; }  
        my $text=$top.' '.$bot;  
        $text=~s/\s*\-\s*//gs;  
        if ($nobreak) {  
    $inlineremote[$idx]=  
        '<a href="javascript:'.$act.';">'.$text.'</a>';  
        } else {  
    $inlineremote[$idx]="\n<br />".  
        $desc.' <a href="javascript:'.$act.';">'.$text.'</a>';  
        }  
    } else {     } else {
 # Inline Remote  # Inline Remote
        if ($env{'environment.icons'} ne 'classic') {         if ($env{'environment.icons'} ne 'classic') {
Line 882  sub switch { Line 1063  sub switch {
        my $text=$top.' '.$bot;         my $text=$top.' '.$bot;
        $text=~s/\s*\-\s*//gs;         $text=~s/\s*\-\s*//gs;
   
        my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};  
        if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }  
        my $pic=         my $pic=
    '<img alt="'.$text.'" src="http://'.$ENV{'HTTP_HOST'}.     '<img alt="'.$text.'" src="'.
    ':'.$lonhttpdPort.'/res/adm/pages/'.$img.'" align="'.     &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
    ($nobreak==3?'right':'left').'" />';     '" align="'.($nobreak==3?'right':'left').'" class="LC_noBorder" />';
        if ($env{'browser.interface'} eq 'faketextual') {         if ($env{'browser.interface'} eq 'faketextual') {
 # Accessibility  # Main Menu
    if ($nobreak==3) {     if ($nobreak==3) {
        $inlineremote[$idx]="\n".         $inlineremote[$idx]="\n".
    '<td class="LC_menubuttons_text" align="right">'.$text.     '<td class="LC_menubuttons_text" align="right">'.$text.
    '</td><td class="LC_menubuttons_img" align="left">'.     '</td><td align="left">'.
    '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';     '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
    } elsif ($nobreak) {     } elsif ($nobreak) {
        $inlineremote[$idx]="\n<tr>".         $inlineremote[$idx]="\n<tr>".
    '<td class="LC_menubuttons_img" align="left">'.     '<td align="left">'.
    '<a href="javascript:'.$act.';">'.$pic.'</a></td>     '<a href="javascript:'.$act.';">'.$pic.'</a></td>
                     <td class="LC_menubuttons_text" align="left"><a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$text.'</span></a></td>';                      <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[$idx]="\n<tr>".         $inlineremote[$idx]="\n<tr>".
    '<td class="LC_menubuttons_img" align="left">'.     '<td align="left">'.
    '<a href="javascript:'.$act.';">'.$pic.     '<a href="javascript:'.$act.';">'.$pic.
    '</a></td><td class="LC_menubuttons_text" colspan="3">'.     '</a></td><td class="LC_menubuttons_text" colspan="3">'.
    '<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>';     '<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>';
Line 936  sub secondlevel { Line 1115  sub secondlevel {
 }  }
   
 sub openmenu {  sub openmenu {
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};      my $menuname = &get_menu_name();
     if (($env{'browser.interface'} eq 'textual') ||      if ($env{'environment.remote'} eq 'off') { return ''; }
         ($env{'environment.remote'} eq 'off')) { return ''; }  
     my $nothing = &Apache::lonhtmlcommon::javascript_nothing();      my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
     return "window.open(".$nothing.",'".$menuname."');";      return "window.open(".$nothing.",'".$menuname."');";
 }  }
Line 946  sub openmenu { Line 1124  sub openmenu {
 sub inlinemenu {  sub inlinemenu {
     undef(@inlineremote);      undef(@inlineremote);
     undef(%category_members);      undef(%category_members);
   # calling rawconfig with "1" will evaluate mydesk.tab, even if there is no active remote control
     &rawconfig(1);      &rawconfig(1);
     my $output='<table id="LC_mainmenu"><tr>';      my $output='<table id="LC_mainmenu"><tr>';
     for (my $col=1; $col<=2; $col++) {      for (my $col=1; $col<=2; $col++) {
         $output.='<td class="LC_mainmenu_column">';          $output.='<td class="LC_mainmenu_col_fieldset">';
         for (my $row=1; $row<=8; $row++) {          for (my $row=1; $row<=8; $row++) {
             foreach my $cat (keys(%category_members)) {              foreach my $cat (keys(%category_members)) {
                if ($category_positions{$cat} ne "$col,$row") { next; }                 if ($category_positions{$cat} ne "$col,$row") { next; }
                $output.='<table id="LC_menubuttons_mainmenu"><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';                 #$output.='<table><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';
                  $output.='<div class="LC_Box">';
          $output.='<h4 class="LC_hcell">'.&mt($category_names{$cat}).'</h4>';
                  $output.='<table>';
                my %active=();                 my %active=();
                foreach my $menu_item (split(/\:/,$category_members{$cat})) {                 foreach my $menu_item (split(/\:/,$category_members{$cat})) {
                   if ($inlineremote[$menu_item]) {                    if ($inlineremote[$menu_item]) {
Line 964  sub inlinemenu { Line 1146  sub inlinemenu {
                   $output.=$inlineremote[$item];                    $output.=$inlineremote[$item];
                }                 }
                $output.='</table>';                 $output.='</table>';
                  $output.='</div>';
             }              }
          }           }
          $output.="</td>";           $output.="</td>";
Line 973  sub inlinemenu { Line 1156  sub inlinemenu {
 }  }
   
 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') ||      unless ($env{'environment.remote'} eq 'off') {
             ($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 ';";
Line 986  sub rawconfig { Line 1173  sub rawconfig {
     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 $show_course=&Apache::loncommon::show_course();
     my $author=$env{'user.author'};      my $author=$env{'user.author'};
     my $crs='';      my $crs='';
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
Line 1007  sub rawconfig { Line 1195  sub rawconfig {
         $prt=~s/\$requested_domain/$requested_domain/g;          $prt=~s/\$requested_domain/$requested_domain/g;
         if ($category_names{$cat}!~/\w/) { $cat='oth'; }          if ($category_names{$cat}!~/\w/) { $cat='oth'; }
         my $type = &Apache::loncommon::course_type();          my $type = &Apache::loncommon::course_type();
         if ($type eq 'Group') {  #
             $desc = &convert_menu_function($desc,$type);  # I don't think we support this
         }  #
   #        if ($type eq 'Group') {
   #            $desc = &convert_menu_function($desc,$type);
   #        }
         if ($pro eq 'clear') {          if ($pro eq 'clear') {
     $output.=&clear($row,$col);      $output.=&clear($row,$col);
         } elsif ($pro eq 'any') {          } elsif ($pro eq 'any') {
Line 1025  sub rawconfig { Line 1216  sub rawconfig {
                $output.=&secondlevel(                 $output.=&secondlevel(
   $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);    $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)) {      if (&Apache::lonnet::allowed($1,$prt)) {
                $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);                 $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
Line 1049  sub rawconfig { Line 1250  sub rawconfig {
         } 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 'raa') && ($env{'request.role'}=~/^aa/)) || 
                     (($prt eq 'rau') && ($env{'request.role'}=~/^au/))) {                      (($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'}=~/($match_domain)\/($match_username)$/);                                 ($env{'request.role'}=~/($match_domain)\/($match_username)$/);
                     }                                             }                       
Line 1068  sub rawconfig { Line 1270  sub rawconfig {
                     }                      }
                 }                  }
             }              }
           } elsif ($pro eq 'tools') {
               my @tools = ('aboutme','blog','portfolio');
               if (grep(/^\Q$prt\E$/,@tools)) {
                   if (!&Apache::lonnet::usertools_access($env{'user.name'},
                                                          $env{'user.domain'},
                                                          $prt,undef,'tools')) {
                       $output.=&clear($row,$col);
                       next;
                   }
               } elsif (($prt eq 'reqcrsnsc') || ($prt eq 'reqcrsshc')) {
                   if (($prt eq 'reqcrsnsc') && ($show_course))   {
                       next;
                   }
                   if (($prt eq 'reqcrsshc') && (!$show_course)) {
                       next;
                   }
                   my $showreqcrs = &check_for_rcrs();
                   if (!$showreqcrs) {
                       $output.=&clear($row,$col);
                       next;
                   }
               }
               $prt='any';
               $output.=&secondlevel(
             $uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat);
         }          }
     }      }
     unless (($env{'browser.interface'} eq 'textual') ||      unless ($env{'environment.remote'} eq 'off') {
             ($env{'environment.remote'} eq 'off')) {  
        $output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";         $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");';
Line 1081  sub rawconfig { Line 1307  sub rawconfig {
     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') ||      if ($env{'environment.remote'} eq 'off') { return ''; }
         ($env{'environment.remote'} eq 'off')) { return ''; }      my $menuname = &get_menu_name();
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};  
     return(<<ENDCLOSE);      return(<<ENDCLOSE);
 <script type="text/javascript">  <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 1098  menu.autologout=0; Line 1346  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
 }  }
Line 1127  NAVCONTROL Line 1376  NAVCONTROL
   
 sub utilityfunctions {  sub utilityfunctions {
     my $caller = shift;      my $caller = shift;
     unless (($env{'browser.interface'} eq 'textual')  ||      unless ($env{'environment.remote'} eq 'off' || 
         ($env{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; }              $caller eq '/adm/menu') { 
               return ''; }
               
     my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));      my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
     $currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));      $currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));
           
Line 1284  function set_bookmark() { Line 1535  function set_bookmark() {
    bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');     bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');
    bmquery.document.write(     bmquery.document.write(
    '$start_page_bookmark'     '$start_page_bookmark'
    +"<center><form method='post'"     +'<center><form method="post"'
    +" name='newlink' action='/adm/bookmarks' target='bmquery' "     +' name="newlink" action="/adm/bookmarks" target="bmquery" '
    +">\\n <table width=340 height=150 "     +'> <table width="340" height="150" '
    +"bgcolor='ffffff' align=center><tr><td>Link Name:<br /><input "     +'bgcolor="#FFFFFF" align="center"><tr><td>Link Name:<br /><input '
    +"type='text' name='title' size=45 value='"+clienttitle+"' />"     +'type="text" name="title" size="45" value="'+clienttitle+'" />'
    +"<br />Address:<br /><input type='text' name='address' size='45' "     +'<br />Address:<br /><input type="text" name="address" size="45" '
    +"value='"+clienthref+"' /><br /><center><input type='submit' "     +'value="'+clienthref+'" /><br /><center><input type="submit" '
    +"value='Save' /> <input type='button' value='Close (no save)' "     +'value="Save" /> <input type="button" value="Close" '
    +"onclick='javascript:window.close();' /><\\/center><\\/td>"     +'onclick="javascript:window.close();" /></center></td>'
    +"<\\/tr><\\/table><\\/form><\\/center>"     +'</tr></table></form></center>'
    +'$end_page_bookmark' );     +'$end_page_bookmark' );
    bmquery.document.close();     bmquery.document.close();
 }  }
Line 1341  sub get_nav_status { Line 1592  sub get_nav_status {
     return $navstatus;      return $navstatus;
 }  }
   
 #FIXME this needs to move into mydesktab and the other locations   #FIXME this needs to move into mydesk.tab and the other locations 
 # the text is generated  # the text is generated
 sub convert_menu_function {  #
     my ($rolename,$type) = @_;  # We currently do not support this anyway.
     if ($type eq 'Group') {  #
         $rolename =~ s/student/member/g;  #sub convert_menu_function {
         $rolename =~ s/group/team/g;  #    my ($rolename,$type) = @_;
         $rolename =~ s/course/group/g;  #    if ($type eq 'Group') {
         $rolename =~ s/Course/Group/g;  #        $rolename =~ s/student/member/g;
     }  #        $rolename =~ s/group/team/g;
     return $rolename;  #        $rolename =~ s/course/group/g;
 }  #        $rolename =~ s/Course/Group/g;
   #    }
   #    return $rolename;
   #}
   
 sub hidden_button_check {  sub hidden_button_check {
     my $hidden;      my $hidden;
Line 1362  sub hidden_button_check { Line 1616  sub hidden_button_check {
     if ($env{'request.role.adv'}) {      if ($env{'request.role.adv'}) {
         return;          return;
     }      }
     return &Apache::lonnet::EXT('resource.0.buttonshide');       my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide');
       return $buttonshide; 
   }
   
   sub roles_selector {
       my ($cdom,$cnum) = @_;
       my $now = time;
       my (%courseroles,%seccount);
       my $is_cc;
       my $role_selector;
       if ($env{'user.role.cc./'.$cdom.'/'.$cnum}) {
           my ($start,$end) = split(/\./,$env{'user.role.cc./'.$cdom.'/'.$cnum});
           
           if ((($start) && ($start<0)) || 
               (($end) && ($end<$now))  ||
               (($start) && ($now<$start))) {
               $is_cc = 0;
           } else {
               $is_cc = 1;
           }
       }
       if ($is_cc) {
           &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount);
       } else {
           my %gotnosection;
           foreach my $item (keys(%env)) {
               if ($item =~ m-^user\.role\.([^.]+)\./\Q$cdom\E/\Q$cnum\E/?(\w*)$-) {
                   my $role = $1;
                   my $sec = $2;
                   next if ($role eq 'gr');
                   my ($start,$end) = split(/\./,$env{$item});
                   next if (($start && $start > $now) || ($end && $end < $now));
                   if ($sec eq '') {
                       if (!$gotnosection{$role}) {
                           $seccount{$role} ++;
                           $gotnosection{$role} = 1;
                       }
                   }
                   if (ref($courseroles{$role}) eq 'ARRAY') {
                       if ($sec ne '') {
                           if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) {
                               push(@{$courseroles{$role}},$sec);
                               $seccount{$role} ++;
                           }
                       }
                   } else {
                       @{$courseroles{$role}} = ();
                       if ($sec ne '') {
                           $seccount{$role} ++;
                           push(@{$courseroles{$role}},$sec);
                       }
                   }
               }
           }
       }
       my @roles_order = ('cc','in','ta','ep','ad','st');
       if (keys(%courseroles) > 1) {
           $role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles);
           $role_selector .= '<form name="rolechooser" method="post" action="/adm/roles">
                             <select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">';
           $role_selector .= '<option value="">'.&mt('Switch course role to...').'</option>';
           foreach my $role (@roles_order) {
               if (defined($courseroles{$role})) {
                   $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>'; 
               }
           }
           foreach my $role (sort(keys(%courseroles))) {
               if ($role =~ /^cr/) {
                   $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>'; 
               }
           }
           $role_selector .= '</select>'."\n".
                  '<input type="hidden" name="destinationurl" value="'.
                  &HTML::Entities::encode($ENV{'REQUEST_URI'}).'" />'."\n".
                  '<input type="hidden" name="gotorole" value="1" />'."\n".
                  '<input type="hidden" name="selectrole" value="" />'."\n".
                  '<input type="hidden" name="switch" value="1" />'."\n".
                  '</form>';
       }
       return $role_selector;
 }  }
   
   sub get_all_courseroles {
       my ($cdom,$cnum,$courseroles,$seccount) = @_;
       unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH')) {
           return;
       }
       my ($result,$cached) = 
           &Apache::lonnet::is_cached_new('getcourseroles',$cdom.'_'.$cnum);
       if (defined($cached)) {
           if (ref($result) eq 'HASH') {
               if ((ref($result->{'roles'}) eq 'HASH') && 
                   (ref($result->{'seccount'}) eq 'HASH')) {
                   %{$courseroles} = %{$result->{'roles'}};
                   %{$seccount} = %{$result->{'seccount'}};
                   return;
               }
           }
       }
       my %gotnosection;
       my %adv_roles =
            &Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1);
       foreach my $role (keys(%adv_roles)) {
           my ($urole,$usec) = split(/:/,$role);
           if (!$gotnosection{$urole}) {
               $seccount->{$urole} ++;
               $gotnosection{$urole} = 1;
           }
           if (ref($courseroles->{$urole}) eq 'ARRAY') {
               if ($usec ne '') {
                   if (!grep(/^Q$usec\E$/,@{$courseroles->{$urole}})) {
                       push(@{$courseroles->{$urole}},$usec);
                       $seccount->{$urole} ++;
                   }
               }
           } else {
               @{$courseroles->{$urole}} = ();
               if ($usec ne '') {
                   $seccount->{$urole} ++;
                   push(@{$courseroles->{$urole}},$usec);
               }
           }
       }
       my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']);
       @{$courseroles->{'st'}} = ();
       if (keys(%sections_count) > 0) {
           push(@{$courseroles->{'st'}},keys(%sections_count));
           $seccount->{'st'} = scalar(keys(%sections_count)); 
       }
       my $rolehash = {
                        'roles'    => $courseroles,
                        'seccount' => $seccount,
                      };
       &Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash);
       return;
   }
   
   sub jump_to_role {
       my ($cdom,$cnum,$seccount,$courseroles) = @_;
       my %lt = &Apache::lonlocal::texthash(
                   this => 'This role has section(s) associated with it.',
                   ente => 'Enter a specific section.',
                   orlb => 'Enter a specific section, or leave blank for no section.',
                   avai => 'Available sections are:',
                   youe => 'You entered an invalid section choice:',
                   plst => 'Please try again',
       );
       my $js;
       if (ref($courseroles) eq 'HASH') {
           $js = '    var secpick = new Array("'.$lt{'ente'}.'","'.$lt{'orlb'}.'");'."\n". 
                 '    var numsec = new Array();'."\n".
                 '    var rolesections = new Array();'."\n".
                 '    var rolenames = new Array();'."\n".
                 '    var roleseclist = new Array();'."\n";
           my @items = keys(%{$courseroles});
           for (my $i=0; $i<@items; $i++) {
               $js .= '    rolenames['.$i.'] = "'.$items[$i].'";'."\n";
               my ($secs,$secstr);
               if (ref($courseroles->{$items[$i]}) eq 'ARRAY') {
                   my @sections = sort { $a <=> $b } @{$courseroles->{$items[$i]}};
                   $secs = join('","',@sections);
                   $secstr = join(', ',@sections);
               }
               $js .= '    rolesections['.$i.'] = new Array("'.$secs.'");'."\n".
                      '    roleseclist['.$i.'] = "'.$secstr.'";'."\n".
                      '    numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n";
           }
       }
       return <<"END";
   <script type="text/javascript">
   //<![CDATA[
   function adhocRole(roleitem) {
       $js
       var newrole =  document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value;
       if (newrole == '') {
           return; 
       } 
       var fullrole = newrole+'./$cdom/$cnum';
       var selidx = '';
       for (var i=0; i<rolenames.length; i++) {
           if (rolenames[i] == newrole) {
               selidx = i;
           }
       }
       var secok = 1;
       var secchoice = '';
       if (selidx >= 0) {
           if (numsec[selidx] > 1) {
               secok = 0;
               var numrolesec = rolesections[selidx].length;
               var msgidx = numsec[selidx] - numrolesec;
               secchoice = prompt("$lt{'this'}\\n"+secpick[msgidx]+"\\n$lt{'avai'} "+roleseclist[selidx],"");
               if (secchoice == '') {
                   if (msgidx > 0) {
                       secok = 1;
                   }
               } else {
                   for (var j=0; j<rolesections[selidx].length; j++) {
                       if (rolesections[selidx][j] == secchoice) {
                           secok = 1;
                       }
                   }
               }
           } else {
               if (rolesections[selidx].length == 1) {
                   secchoice = rolesections[selidx][0];
               }
           }
       }
       if (secok == 1) {
           if (secchoice != '') {
               fullrole += '/'+secchoice;
           }
       } else {
           document.rolechooser.elements[roleitem].selectedIndex = 0;
           if (secchoice != null) {
               alert("$lt{'youe'} \\""+secchoice+"\\".\\n $lt{'plst'}");
           }
           return;
       }
       if (fullrole == "$env{'request.role'}") {
           return;
       }
       itemid = retrieveIndex('gotorole');
       if (itemid != -1) {
           document.rolechooser.elements[itemid].name = fullrole;
       }
       document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value = fullrole;
       document.rolechooser.selectrole.value = '1';
       document.rolechooser.submit();
       return;
   }
   
   function retrieveIndex(item) {
       for (var i=0;i<document.rolechooser.elements.length;i++) {
           if (document.rolechooser.elements[i].name == item) {
               return i;
           }
       }
       return -1;
   }
   // ]]>
   </script>
   END
   }
   
   
 # ================================================================ Main Program  # ================================================================ Main Program
   
 BEGIN {  BEGIN {
Removed from v.1.222  
changed lines
  Added in v.1.282

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.