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

Diff for /loncom/interface/lonmenu.pm between versions 1.244.2.18 and 1.369.2.1

version 1.244.2.18, 2010/08/20 17:59:04 version 1.369.2.1, 2012/05/13 23:45:07
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  
 # control, otherwise they render the main window controls; ignored it  
 # browser.interface is 'textual'  
 #  #
   
 =head1 NAME  =head1 NAME
Line 47  Coordinates the response to clicking an Line 40  Coordinates the response to clicking an
 This is part of the LearningOnline Network with CAPA project  This is part of the LearningOnline Network with CAPA project
 described at http://www.lon-capa.org.  described at http://www.lon-capa.org.
   
 =head1 SUBROUTINES  =head1 GLOBAL VARIABLES
   
 =over  =over
   
 =item show_course()  =item @desklines
   
 Little texts  Each element of this array contains a line of mydesk.tab that doesn't start with
   cat, prim or scnd. 
   It gets filled in the BEGIN block of this module.
   
 =item initlittle()  =item %category_names
   
 =item menubuttons()  The keys of this hash are the abbreviations used in mydesk.tab in those lines that 
   start with cat, the values are strings representing titles. 
   It gets filled in the BEGIN block of this module.
   
 This gets called at the top of the body section  =item %category_members
   
 =item show_return_link()  TODO 
   
 =item registerurl()  =item %category_positions
   
 This gets called in the header section  The keys of this hash are the abbreviations used in mydesk.tab in those lines that
   start with cat, its values are position vectors (column, row). 
   It gets filled in the BEGIN block of this module.
   
 =item innerregister()  =item $readdesk
   
   Indicates that mydesk.tab has been read. 
   It is set to 'done' in the BEGIN block of this module.
   
   =item @primary_menu
   
   The elements of this array reference arrays that are made up of the components
   of those lines of mydesk.tab that start with prim.
   It is used by primary_menu() to generate the corresponding menu.
   It gets filled in the BEGIN block of this module.
   
   =item @secondary_menu
   
 This gets called in order to register a URL, both with the Remote  The elements of this array reference arrays that are made up of the components
 and in the body of the document  of those lines of mydesk.tab that start with scnd.
   It is used by secondary_menu() to generate the corresponding menu.
   It gets filled in the BEGIN block of this module.
   
 =item loadevents()  =back
   
   =head1 SUBROUTINES
   
 =item unloadevents()  =over
   
 =item startupremote()  =item prep_menuitems(\@menuitem)
   
 =item setflags()  This routine wraps a menuitem in proper HTML. It is used by primary_menu() and 
   secondary_menu().
   
 =item maincall()  =item primary_menu()
   
 =item load_remote_msg()  This routine evaluates @primary_menu and returns XHTML for the menu
   that contains following links: About, Message, Roles, Help, Logout
   @primary_menu is filled within the BEGIN block of this module with 
   entries from mydesk.tab 
   
 =item get_menu_name()  =item secondary_menu()
   
 =item reopenmenu()  Same as primary_menu() but operates on @secondary_menu.
   
 =item open()  =item innerregister()
   
 Open the menu  This gets called in order to register a URL in the body of the document
   
 =item clear()  =item clear()
   
Line 108  The javascript is usually similar to "go Line 127  The javascript is usually similar to "go
   
 =item rawconfig()  =item rawconfig()
   
 =item close()  
   
 =item footer()  
   
 =item utilityfunctions()  =item utilityfunctions()
   
 =item serverform()  =item serverform()
