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

Diff for /loncom/interface/lonmenu.pm between versions 1.100 and 1.227

version 1.100, 2003/11/10 16:41:31 version 1.227, 2007/09/11 23:37:58
Line 40  package Apache::lonmenu; Line 40  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::File;  use Apache::lonenc();
 use Apache::lonlocal;  use Apache::lonlocal;
   use LONCAPA qw(:DEFAULT :match);
   
 use vars qw(@desklines $readdesk);  use vars qw(@desklines %category_names %category_members %category_positions $readdesk);
   
   
 my @inlineremote;  my @inlineremote;
 my $font;  
 my $tabbg;  
 my $pgbg;  
   
 # ================================================================ Little texts  # ================================================================ Little texts
   
Line 60  sub initlittle { Line 59  sub initlittle {
     return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',      return &Apache::lonlocal::texthash('ret' => 'Return to Last Location',
        'nav' => 'Navigate Contents',         'nav' => 'Navigate Contents',
        'main' => 'Main Menu',         'main' => 'Main Menu',
        'launch' => 'Launch Remote Control');                                         'roles' => ($env{'user.adv'}?
                                                       'Roles':'Courses'),
                                          'docs' => 'Edit Course',
                                          'exit' => 'Exit',
                                          'login' => 'Log In',
          'launch' => 'Launch Remote Control',
                                          'groups' => 'Groups',
                                          'gdoc' => 'Group Documents',
                                          );
 }  }
   
 # ============================= This gets called at the top of the body section  # ============================= This gets called at the top of the body section
   
 sub menubuttons {  sub menubuttons {
     my $forcereg=shift;      my $forcereg=shift;
     my $target  =shift;  
     my $registration=shift;      my $registration=shift;
       my $titletable=shift;
       &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
       ['inhibitmenu']);
       if (($env{'form.inhibitmenu'} eq 'yes') ||
           ($ENV{'REQUEST_URI'} eq '/adm/logout')) { return ''; }
   
       if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }
   
       my %lt=&initlittle();
     my $navmaps='';      my $navmaps='';
     my $reloadlink='';      my $reloadlink='';
     my $escurl=&Apache::lonnet::escape($ENV{'request.noversionuri'});      my $docs='';
     my $escsymb=&Apache::lonnet::escape($ENV{'request.symb'});      my $groups='';
     if ($ENV{'browser.interface'} eq 'textual') {      my $showgroups=0;
       my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));
       my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));
   
       my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");
       $logo = '<td class="LC_top_nav_logo"><a href="/adm/about.html"><img src="'.
    $logo.'" alt="LON-CAPA Logo" /></a></td>';
   
       if ($env{'request.state'} eq 'construct') {
           if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) {
               my $returnurl = $env{'request.filename'};
               $returnurl =~ s:^/home/([^/]+)/public_html/(.*)$:/priv/$1/$2:;
               $escurl = &escape($returnurl);
           }
       }
       if ($env{'request.course.id'}) {
           my %coursegroups;
           my $viewgrps_permission =
       &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
           if (!$viewgrps_permission) {
               %coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});
    }
           if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) {
               $showgroups = 1;
           }
       }
   
       if ($env{'browser.interface'} eq 'textual') {
 # Textual display only  # Textual display only
  my %lt=&initlittle();          if ($env{'request.course.id'}) {
         if ($ENV{'request.course.id'}) {  
     $navmaps=(<<ENDNAV);      $navmaps=(<<ENDNAV);
 <a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top">$lt{'nav'}</a>  <a href="/adm/navmaps?postdata=$escurl&amp;postsymb=$escsymb" target="_top">$lt{'nav'}</a>
 ENDNAV  ENDNAV
             if (($ENV{'request.noversionuri'}=~/^\/adm\//) &&              if (($env{'request.noversionuri'}=~/^\/adm\//) &&
          ($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&           ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
          ($ENV{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) {           ($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) {
                 my $escreload=&Apache::lonnet::escape('return:');                  my $escreload=&escape('return:');
                 $reloadlink=(<<ENDRELOAD);                  $reloadlink=(<<ENDRELOAD);
 <a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a>  <a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a>
 ENDRELOAD  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);   my $output=(<<ENDMAINMENU);
 <script>  <script type="text/javascript">
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
   $utility
 </script>  </script>
   <div id="LC_top_nav">
 <a href="/adm/menu" target="_top">$lt{'main'}</a>  <a href="/adm/menu" target="_top">$lt{'main'}</a>
 $reloadlink $navmaps<br />  $reloadlink $navmaps $docs $groups
 <script>  <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  // END LON-CAPA Internal
 </script>  </script>
   $form
 ENDMAINMENU  ENDMAINMENU
         if ($registration) { $output.=&innerregister($forcereg,$target); }          if ($registration) { $output.=&innerregister($forcereg); }
  return $output."<hr />";   return $output."<hr />";
     } elsif ($ENV{'environment.remote'} eq 'off') {      } 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 $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();          my $domain=&Apache::loncommon::determinedomain();
         $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);   my $function =&Apache::loncommon::get_users_function();
         $tabbg=&Apache::loncommon::designparm($function.'.tabbg',$domain);  
         $font=&Apache::loncommon::designparm($function.'.font',$domain);  
         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);
      <table id="LC_top_nav">
       <tr>
         $logo
         <td></td>
         <td class="LC_top_nav_login">
           <a href="/adm/roles" target="_top">$lt{'login'}</a>
        </td>
       </tr>
     </table>
   </font>
   ENDINLINEMENU
           }
 # Do we have a NAV link?  # Do we have a NAV link?
         if ($ENV{'request.course.id'}) {          if ($env{'request.course.id'}) {
     $navmaps=(<<ENDNAVREM);      my $link='/adm/navmaps?postdata='.$escurl.'&amp;postsymb='.
 <td bgcolor="$tabbg">   $escsymb;
 <a href="/adm/navmaps?postdata=$escurl&postsymb=$escsymb" target="_top"><font color="$font">$lt{'nav'}</font></a></td>      if ($env{'environment.remotenavmap'} eq 'on') {
 ENDNAVREM   $link="javascript:gonav('".$link."')";
             if (($ENV{'request.noversionuri'}=~/^\/adm\//) &&      }
                 ($ENV{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&      $navmaps=(<<ENDNAV);
          ($ENV{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) {  <td><a href="$link" target="_top">$lt{'nav'}</a></td>
                 my $escreload=&Apache::lonnet::escape('return:');  ENDNAV
   my $is_group = (&Apache::loncommon::course_type() eq 'Group');
       if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
                   my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'};
    $docs=(<<ENDDOCS);
   <td><a href="/adm/coursedocs" target="_top">$text</a></td>
   ENDDOCS
               }
               if ($showgroups) {
                   $groups =(<<ENDGROUPS);
   <td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td>
   ENDGROUPS
               }
       if (
    ($env{'request.noversionuri'}=~m[^/(res|public)/] &&
    $env{'request.symb'} eq '')
    ||
    (($env{'request.noversionuri'}=~/^\/adm\//) &&
    ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&
    ($env{'request.noversionuri'}!~
           m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)])
     )
    ) {
                   my $escreload=&escape('return:');
                 $reloadlink=(<<ENDRELOAD);                  $reloadlink=(<<ENDRELOAD);
 <td bgcolor="$tabbg">  <td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>
 <a href="/adm/flip?postdata=$escreload" target="_top"><font color="$font">$lt{'ret'}</font></a></td>  
 ENDRELOAD  ENDRELOAD
             }              }
         }          }
    if (($env{'request.state'} eq 'construct') && ($env{'request.course.id'})) {
       my $escreload=&escape('return:');
       $reloadlink=(<<ENDCRELOAD);
   <td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>
   ENDCRELOAD
           }
         my $reg='';          my $reg='';
         if ($registration) {          if ($registration) {
            $reg=&innerregister($forcereg,$target);             $reg=&innerregister($forcereg,$titletable);
         }          }
           my $form=&serverform();
    my $utility=&utilityfunctions();
    my $remote;
    if ($env{'user.adv'}) {
       $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');
  return (<<ENDINLINEMENU);   return (<<ENDINLINEMENU);
 <script>  <script type="text/javascript">
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
   // <![CDATA[
   $utility
   // ]]>
 </script>  </script>
 <font face="Arial,Helvetica,sans-serif"><table bgcolor="$pgbg" width="100%" border="0" cellpadding="1" cellspacing="1">  <table id="LC_top_nav">
 <tr>  <tr>
 <td bgcolor="$tabbg">  $logo
 <a href="/adm/menu" target="_top"><font color="$font">$lt{'main'}</font></a>  <td><a href="/adm/menu" target="_top">$lt{'main'}</a></td>
 </td>  
 $reloadlink  $reloadlink
 $navmaps  $navmaps
 <td bgcolor="$tabbg">  $docs
 <a href="/adm/remote?action=launch&url=$escurl" target="_top">  $groups
 <font color="$font">$lt{'launch'}</font></a></td>  $remote
 <td bgcolor="$tabbg">  <td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td>
 <img align="right" src="/adm/lonIcons/minilogo.gif" />  <td class="LC_top_nav_help">$helplink</td>
 <b>LON-CAPA</b></td>  <td class="LC_top_nav_exit"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>
 </tr>  </tr>
 </table>  </table>
 </font>  $form
 <script>  <script type="text/javascript">
 // END LON-CAPA Internal  // END LON-CAPA Internal
 </script>  </script>
 $reg  $reg
Line 177  ENDINLINEMENU Line 277  ENDINLINEMENU
 # ====================================== This gets called in the header section  # ====================================== This gets called in the header section
   
 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{'browser.interface'} eq 'textual') ||
         $result .="<script type=\"text/javascript\">\n".          ($env{'environment.remote'} eq 'off') ||
             "if (typeof swmenu != 'undefined') {swmenu.currentURL=null;}\n".          ((($env{'request.publicaccess'}) || 
             &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 $result.
           '<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</script>'.$force_title;            '<script type="text/javascript">function LONCAPAreg(){;} function LONCAPAstale(){}</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;
 }  }
   
Line 212  sub registerurl { Line 303  sub registerurl {
 # =========== and in the body of the document  # =========== and in the body of the document
   
 sub innerregister {  sub innerregister {
     my $forcereg=shift;      my ($forcereg, $titletable) = @_;
     my $target = shift;  
     my $result = '';      my $result = '';
     if ($ENV{'request.noversionuri'} eq '/res/adm/pages/menu.html') { return ''; }      my ($uname,$thisdisfn);
       my $const_space = ($env{'request.state'} eq 'construct');
       my $is_const_dir = 0;
   
       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 $textinter=($env{'browser.interface'} eq 'textual');
     my $noremote=($ENV{'environment.remote'} eq 'off');      my $noremote=($env{'environment.remote'} eq 'off');
           
     my $textual=($textinter || $noremote);      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) {      if ($noremote) {
  $newmail='<font face="Arial,Helvetica,sans-serif"><table bgcolor="'.$pgbg.'" border="0" cellspacing="1" cellpadding="1" width="100%"><tr><td bgcolor="'.$tabbg.'">';   $newmail='<table id="LC_nav_location"><tr>';
     }      }
     if (($textual) && ($ENV{'request.symb'}) && ($ENV{'request.course.id'})) {      if (&Apache::lonmsg::newmail()) { 
  my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($ENV{'request.symb'});   if ($textual) {
         $newmail.=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};      $newmail.= '<td class="LC_new_mail">
                      <a href="/adm/communicate" target="_top">'.
      &mt('You have new messages').'</a></td>';
    } else {
       $newmail= 'swmenu.setstatus("you have","messages");';
    }
       } elsif (($textual) 
        && ($env{'request.symb'}) 
        && ($env{'request.course.id'})) {
    $newmail.= '<td class="LC_current_location">';
    my ($mapurl,$rid,$resurl)=
       &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
           $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($resurl);   my $restitle=&Apache::lonnet::gettitle(&Apache::lonnet::symbread());
         if ($maptitle) {          if ($maptitle && $maptitle ne 'default.sequence') {
     $newmail.=', '.$maptitle;      $newmail.=', '.$maptitle;
         }          }
         if ($restitle) {          if ($restitle) {
     $newmail.=': '.$restitle;      $newmail.=': '.$restitle;
         }          }
         $newmail.='&nbsp;&nbsp;&nbsp;';          $newmail.='&nbsp;&nbsp;&nbsp;</td>';
     }      }
     if (&Apache::lonmsg::newmail()) {       if ($env{'request.state'} eq 'construct') {
        $newmail=($textual?          $newmail = $titletable;
  '<b><a href="/adm/communicate" target="_top">You have new messages</a></b><br />':      } else {
                           'swmenu.setstatus("you have","messages");');   if ($noremote) {
     }      $newmail.='</tr></table>';
     if ($noremote) {   }
  $newmail.='</td></tr></table></font>';  
     }      }
     my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');      my $timesync=($textual?'':'swmenu.syncclock(1000*'.time.');');
     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 $tablestart=($noremote?'<table id="LC_menubuttons">':'').
     my $tableend=($noremote?'</table></font>':'').($textinter?'<a name="content" />':'');   ($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'}!~/^\/(res\/)*adm\//) || ($forcereg)) {      if (($env{'request.noversionuri'}!~m|^/(res/)*adm/|) || ($forcereg)) {
 # -- This applies to homework problems for users with grading privileges  # -- This applies to homework problems for users with grading privileges
         my $hwkadd='';   my $crs='/'.$env{'request.course.id'};
         if    if ($env{'request.course.sec'}) {
       ($ENV{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form)$/) {      $crs.='_'.$env{'request.course.sec'};
     my $crs='/'.$ENV{'request.course.id'};   }
     if ($ENV{'request.course.sec'}) {   $crs=~s/\_/\//g;
         $crs.='_'.$ENV{'request.course.sec'};  
     }  
     $crs=~s/\_/\//g;  
   
     if (&Apache::lonnet::allowed('vgr',$crs)) {          my $hwkadd='';
  $hwkadd.=&switch('','',7,1,'subm.gif','view sub-','missions',          if ($env{'request.symb'} ne '' &&
                        "gocmd('/adm/grades','submission')",      $env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) {
        'View user submissions for this assessment resource');  
             }  
     if (&Apache::lonnet::allowed('mgr',$crs)) {      if (&Apache::lonnet::allowed('mgr',$crs)) {
  $hwkadd.=&switch('','',7,2,'pgrd.gif','problem','grades',   $hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_3]',
                        "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)) {
     if (&Apache::lonnet::allowed('opa',$crs)) {   $hwkadd.=&switch('','',7,2,'subm.gif','view sub-[_1]','missions[_1]',
  $hwkadd.=&switch('','',7,3,'pparm.gif','problem','parms',                         "gocmd('/adm/grades','submission')",
                        "gocmd('/adm/parmset','set')",         'View user submissions for this assessment resource');
                        'Modify deadlines, etc, for this assessment resource');  
             }              }
  }   }
    if ($env{'request.symb'} ne '' &&
       &Apache::lonnet::allowed('opa',$crs)) {
       $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',
        "gocmd('/adm/parmset','set')",
        'Modify parameter settings for this resource');
    }
 # -- End Homework  # -- End Homework
         ###          ###
         ### Determine whether or not to display the 'cstr' button for this          ### Determine whether or not to display the 'cstr' button for this
         ### resource          ### resource
         ###          ###
         my $editbutton = '';          my $editbutton = '';
         if ($ENV{'user.author'}) {          if ($env{'user.author'}) {
             if ($ENV{'request.role'}=~/^(ca|au)/) {              if ($env{'request.role'}=~/^(ca|au)/) {
                 # 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 resource 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'}=~/(\w+)\/(\w+)$/);                      ($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";
                 }                  }
                 # 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);
                 if ($home eq $Apache::lonnet::perlvar{'lonHostID'}) {   my $allowed=0;
                     $editbutton=&switch   my @ids=&Apache::lonnet::current_machine_ids();
                         ('','',6,1,$top,,$bottom,$action,$desc);   foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
    if (!$allowed) {
       $editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);
                 }                  }
             }              }
             ##              ##
Line 320  sub innerregister { Line 427  sub innerregister {
             my $cfile='';              my $cfile='';
             my $cfuname='';              my $cfuname='';
             my $cfudom='';              my $cfudom='';
             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/^(\w+)\/(\w+)/\/priv\/$2/;                  $file=~s/^($match_domain)\/($match_username)/\/priv\/$2/;
                 # Chech that the user has permission to edit this resource                  # Check that the user has permission to edit this resource
                 ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);                  ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$1);
                 if (defined($cfudom)) {                  if (defined($cfudom)) {
                     if (&Apache::lonnet::homeserver($cfuname,$cfudom)       my $home=&Apache::lonnet::homeserver($cfuname,$cfudom);
                         eq $Apache::lonnet::perlvar{'lonHostID'}) {      my $allowed=0;
       my @ids=&Apache::lonnet::current_machine_ids();
       foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
       if ($allowed) {
                         $cfile=$file;                          $cfile=$file;
                     }                      }
                 }                  }
             }                      }        
             # Finally, turn the button on or off              # Finally, turn the button on or off
             if ($cfile) {              if ($cfile && !$const_space) {
                 $editbutton=&switch                  $editbutton=&switch
                     ('','',6,1,'cstr.gif','edit','resource',                      ('','',6,1,'pcstr.gif','edit[_1]','resource[_2]',
                      "go('".$cfile."');","Edit this resource");                       "go('".$cfile."');","Edit this resource");
             } elsif ($editbutton eq '') {              } elsif ($editbutton eq '') {
                 $editbutton=&clear(6,1);                  $editbutton=&clear(6,1);
Line 344  sub innerregister { Line 454  sub innerregister {
         ###          ###
         ###          ###
 # Prepare the rest of the buttons  # Prepare the rest of the buttons
  my $menuitems=(<<ENDMENUITEMS);          my $menuitems;
           if ($const_space) {
       my ($uname,$thisdisfn) =
    ($env{'request.filename'}=~m|^/home/([^/]+)/public_html/(.*)|);
               my $currdir = '/priv/'.$uname.'/'.$thisdisfn;
               if ($currdir =~ m-/$-) {
                   $is_const_dir = 1;
               } else {
                   $currdir =~ s#[^/]+$##;
    my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
    my $esc_currdir = &Apache::loncommon::escape_single($currdir);
                   $menuitems=(<<ENDMENUITEMS);
   s&6&1&list.gif&list[_1]&dir[_1]&golist('$esc_currdir')&List current directory
   s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version
   s&6&3&pub.gif&publish[_1]&resource[_1]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource
   s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource
   s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document
   ENDMENUITEMS
               }
           } elsif ( defined($env{'request.course.id'}) && 
    $env{'request.symb'} ne '' ) {
       $menuitems=(<<ENDMENUITEMS);
 c&3&1  c&3&1
 s&2&1&back.gif&backward&&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
 s&2&3&forw.gif&forward&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&3  s&2&3&forw.gif&forward[_1]&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&&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&printout&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&bookmark&set_bookmark()&Set a bookmark for this resource&2  s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1
 s&9&3&anot.gif&anno-&tations&annotate()&Make notes and annotations about this resource&2  s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&&1
 ENDMENUITEMS  ENDMENUITEMS
         unless ($ENV{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {  
     $menuitems.=(<<ENDREALRES);              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {
 s&6&3&catalog.gif&catalog&info&catalog_info()&Show catalog information   if (!$env{'request.enc'}) {
 s&8&1&eval.gif&evaluate&this&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource      $menuitems.=(<<ENDREALRES);
 s&8&2&fdbk.gif&feedback&discuss&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource  s&6&3&catalog.gif&catalog[_1]&info[_1]&catalog_info()&Show catalog information
   ENDREALRES
                   }
           $menuitems.=(<<ENDREALRES);
   s&8&1&eval.gif&evaluate[_1]&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
   s&8&2&fdbk.gif&feedback[_1]&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/) {
       $menuitems .= (<<ENDMENUITEMS);
   s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
   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 ($textual) {
       my $addremote=0;
       foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } }
       my $inlinebuttons='';
       if ($addremote) {
 # Registered, textual output  # Registered, textual output
             my $utility=&utilityfunctions();   if ($env{'browser.interface'} eq 'textual') {
             my $form=&serverform();      $inlinebuttons=
             my $inlinebuttons=  
                         join('',map { (defined($_)?$_:'') } @inlineremote);                          join('',map { (defined($_)?$_:'') } @inlineremote);
    } else {
                       if ($env{'environment.icons'} eq 'iconsonly') {
                           $inlinebuttons=(<<ENDARROWSINLINE);
   <tr><td>
   $inlineremote[21] $inlineremote[23]
   ENDARROWSINLINE
                           if (&hidden_button_check() ne 'yes') {
                               $inlinebuttons .= (<<ENDINLINEICONS);
   $inlineremote[61] $inlineremote[63]
   $inlineremote[71] $inlineremote[72] $inlineremote[73]
   $inlineremote[81] $inlineremote[82] $inlineremote[83]
   $inlineremote[91] $inlineremote[92] $inlineremote[93]</td></tr>
   ENDINLINEICONS
                           }
                       } else {
    if ($inlineremote[21] ne '' || $inlineremote[23] ne '') {
       $inlinebuttons=(<<ENDFIRSTLINE);
   <tr><td>$inlineremote[21]</td><td>&nbsp;</td><td>$inlineremote[23]</td></tr>
   ENDFIRSTLINE
                           }
                           if (&hidden_button_check() ne 'yes') { 
       foreach my $row (6..9) {
    if ($inlineremote[${row}.'1'] ne ''
       || $inlineremote[$row.'2'] ne ''
       || $inlineremote[$row.'3'] ne '') {
       $inlinebuttons .= <<"ENDLINE";
   <tr><td>$inlineremote["${row}1"]</td><td>$inlineremote["${row}2"]</td><td>$inlineremote["${row}3"]</td></tr>
   ENDLINE
    }
       }
    }
       }
    }
       }
     $result =(<<ENDREGTEXT);      $result =(<<ENDREGTEXT);
 <script>  <script type="text/javascript">
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 $utility  
 </script>  </script>
 $timesync  $timesync
 $newmail  
 $tablestart  $tablestart
 $inlinebuttons  $inlinebuttons
 $tableend  $tableend
 $form  $newmail
 <script>  <script type="text/javascript">
 // END LON-CAPA Internal  // END LON-CAPA Internal
 </script>  </script>
   
 ENDREGTEXT  ENDREGTEXT
 # Registered, graphical output  # Registered, graphical output
         } else {          } else {
     my $requri=(split(/\?/,$ENV{'request.noversionuri'}))[0];      my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
     $requri=&Apache::lonnet::unescape($requri);      $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)'; }
     $result = (<<ENDREGTHIS);      $result = (<<ENDREGTHIS);
             
 <script language="JavaScript">  <script type="text/javascript">
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 var swmenu=null;  var swmenu=null;
   
Line 411  var swmenu=null; Line 603  var swmenu=null;
           $buttons            $buttons
   swmenu.currentURL="$requri";    swmenu.currentURL="$requri";
           swmenu.reloadURL=swmenu.currentURL+window.location.search;            swmenu.reloadURL=swmenu.currentURL+window.location.search;
           swmenu.currentSymb="$ENV{'request.symb'}";            swmenu.currentSymb="$cursymb";
           swmenu.reloadSymb="$ENV{'request.symb'}";            swmenu.reloadSymb="$cursymb";
           swmenu.currentStale=0;            swmenu.currentStale=0;
     $navstatus
           $hwkadd            $hwkadd
           $editbutton            $editbutton
     }      }
Line 425  var swmenu=null; Line 618  var swmenu=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,2);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>
 ENDREGTHIS  ENDREGTHIS
         }          }
Line 449  ENDDONOTREGTEXT Line 641  ENDDONOTREGTEXT
 # Not registered, graphical  # Not registered, graphical
            $result = (<<ENDDONOTREGTHIS);             $result = (<<ENDDONOTREGTHIS);
   
 <script language="JavaScript">  <script type="text/javascript">
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
 var swmenu=null;  var swmenu=null;
   
Line 483  ENDDONOTREGTHIS Line 675  ENDDONOTREGTHIS
 }  }
   
 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();';
 }  }
   
Line 496  sub unloadevents() { Line 690  sub unloadevents() {
   
 sub startupremote {  sub startupremote {
     my ($lowerurl)=@_;      my ($lowerurl)=@_;
     if (($ENV{'browser.interface'} eq 'textual') ||      if (($env{'browser.interface'} eq 'textual') ||
         ($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.'" />');
     }      }
 #  #
 # 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');
     return(<<ENDREMOTESTARTUP);      return(<<ENDREMOTESTARTUP);
 <script>  <script type="text/javascript">
   var timestart;
 function wheelswitch() {  function wheelswitch() {
       if (typeof(document.wheel) != 'undefined') {
    if (typeof(document.wheel.spin) != 'undefined') {
       var date=new Date();
       var waited=Math.round(30-((date.getTime()-timestart)/1000));
       document.wheel.spin.value=$message;
    }
       }
    if (window.status=='|') {      if (window.status=='|') { 
       window.status='/';         window.status='/'; 
    } else {     } else {
Line 546  function wait() { Line 747  function wait() {
 function main() {  function main() {
    canceltim=setTimeout('tim=1;',30000);     canceltim=setTimeout('tim=1;',30000);
    window.status='-';     window.status='-';
      var date=new Date();
      timestart=date.getTime();
    wait();     wait();
 }  }
   
Line 555  ENDREMOTESTARTUP Line 758  ENDREMOTESTARTUP
   
 sub setflags() {  sub setflags() {
     return(<<ENDSETFLAGS);      return(<<ENDSETFLAGS);
 <script>  <script type="text/javascript">
     menuloaded=0;      menuloaded=0;
     tim=0;      tim=0;
 </script>  </script>
Line 563  ENDSETFLAGS Line 766  ENDSETFLAGS
 }  }
   
 sub maincall() {  sub maincall() {
     if (($ENV{'browser.interface'} eq 'textual') ||      if (($env{'browser.interface'} eq 'textual') ||
         ($ENV{'environment.remote'} eq 'off')) { return ''; }          ($env{'environment.remote'} eq 'off')) { return ''; }
     return(<<ENDMAINCALL);      return(<<ENDMAINCALL);
 <script>  <script type="text/javascript">
     main();      main();
 </script>  </script>
 ENDMAINCALL  ENDMAINCALL
 }  }
   
   sub load_remote_msg {
       my ($lowerurl)=@_;
   
       if (($env{'browser.interface'} eq 'textual') ||
           ($env{'environment.remote'} eq 'off')) { return ''; }
   
       my $esclowerurl=&escape($lowerurl);
       my $link=&mt('<a href="[_1]">Continue</a> on in Inline Menu mode',
    "/adm/remote?action=collapse&amp;url=$esclowerurl");
       return(<<ENDREMOTEFORM);
   <p>
   <form name="wheel">
   <input name="spin" type="text" size="60" />
   </form>
   </p>
   <p>$link</p>
   ENDREMOTEFORM
   }
 # ================================================================= Reopen menu  # ================================================================= Reopen menu
   
 sub reopenmenu {  sub reopenmenu {
    if (($ENV{'browser.interface'} eq 'textual') ||     if (($env{'browser.interface'} eq 'textual') ||
        ($ENV{'environment.remote'} eq 'off')) { return ''; }         ($env{'environment.remote'} eq 'off')) { return ''; }
    my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};     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);');
Line 585  sub reopenmenu { Line 807  sub reopenmenu {
   
 sub open {  sub open {
     my $returnval='';      my $returnval='';
     if (($ENV{'browser.interface'} eq 'textual') ||      if (($env{'browser.interface'} eq 'textual') ||
         ($ENV{'environment.remote'} eq 'off')) { return ''; }          ($env{'environment.remote'} eq 'off')) { 
    return '<script type="text/javascript">self.name="loncapaclient";</script>';
       }
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};      my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
     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);
 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","$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>';
 }  }
   
   
Line 611  ENDOPEN Line 836  ENDOPEN
   
 sub clear {  sub clear {
     my ($row,$col)=@_;      my ($row,$col)=@_;
     unless (($ENV{'browser.interface'} eq 'textual') ||      unless (($env{'browser.interface'} eq 'textual') ||
             ($ENV{'environment.remote'} eq 'off')) {              ($env{'environment.remote'} eq 'off')) {
        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 625  sub clear { Line 850  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)=@_;
     $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);
     unless (($ENV{'browser.interface'} eq 'textual')  ||      $img=&mt($img);
             ($ENV{'environment.remote'} eq 'off')) {  
       my $idx=10*$row+$col;
       $category_members{$cat}.=':'.$idx;
   
       unless (($env{'browser.interface'} eq 'textual')  ||
               ($env{'environment.remote'} eq 'off')) {
 # 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') {     } elsif ($env{'browser.interface'} eq 'textual') {
 # Accessibility  # Accessibility
        if ($nobreak==2) { return ''; }         if ($nobreak==2) { return ''; }
        my $text=$top.' '.$bot;         my $text=$top.' '.$bot;
        $text=~s/\s*\-\s*//gs;         $text=~s/\s*\-\s*//gs;
        if ($nobreak) {         if ($nobreak) {
    $inlineremote[10*$row+$col]=     $inlineremote[$idx]=
        '<a href="javascript:'.$act.';">'.$text.'</a>';         '<a href="javascript:'.$act.';">'.$text.'</a>';
        } else {         } else {
    $inlineremote[10*$row+$col]="\n<br />".     $inlineremote[$idx]="\n<br />".
        $desc.' <a href="javascript:'.$act.';">'.$text.'</a>';         $desc.' <a href="javascript:'.$act.';">'.$text.'</a>';
        }         }
    } else {     } else {
 # Inline Remote  # Inline Remote
          if ($env{'environment.icons'} ne 'classic') {
             $img=~s/\.gif$/\.png/;
          }
        if ($nobreak==2) { return ''; }         if ($nobreak==2) { return ''; }
        my $text=$top.' '.$bot;         my $text=$top.' '.$bot;
        $text=~s/\s*\-\s*//gs;         $text=~s/\s*\-\s*//gs;
   
        my $pic=         my $pic=
    '<img border="0" alt="'.$text.'" src="/res/adm/pages/'.$img.'" />';     '<img alt="'.$text.'" src="'.
        if ($nobreak==3) {     &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
    $inlineremote[10*$row+$col]="\n".     '" align="'.($nobreak==3?'right':'left').'" />';
      '<td width="40%" align="right"><font color="'.$font.'" size="+1">'.$text.         if ($env{'browser.interface'} eq 'faketextual') {
      '</font></td><td width="10%" align="right" bgcolor="'.$tabbg.'">'.  # Accessibility
      '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';     if ($nobreak==3) {
        } elsif ($nobreak) {         $inlineremote[$idx]="\n".
    $inlineremote[10*$row+$col]="\n<tr>".     '<td class="LC_menubuttons_text" align="right">'.$text.
      '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.     '</td><td class="LC_menubuttons_img" align="left">'.
      '<a href="javascript:'.$act.';">'.$pic.     '<a href="javascript:'.$act.';">'.$pic.'</a></td></tr>';
      '</a></td><td width="40%" align="left"><font color="'.$font.'" size="+1">'.$text.'</font></td>';     } elsif ($nobreak) {
          $inlineremote[$idx]="\n<tr>".
      '<td class="LC_menubuttons_img" align="left">'.
      '<a href="javascript:'.$act.';">'.$pic.'</a></td>
                       <td class="LC_menubuttons_text" align="left"><a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$text.'</span></a></td>';
      } else {
          $inlineremote[$idx]="\n<tr>".
      '<td class="LC_menubuttons_img" align="left">'.
      '<a href="javascript:'.$act.';">'.$pic.
      '</a></td><td class="LC_menubuttons_text" colspan="3">'.
      '<a class="LC_menubuttons_link" href="javascript:'.$act.';"><span class="LC_menubuttons_inline_text">'.$desc.'</span></a></td></tr>';
      }
        } else {         } else {
    $inlineremote[10*$row+$col]="\n<tr>".  # Inline Menu
      '<td width="10%" align="left" bgcolor="'.$tabbg.'">'.             if ($env{'environment.icons'} eq 'iconsonly') {
      '<a href="javascript:'.$act.';">'.$pic.                $inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>';
      '</a></td><td colspan="3"><font color="'.$font.'">'.$desc.             } else {
      '</font></td></tr>';               $inlineremote[$idx]=
      '<a class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
      '<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>';
              }
        }         }
    }     }
     return '';      return '';
Line 679  sub switch { Line 927  sub switch {
 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;
Line 692  sub secondlevel { Line 940  sub secondlevel {
   
 sub openmenu {  sub openmenu {
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};      my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
     if (($ENV{'browser.interface'} eq 'textual') ||      if (($env{'browser.interface'} eq 'textual') ||
         ($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."');";
 }  }
   
 sub inlinemenu {  sub inlinemenu {
     @inlineremote=();      undef(@inlineremote);
     undef @inlineremote;      undef(%category_members);
     &rawconfig(1);      &rawconfig(1);
     return join('',map { (defined($_)?$_:'') } @inlineremote);      my $output='<table id="LC_mainmenu"><tr>';
       for (my $col=1; $col<=2; $col++) {
           $output.='<td class="LC_mainmenu_column">';
           for (my $row=1; $row<=8; $row++) {
               foreach my $cat (keys(%category_members)) {
                  if ($category_positions{$cat} ne "$col,$row") { next; }
                  $output.='<table id="LC_menubuttons_mainmenu"><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>';
                  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.="</td>";
       }
       $output.="</tr></table>";
       return $output;
 }  }
   
 sub rawconfig {  sub rawconfig {
     my $textualoverride=shift;      my $textualoverride=shift;
     my $output='';      my $output='';
     unless (($ENV{'browser.interface'} eq 'textual') ||      unless (($env{'browser.interface'} eq 'textual') ||
             ($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 ';";
     } 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 $author=$env{'user.author'};
     my $crs='';      my $crs='';
     if ($ENV{'request.course.id'}) {      if ($env{'request.course.id'}) {
        $crs='/'.$ENV{'request.course.id'};         $crs='/'.$env{'request.course.id'};
        if ($ENV{'request.course.sec'}) {         if ($env{'request.course.sec'}) {
    $crs.='_'.$ENV{'request.course.sec'};     $crs.='_'.$env{'request.course.sec'};
        }         }
        $crs=~s/\_/\//g;         $crs=~s/\_/\//g;
     }      }
     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;           $prt=~s/\$crs/$crs/g; 
         $prt=~s/\$requested_domain/$requested_domain/g;          $prt=~s/\$requested_domain/$requested_domain/g;
           if ($category_names{$cat}!~/\w/) { $cat='oth'; }
           my $type = &Apache::loncommon::course_type();
           if ($type eq 'Group') {
               $desc = &convert_menu_function($desc,$type);
           }
         if ($pro eq 'clear') {          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=~/^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);                 $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'}) {
                $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 =~ /^courseenv_(.*)$/) {
               my $key = $1;
               if ($env{'course.'.$env{'request.course.id'}.'.'.$key}) {
                   $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'}) &&
                 (&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 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 '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') {
        ($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;
                     my $home = &Apache::lonnet::homeserver($caname,$cadom);                      my $home = &Apache::lonnet::homeserver($caname,$cadom);
                     if ($home eq $Apache::lonnet::perlvar{'lonHostID'}) {      my $allowed=0;
                         $output.=switch($caname,$cadom,      my @ids=&Apache::lonnet::current_machine_ids();
                                         $row,$col,$img,$top,$bot,$act,$desc);      foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
       if ($allowed) {
                           $output.=&switch($caname,$cadom,
                                           $row,$col,$img,$top,$bot,$act,$desc,$cat);
                     }                      }
                 }                  }
             }              }
         }          }
     }      }
     unless (($ENV{'browser.interface'} eq 'textual') ||      unless (($env{'browser.interface'} eq 'textual') ||
             ($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()) { 
      $output.='swmenu.setstatus("you have","messages");';
          }
     }      }
   
     return $output;      return $output;
 }  }
   
 # ======================================================================= Close  # ======================================================================= Close
   
 sub close {  sub close {
     if (($ENV{'browser.interface'} eq 'textual') ||      if (($env{'browser.interface'} eq 'textual') ||
         ($ENV{'environment.remote'} eq 'off')) { return ''; }          ($env{'environment.remote'} eq 'off')) { return ''; }
     my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};      my $menuname='LCmenu'.$Apache::lonnet::perlvar{'lonHostID'};
     return(<<ENDCLOSE);      return(<<ENDCLOSE);
 <script>  <script type="text/javascript">
 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 824  sub footer { Line 1111  sub footer {
   
 }  }
   
   sub nav_control_js {
       my $nav=($env{'environment.remotenavmap'} eq 'on');
       return (<<NAVCONTROL);
       var w_loncapanav_flag="$nav";
   
   
   function gonav(url) {
      if (w_loncapanav_flag != 1) {
         gopost(url,'');
      }  else {
         navwindow=window.open(url,
                     "loncapanav","height=600,width=400,scrollbars=1"); 
      }
   }
   NAVCONTROL
   }
   
 sub utilityfunctions {  sub utilityfunctions {
     unless (($ENV{'browser.interface'} eq 'textual')  ||      my $caller = shift;
         ($ENV{'environment.remote'} eq 'off')) { return ''; }      unless (($env{'browser.interface'} eq 'textual')  ||
     my $currenturl=$ENV{'request.noversionuri'};          ($env{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; }
     my $currentsymb=$ENV{'request.symb'};      my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
       $currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));
       
       my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
       my $nav_control=&nav_control_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 $start_page_bookmark = 
           &Apache::loncommon::start_page('Bookmarks',undef,
          {'only_body' => 1,
    'js_ready'  => 1,
    'bgcolor'   => '#BBBBBB',});
   
       my $end_page_bookmark = 
           &Apache::loncommon::end_page({'js_ready' => 1});
   
 return (<<ENDUTILITY)  return (<<ENDUTILITY)
   
     var currentURL="$currenturl";      var currentURL="$currenturl";
     var reloadURL="$currenturl";      var reloadURL="$currenturl";
     var currentSymb="$currentsymb";      var currentSymb="$currentsymb";
   
   $nav_control
   
 function go(url) {  function go(url) {
    if (url!='' && url!= null) {     if (url!='' && url!= null) {
        currentURL = null;         currentURL = null;
Line 865  function gocmd(url,cmd) { Line 1196  function gocmd(url,cmd) {
    }     }
 }  }
   
   function gocstr(url,filename) {
       if (url == '/adm/cfile?action=delete') {
           this.document.cstrdelete.filename.value = filename
           this.document.cstrdelete.submit();
           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 !='') {
           this.document.constspace.filename.value = filename;
           this.document.constspace.action = url;
           this.document.constspace.submit();
       }
   }
   
   function golist(url) {
      if (url!='' && url!= null) {
          currentURL = null;
          currentSymb= null;
          top.location.href=url;
      }
   }
   
   
   
 function catalog_info() {  function catalog_info() {
    loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizeable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');     loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
 }  }
   
 function chat_win() {  function chat_win() {
    lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizeable=yes,location=no,menubar=no,toolbar=no');     lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');
   }
   
   function group_chat(group) {
      var url = '/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 edit_bookmarks() {
      go('');
      w_BookmarkPal_flag=1;
      bookmarkpal=window.open("/adm/bookmarks",
                  "BookmarkPal", "width=400,height=505,scrollbars=0");
   }
   
   function annotate() {
      w_Annotator_flag=1;
      annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');
      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 set_bookmark() {
      go('');
      clienttitle=document.title;
      clienthref=location.pathname;
      w_bmquery_flag=1;
      bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');
      bmquery.document.write(
      '$start_page_bookmark'
      +"<center><form method='post'"
      +" name='newlink' action='/adm/bookmarks' target='bmquery' "
      +">\\n <table width=340 height=150 "
      +"bgcolor='ffffff' align=center><tr><td>Link Name:<br /><input "
      +"type='text' name='title' size=45 value='"+clienttitle+"' />"
      +"<br />Address:<br /><input type='text' name='address' size='45' "
      +"value='"+clienthref+"' /><br /><center><input type='submit' "
      +"value='Save' /> <input type='button' value='Close (no save)' "
      +"onclick='javascript:window.close();' /><\\/center><\\/td>"
      +"<\\/tr><\\/table><\\/form><\\/center>"
      +'$end_page_bookmark' );
      bmquery.document.close();
 }  }
   
 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 886  sub serverform { Line 1314  sub serverform {
 </form>  </form>
 ENDSERVERFORM  ENDSERVERFORM
 }  }
 # ================================================ Handler when called directly  
   sub constspaceform {
       return(<<ENDCONSTSPACEFORM);
   <form name="constspace" action="/adm/logout" method="post" target="_top">
   <input type="hidden" name="filename" value="" />
   </form>
   <form name="cstrdelete" action="/adm/cfile" method="post" target="_top">
   <input type="hidden" name="action" value="delete" /> 
   <input type="hidden" name="filename" value="" />
   </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
   }
   
   
 sub handler {  sub get_nav_status {
     my $r = shift;      my $navstatus="swmenu.w_loncapanav_flag=";
     &Apache::loncommon::content_type($r,'text/html');      if ($env{'environment.remotenavmap'} eq 'on') {
     $r->send_http_header;   $navstatus.="1";
     return OK if $r->header_only;      } else {
    $navstatus.="-1";
     my $form=&serverform();      }
     my $bodytag=&Apache::loncommon::bodytag('Main Menu');      return $navstatus;
     my $function='student';  }
     if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {  
  $function='coordinator';  #FIXME this needs to move into mydesktab and the other locations 
     }  # the text is generated
     if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {  sub convert_menu_function {
  $function='admin';      my ($rolename,$type) = @_;
     }      if ($type eq 'Group') {
     if (($ENV{'request.role'}=~/^(au|ca)/) ||          $rolename =~ s/student/member/g;
  ($ENV{'request.noversionuri'}=~/^(\/priv|\~)/)) {          $rolename =~ s/group/team/g;
  $function='author';          $rolename =~ s/course/group/g;
     }          $rolename =~ s/Course/Group/g;
     my $domain=&Apache::loncommon::determinedomain();      }
     $pgbg=&Apache::loncommon::designparm($function.'.pgbg',$domain);      return $rolename;
     $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  sub hidden_button_check {
     unless ($ENV{'brower.interface'} eq 'textual') {      my $hidden;
  $ENV{'environment.remote'}='off';      if ($env{'request.course.id'} eq '') {
     }          return;
     my $utility=&utilityfunctions();      }
     $r->print(<<ENDHEADER);      if ($env{'request.role.adv'}) {
 <html><head>          return;
 <title>LON-CAPA Main Menu</title>      }
 <script>      return &Apache::lonnet::EXT('resource.0.buttonshide'); 
 $utility  
 </script>  
 </head>  
 $bodytag  
 ENDHEADER  
     $r->print('<table>'.&inlinemenu().'</table>'.$form);  
     $r->print('</body></html>');  
     return OK;  
 }  }
   
 # ================================================================ Main Program  # ================================================================ Main Program
   
 BEGIN {  BEGIN {
   if (! defined($readdesk)) {      if (! defined($readdesk)) {
    {   {
     my $config=Apache::File->new($Apache::lonnet::perlvar{'lonTabDir'}.      my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';
   '/mydesk.tab');      if ( CORE::open( my $config,"<$tabfile") ) {
     while (my $configline=<$config>) {   while (my $configline=<$config>) {
        $configline=(split(/\#/,$configline))[0];      $configline=(split(/\#/,$configline))[0];
        $configline=~s/^\s+//;      $configline=~s/^\s+//;
        chomp($configline);      chomp($configline);
        if ($configline) {                      if ($configline=~/^cat\:/) {
           $desklines[$#desklines+1]=$configline;                         my @entries=split(/\:/,$configline);
        }                         $category_positions{$entries[2]}=$entries[1];
                          $category_names{$entries[2]}=$entries[3];
       } elsif ($configline) {
    push(@desklines,$configline);
       }
    }
    CORE::close($config);
       }
    }
    $readdesk='done';
     }      }
    }  
    $readdesk='done';  
   }  
 }  }
   
 1;  1;
Removed from v.1.100  
changed lines
  Added in v.1.227

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.