Line 138  use Apache::lonhtmlcommon(); Line 153  use Apache::lonhtmlcommon();
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonenc();  use Apache::lonenc();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonmsg();
 use LONCAPA qw(:DEFAULT :match);  use LONCAPA qw(:DEFAULT :match);
 use HTML::Entities();  use HTML::Entities();
   use Apache::lonwishlist();
   
 use vars qw(@desklines %category_names %category_members %category_positions $readdesk);  use vars qw(@desklines %category_names %category_members %category_positions 
               $readdesk @primary_menu @secondary_menu);
   
 my @inlineremote;  my @inlineremote;
   
   sub prep_menuitem {
       my ($menuitem) = @_;
       return '' unless(ref($menuitem) eq 'ARRAY');
       my $link;
       if ($$menuitem[1]) { # graphical Link
           $link = "<img class=\"LC_noBorder\""
                 . " src=\"" . &Apache::loncommon::lonhttpdurl($$menuitem[1]) . "\"" 
                 . " alt=\"" . &mt($$menuitem[2]) . "\" />";
       } else {             # textual Link
           $link = &mt($$menuitem[3]);
       }
       return '<li><a' 
              # highlighting for new messages
              . ( $$menuitem[4] eq 'newmsg' ? ' class="LC_new_message"' : '') 
              . qq| href="$$menuitem[0]" target="_top">$link</a></li>|;
   }
   
   # primary_menu() evaluates @primary_menu and returns XHTML for the menu
   # that contains following links:
   # About, Message, Roles, Help, Logout
   # @primary_menu is filled within the BEGIN block of this module with 
   # entries from mydesk.tab
   sub primary_menu {
       my $menu;
       # each element of @primary contains following array:
       # (link url, icon path, alt text, link text, condition)
       my $public;
       if ((($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public'))
           || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
           $public = 1;
       }
       foreach my $menuitem (@primary_menu) {
           # evaluate conditions 
           next if    ref($menuitem)       ne 'ARRAY';    #
           next if    $$menuitem[4]        eq 'nonewmsg'  # show links depending on
                   && &Apache::lonmsg::mynewmail();       # whether a new msg 
           next if    $$menuitem[4]        eq 'newmsg'    # arrived or not
                   && !&Apache::lonmsg::mynewmail();      # 
           next if    $$menuitem[4]        !~ /public/    ##we've a public user,
                   && $public;                            ##who should not see all
                                                          ##links
           next if    $$menuitem[4]        eq 'onlypublic'# hide links which are 
                   && !$public;                           # only visible to public
                                                          # users
           next if    $$menuitem[4]        eq 'roles'     ##show links depending on
                   && &Apache::loncommon::show_course();  ##term 'Courses' or 
           next if    $$menuitem[4]        eq 'courses'   ##'Roles' wanted
                   && !&Apache::loncommon::show_course(); ##
           
               
           if ($$menuitem[3] eq 'Help') { # special treatment for helplink
               if ($public) {
                   my $origmail = $Apache::lonnet::perlvar{'lonSupportEMail'};
                   my $defdom = &Apache::lonnet::default_login_domain();
                   my $to = &Apache::loncommon::build_recipient_list(undef,
                                                                     'helpdeskmail',
                                                                     $defdom,$origmail);
                   if ($to ne '') {
                       $menu .= &prep_menuitem($menuitem); 
                   }
               } else {
                   $menu .= '<li>'.&Apache::loncommon::top_nav_help('Help').'</li>';
               }
           } else {
               $menu .= prep_menuitem($menuitem);
           }
       }
       $menu =~ s/\[domain\]/$env{'user.domain'}/g;
       $menu =~ s/\[user\]/$env{'user.name'}/g;
   
       return "<ol class=\"LC_primary_menu LC_right\">$menu</ol>";
   }
   
 sub show_course {  #returns hashref {user=>'',dom=>''} containing:
     my $course = !$env{'user.adv'};  #   own name, domain if user is au
     if (!$env{'user.adv'}) {  #   name, domain of parent author if user is ca or aa
  foreach my $env (keys(%env)) {  #empty return if user is not an author or not on homeserver
     next if ($env !~ m/^user\.priv\./);  #
     if ($env !~ m/^user\.priv\.(?:st|cm)/) {  #TODO this should probably be moved somewhere more central
  $course = 0;  #since it can be used by different parts of the system
  last;  sub getauthor{
     }      return unless $env{'request.role'}=~/^(ca|aa|au)/; #nothing to do if user isn't some kind of author
  }  
                           #co- or assistent author?
       my ($dom, $user) = ($env{'request.role'} =~ /^(?:ca|aa)\.\/($match_domain)\/($match_username)$/)
                          ? ($1, $2) #domain, username of the parent author
                          : @env{ ('request.role.domain', 'user.name') }; #own domain, username
   
       # current server == home server?
       my $home =  &Apache::lonnet::homeserver($user,$dom);
       foreach (&Apache::lonnet::current_machine_ids()){
           return {user => $user, dom => $dom} if $_ eq $home;
     }      }
     return $course;  
       # if wrong server
       return;
 }  }
   
 sub initlittle {  sub secondary_menu {
     my %lt=&Apache::lonlocal::texthash('ret' => 'Return to Last Location',      my $menu;
        'nav' => 'Course Contents',  
        'main' => 'Main Menu',  
                                        'roles' => (&Apache::loncommon::show_course()?  
                                                     'Courses':'Roles'),  
                                        'other' => 'Other Roles',  
                                        'docs' => 'Course Editor',  
                                        'exit' => 'Logout',  
                                        'login' => 'Log In',  
        'launch' => 'Launch Remote Control',  
                                        'groups' => 'Groups',  
                                        );  
     if (&Apache::loncommon::course_type() eq 'Community') {  
         $lt{'nav'} = &mt('Community Contents');  
         $lt{'docs'} = &mt('Community Editor');  
     }  
     return %lt;  
 }  
   
 sub menubuttons {  
     my $forcereg=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 $crstype = &Apache::loncommon::course_type();
       my $crs_sec = $env{'request.course.id'} . ($env{'request.course.sec'} 
                                                  ? "/$env{'request.course.sec'}"
                                                  : '');
       my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
       my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec); 
       my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); 
       my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec); 
       my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);
       my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);
       my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec); 
       my $author        = &getauthor();
   
       my %groups = &Apache::lonnet::get_active_groups(
                        $env{'user.domain'}, $env{'user.name'},
                        $env{'course.' . $env{'request.course.id'} . '.domain'},
                        $env{'course.' . $env{'request.course.id'} . '.num'});
   
       foreach my $menuitem (@secondary_menu) {
           # evaluate conditions 
           next if    ref($menuitem)  ne 'ARRAY';
           next if    $$menuitem[4]   ne 'always'
                   && $$menuitem[4]   ne 'author'
                   && !$env{'request.course.id'};
           next if    $$menuitem[4]   =~ /^mdc/
                   && !$canedit;
           next if    $$menuitem[4]  eq 'nvgr'
                   && $canvgr;
           next if    $$menuitem[4]  eq 'vgr'
                   && !$canvgr;
           next if    $$menuitem[4]   eq 'cst'
                   && !$canmodifyuser;
           next if    $$menuitem[4]   eq 'ncst'
                   && $canmodifyuser;
           next if    $$menuitem[4]   eq 'mgr'
                   && !$canmgr;
           next if    $$menuitem[4]   eq 'nmgr'
                   && $canmgr;
           next if    $$menuitem[4]   eq 'whn'
                   && !$canviewwnew;
           next if    $$menuitem[4]   eq 'opa'
                   && !$canmodpara;
           next if    $$menuitem[4]   =~ /showgroups$/
                   && !$canviewgrps
                   && !%groups;
           next if    $$menuitem[4]    eq 'author'
                   && !$author;
   
           if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
               # special treatment for role selector
               my $roles_selector = &roles_selector(
                           $env{'course.' . $env{'request.course.id'} . '.domain'},
                           $env{'course.' . $env{'request.course.id'} . '.num'}  );
   
     my %lt=&initlittle();              $menu .= $roles_selector ? "<li>$roles_selector</li>"
     my $navmaps='';                                       : '';
     my $reloadlink='';          } else {
     my $docs='';              $menu .= &prep_menuitem(\@$menuitem);
     my $groups='';  
     my $roles='<a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a>';  
     my $role_selector;  
     my $showgroups=0;  
     my ($cnum,$cdom);  
     my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));  
     my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));  
   
     my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");  
     $logo = '<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'}) {  
         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
         my %coursegroups;  
         my $viewgrps_permission =  
     &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));  
         if (!$viewgrps_permission) {  
             %coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$cdom,$cnum);  
  }  
         if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) {  
             $showgroups = 1;  
         }  
         $role_selector = &roles_selector($cdom,$cnum);  
         if ($role_selector) {  
             $roles = '<span class="LC_nobreak">'.$role_selector.'&nbsp;&nbsp;<a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></span>';  
         }          }
     }      }
       if ($menu =~ /\[url\].*\[symb\]/) {
     if ($env{'browser.interface'} eq 'textual') {          my $escurl  = &escape( &Apache::lonenc::check_encrypt(
 # Textual display only                               $env{'request.noversionuri'}));
         if ($env{'request.course.id'}) {  
     $navmaps=(<<ENDNAV);          my $escsymb = &escape( &Apache::lonenc::check_encrypt(
 <a href="/adm/navmaps?postdata=$escurl&amp;postsymb=$escsymb" target="_top">$lt{'nav'}</a>                               $env{'request.symb'})); 
 ENDNAV  
             if (&show_return_link()) {          if (    $env{'request.state'} eq 'construct'
                 my $escreload=&escape('return:');              and (   $env{'request.noversionuri'} eq '' 
                 $reloadlink=(<<ENDRELOAD);                   || !defined($env{'request.noversionuri'}))) 
 <a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a>          {
 ENDRELOAD              my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
             }              ($escurl = $env{'request.filename'}) =~ s{^\Q$londocroot\E}{};
             if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {              $escurl  = &escape($escurl);
                 $docs=(<<ENDDOCS);          }    
 <a href="/adm/coursedocs" target="_top">$lt{'docs'}</a>          $menu =~ s/\[url\]/$escurl/g;
 ENDDOCS          $menu =~ s/\[symb\]/$escsymb/g;
             }  
             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 $roles  
 <a href="/adm/logout" target="_top">$lt{'exit'}</a>  
 </div>  
 <br />  
 <script type="text/javascript">  
 // END LON-CAPA Internal  
 </script>  
 $form  
 ENDMAINMENU  
         if ($registration) { $output.=&innerregister($forcereg); }  
  return $output."<hr />";  
     } elsif ($env{'environment.remote'} eq 'off') {  
 # Remote Control is switched off  
 # figure out colors  
  my %lt=&initlittle();  
   
         my $domain=&Apache::loncommon::determinedomain();  
  my $function =&Apache::loncommon::get_users_function();  
         my $link=&Apache::loncommon::designparm($function.'.link',$domain);  
         my $alink=&Apache::loncommon::designparm($function.'.alink',$domain);  
         my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);  
         my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain);  
  if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {  
     return (<<ENDINLINEMENU);  
    <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  
         }  
         $roles = '<td><a href="/adm/roles" target="_top">'.$lt{'roles'}.'</a></td>';  
 # Do we have a NAV link?  
         if ($env{'request.course.id'}) {  
     my $link='/adm/navmaps?postdata='.$escurl.'&amp;postsymb='.  
  $escsymb;  
     if ($env{'environment.remotenavmap'} eq 'on') {  
  $link="javascript:gonav('".$link."')";  
     }  
     $navmaps=(<<ENDNAV);  
 <td><a href="$link" target="_top">$lt{'nav'}</a></td>  
 ENDNAV  
     if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {  
  $docs=(<<ENDDOCS);  
 <td><a href="/adm/coursedocs" target="_top">$lt{'docs'}</a></td>  
 ENDDOCS  
             }  
             if ($showgroups) {  
                 $groups =(<<ENDGROUPS);  
 <td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td>  
 ENDGROUPS  
             }  
     if (&show_return_link()) {  
                 my $escreload=&escape('return:');  
                 $reloadlink=(<<ENDRELOAD);  
 <td><a href="/adm/flip?postdata=$escreload" target="_top">$lt{'ret'}</a></td>  
 ENDRELOAD  
             }  
             if ($role_selector) {  
                 $roles = '<td>'.$role_selector.'</td><td><a href="/adm/roles" target="_top">'.$lt{'other'}.'</a></td>';  
             }  
         }  
  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='';  
         if ($registration) {  
            $reg=&innerregister($forcereg,$titletable);  
         }  
         my $form=&serverform();  
  my $utility=&utilityfunctions();  
   
         my $helplink=&Apache::loncommon::top_nav_help('Help');  
  return (<<ENDINLINEMENU);  
 <script type="text/javascript">  
 // <![CDATA[  
 // BEGIN LON-CAPA Internal  
 $utility  
 // ]]>  
 </script>  
 <table id="LC_top_nav">  
 <tr>  
 $logo  
 <td><a href="/adm/menu" target="_top">$lt{'main'}</a></td>  
 $reloadlink  
 $navmaps  
 $docs  
 $groups  
 $roles  
 <td class="LC_top_nav_help">$helplink</td>  
 <td class="LC_top_nav_exit"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>  
 </tr>  
 </table>  
 $form  
 <script type="text/javascript">  
 // END LON-CAPA Internal  
 </script>  
 $reg  
 ENDINLINEMENU  
     } else {  
  return '';  
     }      }
 }      $menu =~ s/\[uname\]/$$author{user}/g;
       $menu =~ s/\[udom\]/$$author{dom}/g;
   
 sub show_return_link {      return "<ul id=\"LC_secondary_menu\">$menu</ul>";
     return (($env{'request.noversionuri'}=~m{^/(res|public)/} &&  
      $env{'request.symb'} eq '')  
     ||  
     ($env{'request.noversionuri'}=~ m{^/cgi-bin/printout.pl})  
     ||  
     (($env{'request.noversionuri'}=~/^\/adm\//) &&  
      ($env{'request.noversionuri'}!~/^\/adm\/wrapper\//) &&  
      ($env{'request.noversionuri'}!~  
       m[^/adm/.*/(smppg|bulletinboard|aboutme)($|\?)])  
      ));  
 }  
   
   
 sub registerurl {  
     my ($forcereg) = @_;  
     my $result = '';  
     if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }  
     my $force_title='';  
     if ($env{'request.state'} eq 'construct') {  
  $force_title=&Apache::lonxml::display_title();  
     }  
     if (($env{'browser.interface'} eq 'textual') ||  
         ($env{'environment.remote'} eq 'off') ||  
         ((($env{'request.publicaccess'}) ||   
          (!&Apache::lonnet::is_on_map(  
    &unescape($env{'request.noversionuri'})))) &&  
         (!$forcereg))) {  
   return $result.  
                '<script type="text/javascript">'."\n".  
                'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n".  
                '</script>'.$force_title;  
     }  
 # Graphical display after login only  
     if ($env{'request.registered'} && !$forcereg) { return ''; }  
     $result.=&innerregister($forcereg);  
     return $result.$force_title;  
 }  }
   
 sub innerregister {  sub innerregister {
     my ($forcereg, $titletable) = @_;      my ($forcereg,$bread_crumbs) = @_;
     my $result = '';  
     my ($uname,$thisdisfn);  
     my $const_space = ($env{'request.state'} eq 'construct');      my $const_space = ($env{'request.state'} eq 'construct');
     my $is_const_dir = 0;      my $is_const_dir = 0;
   
Line 428  sub innerregister { Line 357  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 $textual=($textinter || $noremote);  
   
     undef(@inlineremote);      undef(@inlineremote);
   
     my $reopen=&Apache::lonmenu::reopenmenu();      my $resurl; 
       if ( $env{'request.symb'} && $env{'request.course.id'} ) {
   
     my $newmail='';          (my $mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
     if ($noremote) {          my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};
  $newmail='<table id="LC_nav_location"><tr>';  
     }          my $maptitle = &Apache::lonnet::gettitle($mapurl);
     if (&Apache::lonmsg::newmail()) {           my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());
  if ($textual) {  
     $newmail.= '<td class="LC_new_mail">  #SD
                    <a href="/adm/communicate" target="_top">'.  #course_type only Course and Community?
    &mt('You have new messages').'</a></td>';  #
  } else {          my @crumbs;
     $newmail= 'swmenu.setstatus("you have","messages");';          unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps')
  }                  && ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
     }               @crumbs = ({text  => Apache::loncommon::course_type() 
     if (($textual)                                   . ' Contents', 
      && ($env{'request.symb'})                           href  => "Javascript:gopost('/adm/navmaps','')"});
      && ($env{'request.course.id'})) {          }
  $newmail.= '<td class="LC_current_location">';          if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { 
  my ($mapurl,$rid,$resurl)=              push(@crumbs, {text  => '...',
     &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());                             no_mt => 1});
         my $coursetitle=$env{'course.'.$env{'request.course.id'}.'.description'};          }
         $newmail.=$coursetitle;  
         my $maptitle=&Apache::lonnet::gettitle($mapurl);          push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle 
  my $restitle=&Apache::lonnet::gettitle(&Apache::lonnet::symbread());                                                     && $maptitle ne 'default.sequence' 
         if ($maptitle && ($maptitle ne 'default.sequence') && ($maptitle ne $coursetitle)) {                                                     && $maptitle ne $coursetitle);
     $newmail.=', '.$maptitle;  
         }          push @crumbs, {text => $restitle, no_mt => 1} if $restitle; 
         if ($restitle) {  
     $newmail.=': '.$restitle;          &Apache::lonhtmlcommon::clear_breadcrumbs();
         }          &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
         $newmail.='&nbsp;&nbsp;&nbsp;</td>';      }elsif (! $const_space){
     }          #a situation when we're looking at a resource outside of context of a 
     if ($env{'request.state'} eq 'construct') {          #course or construction space (e.g. with cumulative rights)
         $newmail = $titletable;          &Apache::lonhtmlcommon::clear_breadcrumbs();
     } else {          &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
  if ($noremote) {  
     $newmail.='</tr></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)) {      return '' unless ( ($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 $crs='/'.$env{'request.course.id'};   my $crs='/'.$env{'request.course.id'};
  if ($env{'request.course.sec'}) {   if ($env{'request.course.sec'}) {
Line 491  sub innerregister { Line 411  sub innerregister {
   
         my $hwkadd='';          my $hwkadd='';
         if ($env{'request.symb'} ne '' &&          if ($env{'request.symb'} ne '' &&
     $env{'request.filename'}=~/\.(problem|exam|quiz|assess|survey|form|task)$/) {      $env{'request.filename'}=~/$LONCAPA::assess_re/) {
     if (&Apache::lonnet::allowed('mgr',$crs)) {      if (&Apache::lonnet::allowed('mgr',$crs)) {
  $hwkadd.=&switch('','',7,2,'pgrd.gif','problem[_1]','grades[_4]',   $hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',
                        "gocmd('/adm/grades','gradingmenu')",                         "gocmd('/adm/grades','gradingmenu')",
                        'Modify user grades for this assessment resource');                         'Content Grades');
             } elsif (&Apache::lonnet::allowed('vgr',$crs)) {              } elsif (&Apache::lonnet::allowed('vgr',$crs)) {
  $hwkadd.=&switch('','',7,2,'subm.gif','view sub-[_1]','missions[_1]',   $hwkadd.=&switch('','',7,2,'subm.png','Content Submissions','missions[_1]',
                        "gocmd('/adm/grades','submission')",                         "gocmd('/adm/grades','submission')",
        'View user submissions for this assessment resource');         'Content Submissions');
             }              }
  }   }
  if ($env{'request.symb'} ne '' &&   if ($env{'request.symb'} ne '' &&
     &Apache::lonnet::allowed('opa',$crs)) {      &Apache::lonnet::allowed('opa',$crs)) {
     $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',      $hwkadd.=&switch('','',7,3,'pparm.png','Content Settings','parms[_2]',
      "gocmd('/adm/parmset','set')",       "gocmd('/adm/parmset','set')",
      'Modify parameter settings for this resource');       'Content Settings');
  }   }
           if ($env{'request.symb'}=~/^uploaded/ &&
               &Apache::lonnet::allowed('mdc',$crs)) {
               $hwkadd.=&switch('','',7,4,'docs.png','Folder/Page Content','parms[_2]',
                                "gocmd('/adm/coursedocs','direct')",
                                'Folder/Page Content');
           }
 # -- 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
Line 522  sub innerregister { Line 448  sub innerregister {
         }          }
         if ($env{'user.author'}) {          if ($env{'user.author'}) {
             if ($env{'request.role'}=~/^(aa|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.domain'}.'/'.$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 construction space";                  my $desc = "Enter my construction space";
Line 532  sub innerregister { Line 461  sub innerregister {
                 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/".$cadom.'/'.$caname."');";
                     $desc = "Enter construction space as co-author";                      $desc = "Enter construction space as co-author";
                 } elsif ($env{'request.role'} =~ /^aa/) {                  } elsif ($env{'request.role'} =~ /^aa/) {
                     ($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/".$cadom.'/'.$caname."');";
                     $desc = "Enter construction space as assistant co-author";                      $desc = "Enter construction space as assistant co-author";
                 }                  }
                 # Check that we are on the correct machine                  # Check that we are on the correct machine
Line 550  sub innerregister { Line 479  sub innerregister {
                     $noeditbutton = 0;                      $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.
             ##              ##
Line 561  sub innerregister { Line 495  sub innerregister {
             my $home;              my $home;
             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) {
     $home=&Apache::lonnet::homeserver($cfuname,$cfudom);  
     my $allowed=0;                      $file=~s{^(priv/$match_domain/$match_username)}{/$1};
     my @ids=&Apache::lonnet::current_machine_ids();                      $file=~s{^($match_domain/$match_username)}{/priv/$1};
     foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }  
     if ($allowed) {                      # Check that the user has permission to edit this resource
                         $cfile=$file;                      my $setpriv = 1;
                     }  else {                      ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$setpriv);
                         $switchserver=$file;                      if (defined($cfudom)) {
           $home=&Apache::lonnet::homeserver($cfuname,$cfudom);
           my $allowed=0;
           my @ids=&Apache::lonnet::current_machine_ids();
           foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
           if ($allowed) {
                               $cfile=$file;
                           } else {
                               $switchserver=$file;
                           }
                     }                      }
                 }                  }
             }                      }
             # Finally, turn the button on or off              # Finally, turn the button on or off
             if (($cfile || $switchserver) && !$const_space) {              if (($cfile || $switchserver) && !$const_space) {
                 my $nocrsedit;                  my $nocrsedit;
Line 595  sub innerregister { Line 538  sub innerregister {
                             $cfile = '/adm/switchserver?otherserver='.$home.'&amp;role='.                              $cfile = '/adm/switchserver?otherserver='.$home.'&amp;role='.
                                      &HTML::Entities::encode($env{'request.role'},'"<>&').'&amp;symb='.                                       &HTML::Entities::encode($env{'request.role'},'"<>&').'&amp;symb='.
                                      &HTML::Entities::encode($env{'request.symb'},'"<>&');                                       &HTML::Entities::encode($env{'request.symb'},'"<>&');
                               $bot = "need_switchserver('$cfile');";
                         }                          }
                         $bot = "need_switchserver('$cfile');";  
                     }                      }
                     $editbutton=&switch                      $editbutton=&switch
                        ('','',6,1,'pcstr.png','edit[_1]','resource[_2]',                         ('','',6,1,'pcstr.png','Edit','resource[_2]',
                        $bot,"Edit this resource");                          $bot,"Edit this resource");
                     $noeditbutton = 0;                      $noeditbutton = 0;
                 }                  }
             } elsif ($editbutton eq '') {              } elsif ($editbutton eq '') {
                 $editbutton=&clear(6,1);                  $editbutton=&clear(6,1);
             }              }
         }          }
         if (($noeditbutton) && ($env{'request.filename'})) {          if (($noeditbutton) && ($env{'request.filename'})) { 
             if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {              if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
                 my $file=&Apache::lonnet::declutter($env{'request.filename'});                  my $file=&Apache::lonnet::declutter($env{'request.filename'});
                 if (defined($cnum) && defined($cdom)) {                  if (defined($cnum) && defined($cdom)) {
Line 615  sub innerregister { Line 558  sub innerregister {
                         my $cfile = &edit_course_upload($file,$cnum,$cdom);                          my $cfile = &edit_course_upload($file,$cnum,$cdom);
                         if ($cfile) {                          if ($cfile) {
                             $editbutton=&switch                              $editbutton=&switch
                                         ('','',6,1,'pcstr.gif','edit[_1]',                                          ('','',6,1,'pcstr.png','Edit',
                                          'resource[_2]',"go('".$cfile."');",                                           'resource[_2]',"go('".$cfile."');",
                                          'Edit this resource');                                           'Edit this resource');
                         }                          }
Line 623  sub innerregister { Line 566  sub innerregister {
                 }                  }
             }              }
         }          }
           if ($env{'request.course.id'}) {
               if ($resurl eq "public/$cdom/$cnum/syllabus") {
                   if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {
                       if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
                           $editbutton=&switch('','',6,1,'pcstr.png','Edit',
                                               'resource[_2]',
                                               "go('/adm/courseprefs?phase=display&actions=courseinfo')",
                                               '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) {
     my ($uname,$thisdisfn) =  #
  ($env{'request.filename'}=~m|^/home/([^/]+)/public_html/(.*)|);  # We are in construction space
             my $currdir = '/priv/'.$uname.'/'.$thisdisfn;  #
   
               my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
       my ($udom,$uname,$thisdisfn) =
    ($env{'request.filename'}=~m{^\Q$londocroot/priv/\E([^/]+)/([^/]+)/(.*)$});
               my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;
             if ($currdir =~ m-/$-) {              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.png&Directory&dir[_1]&golist('$esc_currdir')&List current directory
 s&6&2&rtrv.gif&retrieve[_1]&version[_1]&gocstr('/adm/retrieve','/~$uname/$cleandisfn')&Retrieve old version  s&6&2&rtrv.png&Retrieve&version[_1]&gocstr('/adm/retrieve','/priv/$udom/$uname/$cleandisfn')&Retrieve old version
 s&6&3&pub.gif&publish[_1]&resource[_3]&gocstr('/adm/publish','/~$uname/$cleandisfn')&Publish this resource  s&6&3&pub.png&Publish&resource[_3]&gocstr('/adm/publish','/priv/$udom/$uname/$cleandisfn')&Publish this resource
 s&7&1&del.gif&delete[_1]&resource[_2]&gocstr('/adm/cfile?action=delete','/~$uname/$cleandisfn')&Delete this resource  s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$uname/$cleandisfn')&Delete this resource
 s&7&2&prt.gif&prepare[_1]&printout[_1]&gocstr('/adm/printout','/~$uname/$cleandisfn')&Prepare a printable document  s&7&2&prt.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$uname/$cleandisfn')&Prepare a printable document
 ENDMENUITEMS  ENDMENUITEMS
             }              }
                   if (ref($bread_crumbs) eq 'ARRAY') {
                       &Apache::lonhtmlcommon::clear_breadcrumbs();
                       foreach my $crumb (@{$bread_crumbs}){
                           &Apache::lonhtmlcommon::add_breadcrumb($crumb);
                       }
                   }
         } elsif ( defined($env{'request.course.id'}) &&           } 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.png&&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1
 s&2&3&forw.gif&forward[_1]&&gopost('/adm/flip','forward:'+currentURL)&Go to the next resource in the course sequence&&3  s&2&3&forw.png&&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&3
 c&6&3  c&6&3
 c&8&1  c&8&1
 c&8&2  c&8&2
 s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document  s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
 s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1  
 ENDMENUITEMS  ENDMENUITEMS
               if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F' && $env{'request.uri'} =~ /^\/res/) {
                   # wishlist is only available for users with access to resource-pool
                   # and links can only be set for resources within the resource-pool
                   $menuitems .= (<<ENDMENUITEMS);
   s&9&1&wishlist-link.png&Wishlist&wishlistlink[_2]&set_wishlistlink()&Set a link for this resource to wishlist&&1
   ENDMENUITEMS
               }
   
 my $currentURL = &Apache::loncommon::get_symb();  my $currentURL = &Apache::loncommon::get_symb();
 my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);  my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);
 my $annotation = &Apache::loncommon::get_annotation($symb_old,$symb_old_enc);  my $annotation = &Apache::loncommon::get_annotation($symb_old,$symb_old_enc);
 $menuitems.="s&9&3&";  $menuitems.="s&9&3&";
 if(length($annotation) > 0){  if(length($annotation) > 0){
  $menuitems.="anot2.gif";   $menuitems.="anot2.png";
 }else{  }else{
  $menuitems.="anot.gif";   $menuitems.="anot.png";
 }  }
 $menuitems.="&anno-[_1]&tations[_1]&annotate()&";  $menuitems.="&Notes&&annotate()&";
 $menuitems.="Make notes and annotations about this resource&&1\n";  $menuitems.="Make notes and annotations about this resource&&1\n";
   
             unless ($noremote) {              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {
                 my $showreqcrs = &check_for_rcrs();   if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/})) {
                 if ($showreqcrs) {  
                     $menuitems.="s&8&1&rcrs.gif&request[_1]&course[_16]".  
                                 "&go('/adm/requestcourse')&Course requests\n";  
                 }  
             }  
             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) {  
                 if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/})) {  
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.gif&catalog[_2]&info[_1]&catalog_info()&Show Metadata  s&6&3&catalog.png&Info&info[_1]&catalog_info()&Show Metadata
 ENDREALRES  ENDREALRES
                 }                  }
         $menuitems.=(<<ENDREALRES);          $menuitems.=(<<ENDREALRES);
 s&8&1&eval.gif&evaluate[_1]&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource  s&8&1&eval.png&Evaluate&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  s&8&2&fdbk.png&Communicate&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/) {   if ($env{'request.uri'} =~ /^\/res/) {
     $menuitems .= (<<ENDMENUITEMS);      $menuitems .= (<<ENDMENUITEMS);
 s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document  s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
   ENDMENUITEMS
               if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F') {
                   # wishlist is only available for users with access to resource-pool
                   $menuitems .= (<<ENDMENUITEMS);
   s&9&1&wishlist-link.png&Wishlist&wishlistlink[_2]&set_wishlistlink()&Set a link for this resource to wishlist&&1
 ENDMENUITEMS  ENDMENUITEMS
               }
  }   }
         my $buttons='';          my $buttons='';
         foreach (split(/\n/,$menuitems)) {          foreach (split(/\n/,$menuitems)) {
Line 713  ENDMENUITEMS Line 691  ENDMENUITEMS
             }              }
         }          }
   
         if ($textual) {  
     my $addremote=0;      my $addremote=0;
     foreach (@inlineremote) { if ($_ ne '') { $addremote=1; } }      foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
     my $inlinebuttons='';      if ($addremote) {
     if ($addremote) {  
 # Registered, textual output  
  if ($env{'browser.interface'} eq 'textual') {  
     $inlinebuttons=  
                         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);  
 <script type="text/javascript">  
 // BEGIN LON-CAPA Internal  
 </script>  
 $timesync  
 $tablestart  
 $inlinebuttons  
 $tableend  
 $newmail  
 <script type="text/javascript">  
 // END LON-CAPA Internal  
 </script>  
   
 ENDREGTEXT          &Apache::lonhtmlcommon::clear_breadcrumb_tools();
 # Registered, graphical output  
         } else {  
     my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));  
     $requri=&Apache::lonenc::check_encrypt(&unescape($requri));  
     my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'});  
     my $navstatus=&get_nav_status();  
     my $clearcstr;  
   
     if ($env{'user.adv'}) { $clearcstr='clearbut(6,1)'; }  
     $result = (<<ENDREGTHIS);  
        
 <script type="text/javascript">  
 // <![CDATA[  
 // BEGIN LON-CAPA Internal  
 var swmenu=null;  
   
     function LONCAPAreg() {              &Apache::lonhtmlcommon::add_breadcrumb_tool(
   swmenu=$reopen;                  'navigation', @inlineremote[21,23]);
           swmenu.clearTimeout(swmenu.menucltim);  
           $timesync  
           $newmail  
           $buttons  
   swmenu.currentURL="$requri";  
           swmenu.reloadURL=swmenu.currentURL+window.location.search;  
           swmenu.currentSymb="$cursymb";  
           swmenu.reloadSymb="$cursymb";  
           swmenu.currentStale=0;  
   $navstatus  
           $hwkadd  
           $editbutton  
     }  
   
     function LONCAPAstale() {  
   swmenu=$reopen  
           swmenu.currentStale=1;  
           if (swmenu.reloadURL!='' && swmenu.reloadURL!= null) {   
              swmenu.switchbutton  
              (3,1,'reload.gif','return','location','go(reloadURL)','Return to the last known location in the course sequence');  
   }  
           swmenu.clearbut(7,2);  
           swmenu.clearbut(7,3);  
           swmenu.menucltim=swmenu.setTimeout(  
  'clearbut(2,1);clearbut(2,3);clearbut(8,1);clearbut(8,2);clearbut(8,3);'+  
  'clearbut(9,1);clearbut(9,3);clearbut(6,3);$clearcstr',  
   2000);  
       }  
   
 // END LON-CAPA Internal           if(hidden_button_check() ne 'yes') {
 // ]]>              &Apache::lonhtmlcommon::add_breadcrumb_tool(
 </script>                  'tools', @inlineremote[93,91,81,82,83]);
 ENDREGTHIS  
               #publish button in construction space
               if ($env{'request.state'} eq 'construct'){
                   &Apache::lonhtmlcommon::add_breadcrumb_tool(
                        'advtools', $inlineremote[63]);
               } else {
                   &Apache::lonhtmlcommon::add_breadcrumb_tool(
                        'tools', $inlineremote[63]);
               }
               
               unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {
                   &Apache::lonhtmlcommon::add_breadcrumb_tool(
                       'advtools', @inlineremote[61,71,72,73,74,92]);
               }
         }          }
 # =============================================================================  
     } else {  
 # ========================================== This can or will not be registered  
         if ($textual) {  
 # Not registered, textual  
     $result= (<<ENDDONOTREGTEXT);  
 ENDDONOTREGTEXT  
         } else {  
 # Not registered, graphical  
            $result = (<<ENDDONOTREGTHIS);  
   
 <script type="text/javascript">  
 // <![CDATA[  
 // BEGIN LON-CAPA Internal  
 var swmenu=null;  
   
     function LONCAPAreg() {  
   swmenu=$reopen  
           $timesync  
           swmenu.currentStale=1;  
           swmenu.clearbut(2,1);  
           swmenu.clearbut(2,3);  
           swmenu.clearbut(8,1);  
           swmenu.clearbut(8,2);  
           swmenu.clearbut(8,3);  
           if (swmenu.currentURL) {  
              swmenu.switchbutton  
               (3,1,'reload.gif','return','location','go(currentURL)');  
    } else {  
       swmenu.clearbut(3,1);  
           }  
     }      }
   
     function LONCAPAstale() {      return   &Apache::lonhtmlcommon::scripttag('', 'start')
     }             . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
              . &Apache::lonhtmlcommon::scripttag('', 'end');
 // END LON-CAPA Internal  
 // ]]>  
 </script>  
 ENDDONOTREGTHIS  
        }  
 # =============================================================================  
     }  
     return $result;  
 }  }
   
 sub is_course_upload {  sub is_course_upload {
Line 904  sub edit_course_upload { Line 761  sub edit_course_upload {
     return $cfile;      return $cfile;
 }  }
   
 sub loadevents() {  
     if ($env{'request.state'} eq 'construct' ||  
  $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }  
     return 'LONCAPAreg();';  
 }  
   
 sub unloadevents() {  
     if ($env{'request.state'} eq 'construct' ||  
  $env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { return ''; }  
     return 'LONCAPAstale();';  
 }  
   
   
 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 935  sub startupremote { Line 778  sub startupremote {
 var timestart;  var timestart;
 function wheelswitch() {  function wheelswitch() {
     if (typeof(document.wheel) != 'undefined') {      if (typeof(document.wheel) != 'undefined') {
  if (typeof(document.wheel.spin) != 'undefined') {          if (typeof(document.wheel.spin) != 'undefined') {
     var date=new Date();              var date=new Date();
     var waited=Math.round(30-((date.getTime()-timestart)/1000));              var waited=Math.round(30-((date.getTime()-timestart)/1000));
     document.wheel.spin.value=$message;              document.wheel.spin.value=$message;
  }          }
     }      }
    if (window.status=='|') {      if (window.status=='|') {
       window.status='/';         window.status='/';
    } else {     } else {
       if (window.status=='/') {        if (window.status=='/') {
          window.status='-';           window.status='-';
       } else {        } else {
          if (window.status=='-') {            if (window.status=='-') {
             window.status='\\\\';               window.status='\\\\';
          } else {           } else {
             if (window.status=='\\\\') { window.status='|'; }              if (window.status=='\\\\') { window.status='|'; }
          }           }
       }        }
    }      }
 }  }
   
 // ---------------------------------------------------------- The wait function  // ---------------------------------------------------------- The wait function
Line 964  function wait() { Line 807  function wait() {
       if (tim==0) {        if (tim==0) {
          clearTimeout(canceltim);           clearTimeout(canceltim);
          $configmenu           $configmenu
          window.location='$lowerurl';             window.location='$lowerurl';
       } else {        } else {
   window.location='/adm/remote?action=collapse&url=$esclowerurl';            window.location='/adm/remote?action=collapse&url=$esclowerurl';
       }        }
    } else {     } else {
       wheelswitch();        wheelswitch();
Line 981  function main() { Line 824  function main() {
    timestart=date.getTime();     timestart=date.getTime();
    wait();     wait();
 }  }
   
 // ]]>  // ]]>
 </script>  </script>
 ENDREMOTESTARTUP  ENDREMOTESTARTUP
Line 998  ENDSETFLAGS Line 842  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[  // <![CDATA[
Line 1012  ENDMAINCALL Line 855  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('[_1]Continue[_2] on in Inline Menu mode',      my $link=&mt('[_1]Continue[_2] on in Inline Menu mode'
  '<a href="/adm/remote?action=collapse&amp;url='.$esclowerurl.'">',                  ,'<a href="/adm/remote?action=collapse&amp;url='.$esclowerurl.'">'
                  '</a>');                  ,'</a>');
     return(<<ENDREMOTEFORM);      return(<<ENDREMOTEFORM);
 <p>  <p>
 <form name="wheel">  <form name="wheel">
Line 1037  sub get_menu_name { Line 879  sub get_menu_name {
   
   
 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 = &get_menu_name();
    my $nothing = &Apache::lonhtmlcommon::javascript_nothing();     my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
    return('window.open('.$nothing.',"'.$menuname.'","",false);');     return('window.open('.$nothing.',"'.$menuname.'","",false);');
 }   }
   
   
 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">'."\n"
          '<script type="text/javascript">'."\n".         .'// <![CDATA['."\n"
          '// <![CDATA['."\n".         .'self.name="loncapaclient";'."\n"
          'self.name="loncapaclient";'."\n".         .'// ]]>'."\n"
          '// ]]>'."\n".         .'</script>';
          '</script>';  
     }      }
     my $menuname = &get_menu_name();      my $menuname = &get_menu_name();
       
 #    unless (shift eq 'unix') {  #    unless (shift eq 'unix') {
 # resizing does not work on linux because of virtual desktop sizes  # resizing does not work on linux because of virtual desktop sizes
 #       $returnval.=(<<ENDRESIZE);  #       $returnval.=(<<ENDRESIZE);
Line 1070  sub open { Line 910  sub open {
     $returnval=(<<ENDOPEN);      $returnval=(<<ENDOPEN);
 // <![CDATA[  // <![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';
 // ]]>  // ]]>
Line 1083  ENDOPEN Line 923  ENDOPEN
   
 sub clear {  sub clear {
     my ($row,$col)=@_;      my ($row,$col)=@_;
     unless (($env{'browser.interface'} eq 'textual') ||      $inlineremote[10*$row+$col]='';
             ($env{'environment.remote'} eq 'off')) {      return ''; 
        return "\n".qq(window.status+='.';swmenu.clearbut($row,$col););  
    } else {   
        $inlineremote[10*$row+$col]='';  
        return '';   
    }  
 }  }
   
 # ============================================ Switch a button or create a link  # ============================================ Switch a button or create a link
Line 1103  sub switch { Line 938  sub switch {
     $top=&mt($top);      $top=&mt($top);
     $bot=&mt($bot);      $bot=&mt($bot);
     $desc=&mt($desc);      $desc=&mt($desc);
     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')  ||  # Inline Menu
             ($env{'environment.remote'} eq 'off')) {      if ($nobreak==2) { return ''; }
 # Remote      my $text=$top.' '.$bot;
        return "\n".      $text=~s/\s*\-\s*//gs;
  qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););  
    } elsif ($env{'browser.interface'} eq 'textual') {  
 # Accessibility  
        if ($nobreak==2) { return ''; }  
        my $text=$top.' '.$bot;  
        $text=~s/\s*\-\s*//gs;  
        if ($nobreak) {  
    $inlineremote[$idx]=  
        '<a href="javascript:'.$act.';">'.$text.'</a>';  
        } else {  
    $inlineremote[$idx]="\n<br />".  
        $desc.' <a href="javascript:'.$act.';">'.$text.'</a>';  
        }  
    } else {  
 # Inline Remote  
        if ($env{'environment.icons'} ne 'classic') {  
           $img=~s/\.gif$/\.png/;  
        }  
        if ($nobreak==2) { return ''; }  
        my $text=$top.' '.$bot;  
        $text=~s/\s*\-\s*//gs;  
   
        my $pic=      my $pic=
    '<img alt="'.$text.'" src="'.     '<img alt="'.$text.'" src="'.
    &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).     &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).
    '" align="'.($nobreak==3?'right':'left').'" />';     '" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';
        if ($env{'browser.interface'} eq 'faketextual') {      if ($env{'browser.interface'} eq 'faketextual') {
 # Accessibility  # Main Menu
    if ($nobreak==3) {     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>';
    }     }
        } else {      } else {
 # Inline Menu  # Inline Menu
            if ($env{'environment.icons'} eq 'iconsonly') {        $inlineremote[$idx]=
               $inlineremote[$idx]='<a title="'.$desc.'" href="javascript:'.$act.';">'.$pic.'</a>';         '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
            } else {         '<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';
       $inlineremote[$idx]=      }
    '<a class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.  
    '<span class="LC_menubuttons_inline_text">'.$desc.'</span></a>';  
            }  
        }  
    }  
     return '';      return '';
 }  }
   
Line 1186  sub secondlevel { Line 992  sub secondlevel {
     return $output;      return $output;
 }  }
   
 sub openmenu {  
     my $menuname = &get_menu_name();  
     if (($env{'browser.interface'} eq 'textual') ||  
         ($env{'environment.remote'} eq 'off')) { return ''; }  
     my $nothing = &Apache::lonhtmlcommon::javascript_nothing();  
     return "window.open(".$nothing.",'".$menuname."');";  
 }  
   
 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><tr>';
     for (my $col=1; $col<=2; $col++) {      for (my $col=1; $col<=2; $col++) {
         $output.='<td class="LC_mainmenu_col_fieldset">';          $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.='<fieldset id="LC_mainmenu_fieldset">';                 $output.='<div class="LC_Box LC_400Box">';
        $output.='<legend class="LC_mainmenu_fieldset_category">'.&mt($category_names{$cat}).'</legend>';         $output.='<h3 class="LC_hcell">'.&mt($category_names{$cat}).'</h3>';
                $output.='<table id="LC_menubuttons_mainmenu">';                 $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 1218  sub inlinemenu { Line 1017  sub inlinemenu {
                   $output.=$inlineremote[$item];                    $output.=$inlineremote[$item];
                }                 }
                $output.='</table>';                 $output.='</table>';
                $output.='</fieldset>';                 $output.='</div>';
             }              }
          }           }
          $output.="</td>";           $output.="</td>";
Line 1228  sub inlinemenu { Line 1027  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') ||      return '' unless $textualoverride;
             ($env{'environment.remote'} eq 'off')) {  
        $output.=  
  "window.status='Opening Remote Control';var swmenu=".&openmenu().  
 "\nwindow.status='Configuring Remote Control ';";  
     } else {  
        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'};
Line 1312  sub rawconfig { Line 1109  sub rawconfig {
         } elsif ($pro eq 'course')  {          } elsif ($pro eq 'course')  {
             if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {              if (($env{'request.course.fn'}) && ($crstype ne 'Community')) {
                $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);                 $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
             }      }
         } elsif ($pro eq 'community')  {          } elsif ($pro eq 'community')  {
             if (($env{'request.course.fn'}) && ($crstype eq 'Community')) {              if (($env{'request.course.fn'}) && ($crstype eq 'Community')) {
                $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 1327  sub rawconfig { Line 1124  sub rawconfig {
                         $coursepref = $domdefs{'canuse_pdfforms'};                          $coursepref = $domdefs{'canuse_pdfforms'};
                     }                      }
                 }                  }
                 if ($coursepref) {                  if ($coursepref) { 
                     $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 1341  sub rawconfig { Line 1138  sub rawconfig {
                         $coursepref = $domdefs{'canuse_pdfforms'};                          $coursepref = $domdefs{'canuse_pdfforms'};
                     }                      }
                 }                  }
                 if ($coursepref) {                  if ($coursepref) { 
                     $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);                      $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'}) && ($crstype ne 'Community') &&              if (($env{'request.course.id'}) && ($crstype ne 'Community') && 
                 (&Apache::lonnet::allowed($1,$env{'request.course.id'}.                  (&Apache::lonnet::allowed($1,$env{'request.course.id'}.
             ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))              ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
                  )) {                   )) {
                 $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);                  $output.=&switch($uname,$udom,$row,$col,$img,$top,$bot,$act,$desc,$cat);
             }      }
         } elsif ($pro =~ /^community_(.*)$/) {          } elsif ($pro =~ /^community_(.*)$/) {
             # Check for permissions inside of a community              # Check for permissions inside of a community
             if (($env{'request.course.id'}) && ($crstype eq 'Community') &&              if (($env{'request.course.id'}) && ($crstype eq 'Community') &&   
                 (&Apache::lonnet::allowed($1,$env{'request.course.id'}.                  (&Apache::lonnet::allowed($1,$env{'request.course.id'}.
             ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))              ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))
                  )) {                   )) {
Line 1374  sub rawconfig { Line 1171  sub rawconfig {
                                ($env{'request.role'}=~/($match_domain)\/($match_username)$/);                                 ($env{'request.role'}=~/($match_domain)\/($match_username)$/);
                     }                                             }                       
                     $act =~ s/\$caname/$caname/g;                      $act =~ s/\$caname/$caname/g;
                       $act =~ s/\$cadom/$cadom/g;
                     my $home = &Apache::lonnet::homeserver($caname,$cadom);                      my $home = &Apache::lonnet::homeserver($caname,$cadom);
     my $allowed=0;      my $allowed=0;
     my @ids=&Apache::lonnet::current_machine_ids();      my @ids=&Apache::lonnet::current_machine_ids();
Line 1409  sub rawconfig { Line 1207  sub rawconfig {
             $prt='any';              $prt='any';
             $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);
   
         }          }
     }      }
     unless (($env{'browser.interface'} eq 'textual') ||  
             ($env{'environment.remote'} eq 'off')) {  
        $output.="\nwindow.status='Synchronizing Time';swmenu.syncclock(1000*".time.");\nwindow.status='Remote Control Configured.';";  
        if (&Apache::lonmsg::newmail()) {   
    $output.='swmenu.setstatus("you have","messages");';  
        }  
     }  
   
     return $output;      return $output;
 }  }
   
Line 1448  sub check_for_rcrs { Line 1237  sub check_for_rcrs {
 # ======================================================================= 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 = &get_menu_name();
     return(<<ENDCLOSE);      return(<<ENDCLOSE);
 <script type="text/javascript">  <script type="text/javascript">
Line 1468  window.status='Done.'; Line 1256  window.status='Done.';
 ENDCLOSE  ENDCLOSE
 }  }
   
 # ====================================================================== Footer  sub dc_popup_js {
       my %lt = &Apache::lonlocal::texthash(
 sub footer {                                            more => '(More ...)',
                                             less => '(Less ...)',
                                           );
       return <<"END";
   
   function showCourseID() {
       document.getElementById('dccid').style.display='block';
       document.getElementById('dccid').style.textAlign='left';
       document.getElementById('dccid').style.textFace='normal';
       document.getElementById('dccidtext').innerHTML ='<a href="javascript:hideCourseID();" class="LC_menubuttons_link">$lt{'less'}</a>';
       return;
 }  }
   
 sub nav_control_js {  function hideCourseID() {
     my $nav=($env{'environment.remotenavmap'} eq 'on');      document.getElementById('dccid').style.display='none';
     return (<<NAVCONTROL);      document.getElementById('dccidtext').innerHTML ='<a href="javascript:showCourseID()" class="LC_menubuttons_link">$lt{'more'}</a>';
     var w_loncapanav_flag="$nav";      return;
   }
   
   END
   
 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 {
     my $caller = shift;  
     unless (($env{'browser.interface'} eq 'textual')  ||  
         ($env{'environment.remote'} eq 'off') || ($caller eq '/adm/menu')) { return ''; }  
     my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));      my $currenturl=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));
     if ($currenturl =~ m{^/adm/wrapper/ext/}) {      if ($currenturl =~ m{^/adm/wrapper/ext/}
         if ($env{'request.external.querystring'}) {          && $env{'request.external.querystring'} ) {
             $currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'};              $currenturl .= ($currenturl=~/\?/)?'&':'?'.$env{'request.external.querystring'};
         }  
     }      }
     $currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));      $currenturl=&Apache::lonenc::check_encrypt(&unescape($currenturl));
           
     my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});      my $currentsymb=&Apache::lonenc::check_encrypt($env{'request.symb'});
     my $nav_control=&nav_control_js();  
       my $dc_popup_cid;
       if ($env{'user.adv'} && exists($env{'user.role.dc./'.
                           $env{'course.'.$env{'request.course.id'}.
                                    '.domain'}.'/'})) {
           $dc_popup_cid = &dc_popup_js();
       }
   
     my $start_page_annotate =       my $start_page_annotate = 
         &Apache::loncommon::start_page('Annotator',undef,          &Apache::loncommon::start_page('Annotator',undef,
Line 1517  sub utilityfunctions { Line 1309  sub utilityfunctions {
     my $end_page_annotate =       my $end_page_annotate = 
         &Apache::loncommon::end_page({'js_ready' => 1});          &Apache::loncommon::end_page({'js_ready' => 1});
   
     my $start_page_bookmark =       my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.
         &Apache::loncommon::start_page('Bookmarks',undef,  
        {'only_body' => 1,  
  'js_ready'  => 1,  
  'bgcolor'   => '#BBBBBB',});  
   
     my $end_page_bookmark =   
         &Apache::loncommon::end_page({'js_ready' => 1});  
   
     my $confirm_switch = &mt("Editing requires switching to the reource's home server.").'\n'.  
                          &mt('Switch server?');                           &mt('Switch server?');
   
       my $esc_url=&escape($currenturl);
       my $esc_symb=&escape($currentsymb);
   
 return (<<ENDUTILITY)  return (<<ENDUTILITY)
   
     var currentURL="$currenturl";      var currentURL=unescape("$esc_url");
     var reloadURL="$currenturl";      var reloadURL=unescape("$esc_url");
     var currentSymb="$currentsymb";      var currentSymb=unescape("$esc_symb");
   
 $nav_control  $dc_popup_cid
   
 function go(url) {  function go(url) {
    if (url!='' && url!= null) {     if (url!='' && url!= null) {
Line 1548  function go(url) { Line 1334  function go(url) {
 function need_switchserver(url) {  function need_switchserver(url) {
     if (url!='' && url!= null) {      if (url!='' && url!= null) {
         if (confirm("$confirm_switch")) {          if (confirm("$confirm_switch")) {
             go(url);              go(url); 
         }          }
     }      }
     return;      return;
Line 1626  function golist(url) { Line 1412  function golist(url) {
   
   
 function catalog_info() {  function catalog_info() {
    loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=320,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');     openMyModal(window.location.pathname+'.meta',500,400,'yes');
 }  }
   
 function chat_win() {  function chat_win() {
    lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');     lonchat=window.open('/res/adm/pages/chatroom.html',"LONchat",'height=320,width=480,resizable=yes,location=no,menubar=no,toolbar=no');
 }  }
   
 function group_chat(group) {  function group_chat(group) {
Line 1639  function group_chat(group) { Line 1425  function group_chat(group) {
    grpchat=window.open(url,winName,'height=320,width=280,resizable=yes,location=no,menubar=no,toolbar=no');     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() {  function annotate() {
    w_Annotator_flag=1;     w_Annotator_flag=1;
    annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');     annotator=window.open('','Annotator','width=365,height=265,scrollbars=0');
Line 1659  function annotate() { Line 1438  function annotate() {
    annotator.document.close();     annotator.document.close();
 }  }
   
 function set_bookmark() {  function open_Wishlist_Import(rat) {
    go('');     var newWin;
    clienttitle=document.title;     if (rat) {
    clienthref=location.pathname;         newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import&rat='+rat,
    w_bmquery_flag=1;                              'wishlistImport','scrollbars=1,resizable=1,menubar=0');
    bmquery=window.open('','bmquery','width=365,height=165,scrollbars=0');     }
    bmquery.document.write(     else {
    '$start_page_bookmark'         newWin = window.open('/adm/wishlist?inhibitmenu=yes&mode=import',
    +'<center><form method="post"'                              'wishlistImport','scrollbars=1,resizable=1,menubar=0');
    +' name="newlink" action="/adm/bookmarks" target="bmquery" '     }
    +'> <table width="340" height="150" '     newWin.focus();
    +'bgcolor="ffffff" align="center"><tr><td>Link Name:<br /><input '  
    +'type="text" name="title" size="45" value="'+clienttitle+'" />'  
    +'<br />Address:<br /><input type="text" name="address" size="45" '  
    +'value="'+clienthref+'" /><br /><center><input type="submit" '  
    +'value="Save" /> <input type="button" value="Close" '  
    +'onclick="javascript:window.close();" /></center></td>'  
    +'</tr></table></form></center>'  
    +'$end_page_bookmark' );  
    bmquery.document.close();  
 }  }
   
 ENDUTILITY  ENDUTILITY
Line 1713  sub constspaceform { Line 1483  sub constspaceform {
 ENDCONSTSPACEFORM  ENDCONSTSPACEFORM
 }  }
   
   
 sub get_nav_status {  
     my $navstatus="swmenu.w_loncapanav_flag=";  
     if ($env{'environment.remotenavmap'} eq 'on') {  
  $navstatus.="1";  
     } else {  
  $navstatus.="-1";  
     }  
     return $navstatus;  
 }  
   
 sub hidden_button_check {  sub hidden_button_check {
     my $hidden;      if ( $env{'request.course.id'} eq ''
     if ($env{'request.course.id'} eq '') {           || $env{'request.role.adv'} ) {
         return;  
     }  
     if ($env{'request.role.adv'}) {  
         return;          return;
     }      }
     my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide');      my $buttonshide = &Apache::lonnet::EXT('resource.0.buttonshide');
Line 1740  sub roles_selector { Line 1497  sub roles_selector {
     my ($cdom,$cnum) = @_;      my ($cdom,$cnum) = @_;
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
     my $now = time;      my $now = time;
     my (%courseroles,%seccount);      my (%courseroles,%seccount,%courseprivs);
     my $is_cc;      my $is_cc;
     my $role_selector;      my $role_selector;
     my $ccrole;      my $ccrole;
Line 1749  sub roles_selector { Line 1506  sub roles_selector {
     } else {      } else {
         $ccrole = 'cc';          $ccrole = 'cc';
     }      }
       my $priv;
       my $destinationurl = $ENV{'REQUEST_URI'};
       my $reqprivs = &required_privs();
       if (ref($reqprivs) eq 'HASH') {
           my $destination = $destinationurl;
           $destination =~ s/(\?.*)$//;
           if (exists($reqprivs->{$destination})) {
               $priv = $reqprivs->{$destination};
           }
       }
     if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) {      if ($env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum}) {
         my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum});          my ($start,$end) = split(/\./,$env{'user.role.'.$ccrole.'./'.$cdom.'/'.$cnum});
           
         if ((($start) && ($start<0)) ||           if ((($start) && ($start<0)) || 
             (($end) && ($end<$now))  ||              (($end) && ($end<$now))  ||
             (($start) && ($now<$start))) {              (($start) && ($now<$start))) {
Line 1760  sub roles_selector { Line 1528  sub roles_selector {
         }          }
     }      }
     if ($is_cc) {      if ($is_cc) {
         &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount);          &get_all_courseroles($cdom,$cnum,\%courseroles,\%seccount,\%courseprivs,$priv);
     } else {      } else {
         my %gotnosection;          my %gotnosection;
         foreach my $item (keys(%env)) {          foreach my $item (keys(%env)) {
Line 1776  sub roles_selector { Line 1544  sub roles_selector {
                         $gotnosection{$role} = 1;                          $gotnosection{$role} = 1;
                     }                      }
                 }                  }
                   if ($priv ne '') {
                       my $cnumsec = $cnum;
                       if ($sec ne '') {
                           $cnumsec .= "/$sec";
                       }
                       $courseprivs{"$role./$cdom/$cnumsec./"} =
                           $env{"user.priv.$role./$cdom/$cnumsec./"};
                       $courseprivs{"$role./$cdom/$cnumsec./$cdom/"} =
                           $env{"user.priv.$role./$cdom/$cnumsec./$cdom/"};
                       $courseprivs{"$role./$cdom/$cnumsec./$cdom/$cnumsec"} =
                           $env{"user.priv.$role./$cdom/$cnumsec./$cdom/$cnumsec"};
                   }
                 if (ref($courseroles{$role}) eq 'ARRAY') {                  if (ref($courseroles{$role}) eq 'ARRAY') {
                     if ($sec ne '') {                      if ($sec ne '') {
                         if (!grep(/^Q$sec\E$/,@{$courseroles{$role}})) {                          if (!grep(/^\Q$sec\E$/,@{$courseroles{$role}})) {
                             push(@{$courseroles{$role}},$sec);                              push(@{$courseroles{$role}},$sec);
                             $seccount{$role} ++;                              $seccount{$role} ++;
                         }                          }
Line 1799  sub roles_selector { Line 1579  sub roles_selector {
     } else {      } else {
         $switchtext = &mt('Switch course role to...')          $switchtext = &mt('Switch course role to...')
     }      }
   
     my @roles_order = ($ccrole,'in','ta','ep','ad','st');      my @roles_order = ($ccrole,'in','ta','ep','ad','st');
     if (keys(%courseroles) > 1) {      if (keys(%courseroles) > 1) {
         $role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles);          $role_selector = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs,$priv);
         $role_selector .= '<form name="rolechooser" method="post" action="/adm/roles">          $role_selector .= '<form name="rolechooser" method="post" action="/adm/roles">
                           <select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">';                            <select name="switchrole" onchange="javascript:adhocRole('."'switchrole'".')">';
         $role_selector .= '<option value="">'.$switchtext.'</option>';          $role_selector .= '<option value="">'.$switchtext.'</option>';
Line 1818  sub roles_selector { Line 1597  sub roles_selector {
         }          }
         $role_selector .= '</select>'."\n".          $role_selector .= '</select>'."\n".
                '<input type="hidden" name="destinationurl" value="'.                 '<input type="hidden" name="destinationurl" value="'.
                &HTML::Entities::encode($ENV{'REQUEST_URI'},'"<>&').'" />'."\n".                 &HTML::Entities::encode($destinationurl).'" />'."\n".
                '<input type="hidden" name="gotorole" value="1" />'."\n".                 '<input type="hidden" name="gotorole" value="1" />'."\n".
                '<input type="hidden" name="selectrole" value="" />'."\n".                 '<input type="hidden" name="selectrole" value="" />'."\n".
                '<input type="hidden" name="switch" value="1" />'."\n".                 '<input type="hidden" name="switch" value="1" />'."\n".
Line 1828  sub roles_selector { Line 1607  sub roles_selector {
 }  }
   
 sub get_all_courseroles {  sub get_all_courseroles {
     my ($cdom,$cnum,$courseroles,$seccount) = @_;      my ($cdom,$cnum,$courseroles,$seccount,$courseprivs) = @_;
     unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH')) {      unless ((ref($courseroles) eq 'HASH') && (ref($seccount) eq 'HASH') &&
               (ref($courseprivs) eq 'HASH')) {
         return;          return;
     }      }
     my ($result,$cached) =      my ($result,$cached) = 
         &Apache::lonnet::is_cached_new('getcourseroles',$cdom.'_'.$cnum);          &Apache::lonnet::is_cached_new('getcourseroles',$cdom.'_'.$cnum);
     if (defined($cached)) {      if (defined($cached)) {
         if (ref($result) eq 'HASH') {          if (ref($result) eq 'HASH') {
             if ((ref($result->{'roles'}) eq 'HASH') &&              if ((ref($result->{'roles'}) eq 'HASH') && 
                 (ref($result->{'seccount'}) eq 'HASH')) {                  (ref($result->{'seccount'}) eq 'HASH') && 
                   (ref($result->{'privs'}) eq 'HASH')) {
                 %{$courseroles} = %{$result->{'roles'}};                  %{$courseroles} = %{$result->{'roles'}};
                 %{$seccount} = %{$result->{'seccount'}};                  %{$seccount} = %{$result->{'seccount'}};
                   %{$courseprivs} = %{$result->{'privs'}};
                 return;                  return;
             }              }
         }          }
Line 1855  sub get_all_courseroles { Line 1637  sub get_all_courseroles {
         }          }
         if (ref($courseroles->{$urole}) eq 'ARRAY') {          if (ref($courseroles->{$urole}) eq 'ARRAY') {
             if ($usec ne '') {              if ($usec ne '') {
                 if (!grep(/^\Q$usec\E$/,@{$courseroles->{$urole}})) {                  if (!grep(/^Q$usec\E$/,@{$courseroles->{$urole}})) {
                     push(@{$courseroles->{$urole}},$usec);                      push(@{$courseroles->{$urole}},$usec);
                     $seccount->{$urole} ++;                      $seccount->{$urole} ++;
                 }                  }
Line 1867  sub get_all_courseroles { Line 1649  sub get_all_courseroles {
                 push(@{$courseroles->{$urole}},$usec);                  push(@{$courseroles->{$urole}},$usec);
             }              }
         }          }
           my $area = '/'.$cdom.'/'.$cnum;
           if ($usec ne '') {
               $area .= '/'.$usec;
           }
           if ($role =~ /^cr\//) {
               &Apache::lonnet::custom_roleprivs($courseprivs,$urole,$cdom,$cnum,$urole.'.'.$area,$area);
           } else {
               &Apache::lonnet::standard_roleprivs($courseprivs,$urole,$cdom,$urole.'.'.$area,$cnum,$area);
           }
     }      }
     my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']);      my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum,['st']);
     @{$courseroles->{'st'}} = ();      @{$courseroles->{'st'}} = ();
       &Apache::lonnet::standard_roleprivs($courseprivs,'st',$cdom,"st./$cdom/$cnum",$cnum,"/$cdom/$cnum");
     if (keys(%sections_count) > 0) {      if (keys(%sections_count) > 0) {
         push(@{$courseroles->{'st'}},keys(%sections_count));          push(@{$courseroles->{'st'}},keys(%sections_count));
         $seccount->{'st'} = scalar(keys(%sections_count));          $seccount->{'st'} = scalar(keys(%sections_count));
Line 1877  sub get_all_courseroles { Line 1669  sub get_all_courseroles {
     my $rolehash = {      my $rolehash = {
                      'roles'    => $courseroles,                       'roles'    => $courseroles,
                      'seccount' => $seccount,                       'seccount' => $seccount,
                        'privs'    => $courseprivs,
                    };                     };
     &Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash);      &Apache::lonnet::do_cache_new('getcourseroles',$cdom.'_'.$cnum,$rolehash);
     return;      return;
 }  }
   
 sub jump_to_role {  sub jump_to_role {
     my ($cdom,$cnum,$seccount,$courseroles) = @_;      my ($cdom,$cnum,$seccount,$courseroles,$courseprivs,$priv) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                 this => 'This role has section(s) associated with it.',                  this => 'This role has section(s) associated with it.',
                 ente => 'Enter a specific section.',                  ente => 'Enter a specific section.',
                 orlb => 'Enter a specific section, or leave blank for no section.',                  orlb => 'Enter a specific section, or leave blank for no section.',
                 avai => 'Available sections are:',                  avai => 'Available sections are:',
                 youe => 'You entered an invalid section choice:',                  youe => 'You entered an invalid section choice:',
                 plst => 'Please try again',                  plst => 'Please try again.',
                   role => 'The role you selected is not permitted to view the current page.',
                   swit => 'Switch role, but display Main Menu page instead?',
     );      );
     my $js;      my $js;
     if (ref($courseroles) eq 'HASH') {      if (ref($courseroles) eq 'HASH') {
Line 1913  sub jump_to_role { Line 1708  sub jump_to_role {
                    '    numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n";                     '    numsec['.$i.'] = "'.$seccount->{$items[$i]}.'";'."\n";
         }          }
     }      }
       my $checkroles = 0;
       if ($priv && ref($courseprivs) eq 'HASH') {
           my (%disallowed,%allowed,@disallow);
           foreach my $role (sort(keys(%{$courseprivs}))) {
               my $trole;
               if ($role =~ m{^(.+?)\Q./$cdom/$cnum\E}) {
                   $trole = $1;
               }
               if (($trole ne '') && ($trole ne 'cm')) {
                   if ($courseprivs->{$role} =~ /\Q:$priv\E($|:|\&\w+)/) {
                       $allowed{$trole} = 1;
                   } else {
                       $disallowed{$trole} = 1;
                   }
               }
           }
           foreach my $trole (keys(%disallowed)) {
               unless ($allowed{$trole}) {
                   push(@disallow,$trole);
               }
           }
           if (@disallow > 0) {
               $checkroles = 1;
               $js .= "    var disallow = new Array('".join("','",@disallow)."');\n".
                      "    var rolecheck = 1;\n";
           }
       }
       if (!$checkroles) {
           $js .=  "    var disallow = new Array();\n".
                   "    rolecheck = 0;\n";
       }
     return <<"END";      return <<"END";
 <script type="text/javascript">  <script type="text/javascript">
 //<![CDATA[  //<![CDATA[
Line 1920  function adhocRole(roleitem) { Line 1746  function adhocRole(roleitem) {
     $js      $js
     var newrole =  document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value;      var newrole =  document.rolechooser.elements[roleitem].options[document.rolechooser.elements[roleitem].selectedIndex].value;
     if (newrole == '') {      if (newrole == '') {
         return;           return;
     }       } 
     var fullrole = newrole+'./$cdom/$cnum';      var fullrole = newrole+'./$cdom/$cnum';
     var selidx = '';      var selidx = '';
Line 1929  function adhocRole(roleitem) { Line 1755  function adhocRole(roleitem) {
             selidx = i;              selidx = i;
         }          }
     }      }
       if (rolecheck > 0) {
           for (var i=0; i<disallow.length; i++) {
               if (disallow[i] == newrole) {
                   if (confirm("$lt{'role'}\\n$lt{'swit'}")) {
                       document.rolechooser.destinationurl.value = '/adm/menu';
                   } else {
                       document.rolechooser.elements[roleitem].selectedIndex = 0;
                       return;
                   }
               }
           }
       }
     var secok = 1;      var secok = 1;
     var secchoice = '';      var secchoice = '';
     if (selidx >= 0) {      if (selidx >= 0) {
Line 1936  function adhocRole(roleitem) { Line 1774  function adhocRole(roleitem) {
             secok = 0;              secok = 0;
             var numrolesec = rolesections[selidx].length;              var numrolesec = rolesections[selidx].length;
             var msgidx = numsec[selidx] - numrolesec;              var msgidx = numsec[selidx] - numrolesec;
             secchoice = prompt("$lt{'this'}\\n"+secpick[msgidx]+"\\n$lt{'avai'} "+roleseclist[selidx],"");              secchoice = prompt("$lt{'this'} "+secpick[msgidx]+"\\n$lt{'avai'} "+roleseclist[selidx],"");
             if (secchoice == '') {              if (secchoice == '') {
                 if (msgidx > 0) {                  if (msgidx > 0) {
                     secok = 1;                      secok = 1;
Line 1966  function adhocRole(roleitem) { Line 1804  function adhocRole(roleitem) {
         return;          return;
     }      }
     if (fullrole == "$env{'request.role'}") {      if (fullrole == "$env{'request.role'}") {
           document.rolechooser.elements[roleitem].selectedIndex = 0;
         return;          return;
     }      }
     itemid = retrieveIndex('gotorole');      itemid = retrieveIndex('gotorole');
Line 1991  function retrieveIndex(item) { Line 1830  function retrieveIndex(item) {
 END  END
 }  }
   
   sub required_privs {
       my $privs =  {
                '/adm/parmset'      => 'opa',
                '/adm/courseprefs'  => 'opa',
                '/adm/whatsnew'     => 'whn',
                '/adm/populate'     => 'cst',
                '/adm/trackstudent' => 'vsa',
                '/adm/statistics'   => 'vgr',
                '/adm/setblock'     => 'dcm',
                '/adm/coursedocs'   => 'mdc',
              };
       unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {
           $privs->{'/adm/classcalc'}   = 'vgr',
           $privs->{'/adm/assesscalc'}  = 'vgr',
           $privs->{'/adm/studentcalc'} = 'vgr';
       }
       return $privs;
   }
   
 # ================================================================ Main Program  # ================================================================ Main Program
   
 BEGIN {  BEGIN {
     if (! defined($readdesk)) {      if (! defined($readdesk)) {
  {          {
     my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';              my $tabfile = $Apache::lonnet::perlvar{'lonTabDir'}.'/mydesk.tab';
     if ( CORE::open( my $config,"<$tabfile") ) {              if ( CORE::open( my $config,"<$tabfile") ) {
  while (my $configline=<$config>) {                  while (my $configline=<$config>) {
     $configline=(split(/\#/,$configline))[0];                      $configline=(split(/\#/,$configline))[0];
     $configline=~s/^\s+//;                      $configline=~s/^\s+//;
     chomp($configline);                      chomp($configline);
                     if ($configline=~/^cat\:/) {                      if ($configline=~/^cat\:/) {
                        my @entries=split(/\:/,$configline);                          my @entries=split(/\:/,$configline);
                        $category_positions{$entries[2]}=$entries[1];                          $category_positions{$entries[2]}=$entries[1];
                        $category_names{$entries[2]}=$entries[3];                          $category_names{$entries[2]}=$entries[3];
     } elsif ($configline) {                      } elsif ($configline=~/^prim\:/) {
  push(@desklines,$configline);                          my @entries = (split(/\:/, $configline))[1..5];
     }                          push @primary_menu, \@entries;
  }                      } elsif ($configline=~/^scnd\:/) {
  CORE::close($config);                          my @entries = (split(/\:/, $configline))[1..5];
     }                          push @secondary_menu, \@entries; 
  }                      } elsif ($configline) {
  $readdesk='done';                          push(@desklines,$configline);
                       }
                   }
                   CORE::close($config);
               }
           }
           $readdesk='done';
     }      }
 }  }
   
 1;  1;
 __END__  __END__
   
   
   
   
   
   
   
Removed from v.1.244.2.18  
changed lines
  Added in v.1.369.2.1

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