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

Diff for /loncom/interface/lonmenu.pm between versions 1.369.2.29 and 1.376

version 1.369.2.29, 2012/12/22 15:08:10 version 1.376, 2012/05/24 23:30:16
Line 117  Same as primary_menu() but operates on @ Line 117  Same as primary_menu() but operates on @
   
 =item create_submenu()  =item create_submenu()
   
 Creates XHTML for unordered list of sub-menu items which belong to a  Creates XHTML for unordered list of sub-menu items which belong to a 
 particular top-level menu item. Uses hover pseudo class in css to display  particular top-level menu item. Uses hover pseudo class in css to display
 dropdown list when mouse hovers over top-level item. Support for IE6  dropdown list when mouse hovers over top-level item. Support for IE6 
 (no hover psuedo class) via LC_hoverable class for <li> tag for top-  (no hover psuedo class) via LC_hoverable class for <li> tag for top-
 level item, which employs jQuery to handle behavior on mouseover.  level item, which employs jQuery to handle behavior on mouseover.
   
Line 131  Inputs: 4 - (a) link and (b) target for Line 131  Inputs: 4 - (a) link and (b) target for
   
 This gets called in order to register a URL in the body of the document  This gets called in order to register a URL in the body of the document
   
 =item loadevents()  
   
 =item unloadevents()  
   
 =item startupremote()  
   
 =item setflags()  
   
 =item maincall()  
   
 =item load_remote_msg()  
   
 =item get_menu_name()  
   
 =item reopenmenu()  
   
 =item open()  
   
 Open the menu  
   
 =item clear()  =item clear()
   
 =item switch()  =item switch()
Line 202  use HTML::Entities(); Line 182  use HTML::Entities();
 use Apache::lonwishlist();  use Apache::lonwishlist();
   
 use vars qw(@desklines %category_names %category_members %category_positions   use vars qw(@desklines %category_names %category_members %category_positions 
             $readdesk @primary_menu %primary_submenu @secondary_menu %secondary_submenu);              $readdesk @primary_menu %primary_submenu @secondary_menu);
   
 my @inlineremote;  my @inlineremote;
   
Line 267  sub primary_menu { Line 247  sub primary_menu {
             my @primsub;              my @primsub;
             if (ref($primary_submenu{$title}) eq 'ARRAY') {              if (ref($primary_submenu{$title}) eq 'ARRAY') {
                 foreach my $item (@{$primary_submenu{$title}}) {                  foreach my $item (@{$primary_submenu{$title}}) {
                     next if (($item->[2] eq 'wishlist') && (!$env{'user.adv'}));                       next if (($item->[2] eq 'wishlist') &&
                                ((!&Apache::lonnet::allowed('bre',"/res/$env{'user.domain'}/")) &&
                                 (!&Apache::lonnet::allowed('bro',"/res/$env{'user.domain'}/"))));
                     next if (($item->[2] eq 'reqcrs') && (!&check_for_rcrs()));                      next if (($item->[2] eq 'reqcrs') && (!&check_for_rcrs()));
                     next if ((($item->[2] eq 'portfolio') ||                       next if ((($item->[2] eq 'portfolio') ||
                              ($item->[2] eq 'blog')) &&                                ($item->[2] eq 'blog')) &&
                              (!&Apache::lonnet::usertools_access('','',$item->[2],                               (!&Apache::lonnet::usertools_access('','',$item->[2],
                                                            undef,'tools')));                                                             undef,'tools')));
                     push(@primsub,$item);                      push(@primsub,$item);
Line 278  sub primary_menu { Line 260  sub primary_menu {
                 if (@primsub > 0) {                  if (@primsub > 0) {
                     $menu .= &create_submenu($link,$target,$title,\@primsub);                      $menu .= &create_submenu($link,$target,$title,\@primsub);
                 } elsif ($link) {                  } elsif ($link) {
                     $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';                      $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.$title.'</a></li>';
                 }                  }
             }              }
         } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink          } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
Line 338  sub secondary_menu { Line 320  sub secondary_menu {
                                                : '');                                                 : '');
     my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});      my $canedit       = &Apache::lonnet::allowed('mdc', $env{'request.course.id'});
     my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};      my $canviewroster = $env{'course.'.$env{'request.course.id'}.'.student_classlist_view'};
     my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec);      my $canviewgrps   = &Apache::lonnet::allowed('vcg', $crs_sec); 
     my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec);      my $canmodifyuser = &Apache::lonnet::allowed('cst', $crs_sec); 
     my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec);      my $canviewwnew   = &Apache::lonnet::allowed('whn', $crs_sec); 
     my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);      my $canmodpara    = &Apache::lonnet::allowed('opa', $crs_sec);
     my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);      my $canvgr        = &Apache::lonnet::allowed('vgr', $crs_sec);
     my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec);      my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec); 
     my $author        = &getauthor();      my $author        = &getauthor();
   
     my %groups = &Apache::lonnet::get_active_groups(      my %groups = &Apache::lonnet::get_active_groups(
Line 359  sub secondary_menu { Line 341  sub secondary_menu {
                 && !$env{'request.course.id'};                  && !$env{'request.course.id'};
         next if    $$menuitem[4]   =~ /^mdc/          next if    $$menuitem[4]   =~ /^mdc/
                 && !$canedit;                  && !$canedit;
         next if    $$menuitem[4]  eq 'mdcCourse'  
                 && ($crstype eq 'Community');  
         next if    $$menuitem[4]  eq 'mdcCommunity'  
                 && ($crstype eq 'Course');  
         next if    $$menuitem[4]  eq 'nvgr'          next if    $$menuitem[4]  eq 'nvgr'
                 && $canvgr;                  && $canvgr;
         next if    $$menuitem[4]  eq 'vgr'          next if    $$menuitem[4]  eq 'vgr'
Line 379  sub secondary_menu { Line 357  sub secondary_menu {
                 && !$canviewwnew;                  && !$canviewwnew;
         next if    $$menuitem[4]   eq 'opa'          next if    $$menuitem[4]   eq 'opa'
                 && !$canmodpara;                  && !$canmodpara;
         next if    $$menuitem[4]   eq 'nvcg'          next if    $$menuitem[4]   =~ /showgroups$/
                 && ($canviewgrps || !%groups);                  && !$canviewgrps
                   && !%groups;
         next if    $$menuitem[4]    eq 'author'          next if    $$menuitem[4]    eq 'author'
                 && !$author;                  && !$author;
   
         my $title = $menuitem->[3];          if ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
         if (defined($secondary_submenu{$title})) {  
             my ($link,$target);  
             if ($menuitem->[0] ne '') {  
                 $link = $menuitem->[0];  
                 $target = '_top';  
             } else {  
                 $link = '#';  
             }  
             my @scndsub;     
             if (ref($secondary_submenu{$title}) eq 'ARRAY') {  
                 foreach my $item (@{$secondary_submenu{$title}}) {  
                     if (ref($item) eq 'ARRAY') {  
                         next if ($item->[2] eq 'vgr' && !$canvgr);  
                         next if ($item->[2] eq 'opa' && !$canmodpara);  
                         next if ($item->[2] eq 'cst' && !$canmodifyuser);  
                         next if ($item->[2] eq 'mgr' && !$canmgr);  
                         next if ($item->[2] eq 'vcg' && !$canviewgrps);  
                         push(@scndsub,$item);   
                     }  
                 }  
                 if (@scndsub > 0) {  
                     $menu .= &create_submenu($link,$target,$title,\@scndsub);  
                 } elsif ($link) {  
                     $menu .= '<li><a href="'.$link.'" target="'.$target.'">'.&mt($title).'</a></li>';  
                 }  
             }  
         } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {  
             # special treatment for role selector              # special treatment for role selector
             my $roles_selector = &roles_selector(              my $roles_selector = &roles_selector(
                         $env{'course.' . $env{'request.course.id'} . '.domain'},                          $env{'course.' . $env{'request.course.id'} . '.domain'},
                         $env{'course.' . $env{'request.course.id'} . '.num'}  );                          $env{'course.' . $env{'request.course.id'} . '.num'}  );
   
             $menu .= $roles_selector ? "<li style=\"padding: 0 0.8em;\">$roles_selector</li>"              $menu .= $roles_selector ? "<li>$roles_selector</li>"
                                      : '';                                       : '';
         } else {          } else {
             $menu .= &prep_menuitem(\@$menuitem);              $menu .= &prep_menuitem(\@$menuitem);
Line 443  sub secondary_menu { Line 395  sub secondary_menu {
     }      }
     $menu =~ s/\[uname\]/$$author{user}/g;      $menu =~ s/\[uname\]/$$author{user}/g;
     $menu =~ s/\[udom\]/$$author{dom}/g;      $menu =~ s/\[udom\]/$$author{dom}/g;
     if ($menu) {  
         $menu = "<ul id=\"LC_secondary_menu\">$menu</ul>";      return "<ul id=\"LC_secondary_menu\">$menu</ul>";
     }  
     return $menu;  
 }  }
   
 sub create_submenu {  sub create_submenu {
     my ($link,$target,$title,$submenu) = @_;      my ($link,$target,$title,$submenu) = @_;
     return unless (ref($submenu) eq 'ARRAY');      return unless (ref($submenu) eq 'ARRAY');
     my $disptarget;  
     if ($target ne '') {  
         $disptarget = ' target="'.$target.'"';  
     }  
     my $menu = '<li class="LC_hoverable">'.      my $menu = '<li class="LC_hoverable">'.
                '<a href="'.$link.'"'.$disptarget.'>'.                  '<a href="'.$link.'" target="'.$target.'">'.
                '<span class="LC_nobreak">'.&mt($title).                 '<span class="LC_nobreak">'.$title.
                '<span class="LC_fontsize_small" style="font-weight:normal;">'.                 '<span class="LC_fontsize_small" style="font-weight:normal;">'.
                ' &#9660;</span></span></a>'.                 ' &#9660;</span></span></a>'.
                '<ul>';                 '<ul>';
Line 473  sub create_submenu { Line 419  sub create_submenu {
             }              }
             $menu .= '<li style="margin:0;padding:0;'.              $menu .= '<li style="margin:0;padding:0;'.
                      $borderbot.'"><a href="'.$item->[0].'">'.                       $borderbot.'"><a href="'.$item->[0].'">'.
                      &mt($item->[1]).'</a></li>';                       $item->[1].'</a></li>';
         }          }
     }      }
     $menu .= '</ul></li>';      $menu .= '</ul></li>';
     return $menu;      return $menu;
 }  }
   
 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{'environment.remote'} ne 'on') ||  
         ((($env{'request.publicaccess'}) ||  
          (!&Apache::lonnet::is_on_map(  
            &unescape($env{'request.noversionuri'})))) &&  
         (!$forcereg))) {  
         return  
         $result  
        .'<script type="text/javascript">'."\n"  
        .'// <![CDATA['."\n"  
        .'function LONCAPAreg(){;} function LONCAPAstale(){}'."\n"  
        .'// ]]>'."\n"  
        .'</script>'  
        .$force_title;  
     }  
 # Graphical display after login only  
     if ($env{'request.registered'} && !$forcereg) { return ''; }  
     $result.=&innerregister($forcereg);  
     return $result.$force_title;  
 }  
   
 sub innerregister {  sub innerregister {
     my ($forcereg,$bread_crumbs,$group) = @_;      my ($forcereg,$bread_crumbs) = @_;
     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 517  sub innerregister { Line 435  sub innerregister {
   
     $env{'request.registered'} = 1;      $env{'request.registered'} = 1;
   
     my $noremote = ($env{'environment.remote'} ne 'on');  
   
     undef(@inlineremote);      undef(@inlineremote);
   
     my $reopen=&Apache::lonmenu::reopenmenu();      my $resurl; 
       if ( $env{'request.symb'} && $env{'request.course.id'} ) {
     my $newmail='';  
   
     if (&Apache::lonmsg::newmail() && !$noremote) {  
         # We have new mail and remote is up  
         $newmail= 'swmenu.setstatus("you have","messages");';  
     }  
   
     my ($mapurl,$resurl);  
   
     if ($env{'request.course.id'}) {  
         if ($env{'request.symb'}) {  
             ($mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());  
             my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};  
   
             my $maptitle = &Apache::lonnet::gettitle($mapurl);          (my $mapurl, my $rid, $resurl) = &Apache::lonnet::decode_symb(&Apache::lonnet::symbread());
             my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());          my $coursetitle = $env{'course.'.$env{'request.course.id'}.'.description'};
   
           my $maptitle = &Apache::lonnet::gettitle($mapurl);
           my $restitle = &Apache::lonnet::gettitle(&Apache::lonnet::symbread());
   
 #SD  #SD
 #course_type only Course and Community?  #course_type only Course and Community?
 #  #
             my @crumbs;          my @crumbs;
             unless (($forcereg) &&           unless (($forcereg) && ($env{'request.noversionuri'} eq '/adm/navmaps')
                     ($env{'request.noversionuri'} eq '/adm/navmaps') &&                  && ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {
                     ($mapurl eq $env{'course.'.$env{'request.course.id'}.'.url'})) {              @crumbs = ({text  => Apache::loncommon::course_type() 
                 @crumbs = ({text  => Apache::loncommon::course_type()                                   . ' Contents', 
                                     . ' Contents',                           href  => "Javascript:gopost('/adm/navmaps','')"});
                             href  => "Javascript:gopost('/adm/navmaps','')"});          }
             }          if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) { 
             if ($mapurl ne $env{'course.'.$env{'request.course.id'}.'.url'}) {               push(@crumbs, {text  => '...',
                 push(@crumbs, {text  => '...',                             no_mt => 1});
                                no_mt => 1});          }
             }  
           push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle 
             push @crumbs, {text => $maptitle, no_mt => 1} if ($maptitle                                                      && $maptitle ne 'default.sequence' 
                                                        && $maptitle ne 'default.sequence'                                                      && $maptitle ne $coursetitle);
                                                        && $maptitle ne $coursetitle);  
           push @crumbs, {text => $restitle, no_mt => 1} if $restitle; 
             push @crumbs, {text => $restitle, no_mt => 1} if $restitle;   
             &Apache::lonhtmlcommon::clear_breadcrumbs();          &Apache::lonhtmlcommon::clear_breadcrumbs();
             &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);          &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
         } else {      }elsif (! $const_space){
             $resurl = $env{'request.noversionuri'};  
             my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});  
             my $crstype = &Apache::loncommon::course_type();  
             my $title = &mt('View Resource');  
             if ($resurl =~ m{^\Q/uploaded$courseurl/supplemental/\E(default|\d+)/}) {  
                 &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['folderpath','title']);  
                 &Apache::lonhtmlcommon::clear_breadcrumbs();  
                 if ($env{'form.title'}) {  
                     $title = $env{'form.title'};  
                 }  
                 my $trail;  
                 if ($env{'form.folderpath'}) {  
                     &prepare_functions($resurl,$forcereg,$group,undef,undef,1);  
                     ($trail) =  
                         &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);  
                 } else {  
                     &Apache::lonhtmlcommon::add_breadcrumb(  
                     {text  => "Supplemental $crstype Content",  
                      href  => "javascript:gopost('/adm/supplemental','')"});  
                     $title = &mt('View Resource');  
                     ($trail) =  
                         &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);  
                 }  
                 return $trail;  
             }  
             unless ($env{'request.state'} eq 'construct') {  
                 &Apache::lonhtmlcommon::clear_breadcrumbs();  
                 &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});  
             }  
         }  
     } elsif (! $const_space){  
         #a situation when we're looking at a resource outside of context of a           #a situation when we're looking at a resource outside of context of a 
         #course or construction space (e.g. with cumulative rights)          #course or construction space (e.g. with cumulative rights)
         &Apache::lonhtmlcommon::clear_breadcrumbs();          &Apache::lonhtmlcommon::clear_breadcrumbs();
         unless ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) {          &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});
             &Apache::lonhtmlcommon::add_breadcrumb({text => 'View Resource'});  
         }  
     }      }
     my $timesync   = ( $noremote ? '' : 'swmenu.syncclock(1000*'.time.');' );  
 # =============================================================================  # =============================================================================
 # ============================ This is for URLs that actually can be registered  # ============================ This is for URLs that actually can be registered
     if ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/})      return '' unless ( ($env{'request.noversionuri'}!~m{^/(res/)*adm/}) 
                        || ($forcereg)) {                         || $forcereg );
   
         my %swtext;  
         if ($noremote) {  
             %swtext = &get_inline_text();  
         } else {  
             %swtext = &get_rc_text();  
         }  
         my $hwkadd='';  
   
         my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,  # -- This applies to homework problems for users with grading privileges
             $forceview,$editbutton);   my $crs='/'.$env{'request.course.id'};
         if (($resurl =~ m{^/adm/($match_domain)/($match_username)/aboutme$}) ||   if ($env{'request.course.sec'}) {
             ($env{'request.role'} !~/^(aa|ca|au)/)) {      $crs.='_'.$env{'request.course.sec'};
             $editbutton = &prepare_functions($resurl,$forcereg,$group);   }
         }   $crs=~s/\_/\//g;
         if ($editbutton eq '') {  
             $editbutton = &clear(6,1);  
         }  
   
 #          my $hwkadd='';
 # This applies in course context          if ($env{'request.symb'} ne '' &&
 #      $env{'request.filename'}=~/$LONCAPA::assess_re/) {
       if (&Apache::lonnet::allowed('mgr',$crs)) {
    $hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',
                          "gocmd('/adm/grades','gradingmenu')",
                          'Content Grades');
               } elsif (&Apache::lonnet::allowed('vgr',$crs)) {
    $hwkadd.=&switch('','',7,2,'subm.png','Content Submissions','missions[_1]',
                          "gocmd('/adm/grades','submission')",
          'Content Submissions');
               }
    }
    if ($env{'request.symb'} ne '' &&
       &Apache::lonnet::allowed('opa',$crs)) {
       $hwkadd.=&switch('','',7,3,'pparm.png','Content Settings','parms[_2]',
        "gocmd('/adm/parmset','set')",
        '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
           ###
           ### Determine whether or not to display the 'cstr' button for this
           ### resource
           ###
           my $editbutton = '';
           my $noeditbutton = 1;
           my ($cnum,$cdom);
         if ($env{'request.course.id'}) {          if ($env{'request.course.id'}) {
             $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};              $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
             $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};              $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
             $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});          }
             my @privs;          if ($env{'user.author'}) {
             if ($env{'request.symb'} ne '') {              if ($env{'request.role'}=~/^(aa|ca|au)/) {
                 if ($env{'request.filename'}=~/$LONCAPA::assess_re/) {  
                     push(@privs,('mgr','vgr'));  
                 }  
                 push(@privs,'opa');  
             }  
             foreach my $priv (@privs) {  
                 $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});  
                 if (!$perms{$priv} && $env{'request.course.sec'} ne '') {  
                     $perms{$priv} =  
                         &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");  
                 }  
             }  
 #  #
 # Determine whether or not to show Grades and Submissions buttons  # We have the role of an author
 #  #
             if ($env{'request.symb'} ne '' &&                  # Set defaults for authors
                 $env{'request.filename'}=~/$LONCAPA::assess_re/) {                  my ($top,$bottom) = ('con-','struct');
                 if ($perms{'mgr'}) {                  my $action = "go('/priv/".$env{'user.domain'}.'/'.$env{'user.name'}."');";
                     $hwkadd.= &switch('','',7,2,'pgrd.png','Content Grades',                  my $cadom  = $env{'request.role.domain'};
                                       'grades[_4]',                  my $caname = $env{'user.name'};
                                       "gocmd('/adm/grades','gradingmenu')",                  my $desc = "Enter my construction space";
                                       'Content Grades');                  # Set defaults for co-authors
                 } elsif ($perms{'vgr'}) {                  if ($env{'request.role'} =~ /^ca/) { 
                     $hwkadd .= &switch('','',7,2,'subm.png','Content Submissions',                      ($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);
                                        'missions[_1]',                      ($top,$bottom) = ('co con-','struct');
                                        "gocmd('/adm/grades','submission')",                      $action = "go('/priv/".$cadom.'/'.$caname."');";
                                        'Content Submissions');                      $desc = "Enter construction space as co-author";
                 }                  } elsif ($env{'request.role'} =~ /^aa/) {
             }                      ($cadom,$caname)=($env{'request.role'}=~/($match_domain)\/($match_username)$/);
             if (($env{'request.symb'} ne '') && ($perms{'opa'})) {                      ($top,$bottom) = ('co con-','struct');
                 $hwkadd .= &switch('','',7,3,'pparm.png','Content Settings',                      $action = "go('/priv/".$cadom.'/'.$caname."');";
                                    'parms[_2]',"gocmd('/adm/parmset','set')",                      $desc = "Enter construction space as assistant co-author";
                                    'Content Settings');                  }
                   # Check that we are on the correct machine
                   my $home = &Apache::lonnet::homeserver($caname,$cadom);
    my $allowed=0;
    my @ids=&Apache::lonnet::current_machine_ids();
    foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
    if (!$allowed) {
       $editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);
                       $noeditbutton = 0;
                   }
             }              }
 # End grades/submissions check  
   
 #  
 # This applies to items inside a folder/page modifiable in the course.  
 #  #
             if (($env{'request.symb'}=~/^uploaded/) && ($perms{'mdc'})) {  # We are an author for some stuff, but currently do not have the role of author.
                 my $text = 'Edit Folder';  # Figure out if we have authoring privileges for the resource we are looking at.
                 if (($mapurl =~ /\.page$/) ||  # This should maybe become a privilege check in lonnet
                     ($env{'request.symb'}=~  #
                          m{uploaded/$cdom/$cnum/default_\d+\.page$}))  {              ##
                     $text = 'Edit Page';              ## Determine if user can edit url.
                 }              ##
                 $hwkadd .= &switch('','',7,4,'docs-22x22.png',$text,'parms[_2]',              my $cfile='';
                                    "gocmd('/adm/coursedocs','direct')",              my $cfuname='';
                                    'Folder/Page Content');              my $cfudom='';
               my $uploaded;
               my $switchserver='';
               my $home;
               if ($env{'request.filename'}) {
                   my $file=&Apache::lonnet::declutter($env{'request.filename'});
                   if (defined($cnum) && defined($cdom)) {
                       $uploaded = &is_course_upload($file,$cnum,$cdom);
                   }
                   if (!$uploaded) {
   
                       $file=~s{^(priv/$match_domain/$match_username)}{/$1};
                       $file=~s{^($match_domain/$match_username)}{/priv/$1};
   
                       # Check that the user has permission to edit this resource
                       my $setpriv = 1;
                       ($cfuname,$cfudom)=&Apache::loncacc::constructaccess($file,$setpriv);
                       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
               if (($cfile || $switchserver) && !$const_space) {
                   my $nocrsedit;
                   # Suppress display where CC has switched to student role.
                   if ($env{'request.course.id'}) {
                       unless(&Apache::lonnet::allowed('mdc',
                                                       $env{'request.course.id'})) {
                           $nocrsedit = 1;
                       }
                   }
                   if ($nocrsedit) {
                       $editbutton=&clear(6,1);
                   } else {
                       my $bot = "go('$cfile')";
                       if ($switchserver) {
                           if ( $env{'request.symb'} && $env{'request.course.id'} ) {
                               $cfile = '/adm/switchserver?otherserver='.$home.'&amp;role='.
                                        &HTML::Entities::encode($env{'request.role'},'"<>&').'&amp;symb='.
                                        &HTML::Entities::encode($env{'request.symb'},'"<>&');
                               $bot = "need_switchserver('$cfile');";
                           }
                       }
                       $editbutton=&switch
                          ('','',6,1,'pcstr.png','Edit','resource[_2]',
                           $bot,"Edit this resource");
                       $noeditbutton = 0;
                   }
               } elsif ($editbutton eq '') {
                   $editbutton=&clear(6,1);
             }              }
 # End modifiable folder/page container check  
         }          }
 # End course context          if (($noeditbutton) && ($env{'request.filename'})) { 
               if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
                   my $file=&Apache::lonnet::declutter($env{'request.filename'});
                   if (defined($cnum) && defined($cdom)) {
                       if (&is_course_upload($file,$cnum,$cdom)) {
                           my $cfile = &edit_course_upload($file,$cnum,$cdom);
                           if ($cfile) {
                               $editbutton=&switch
                                           ('','',6,1,'pcstr.png','Edit',
                                            'resource[_2]',"go('".$cfile."');",
                                            'Edit this resource');
                           }
                       }
                   }
               }
           }
           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,$got_prt,$got_wishlist,$cstritems);          my $menuitems;
         if ($const_space) {          if ($const_space) {
 #  #
 # We are in construction space  # We are in construction space
Line 717  s&6&3&pub.png&Publish&resource[_3]&gocst Line 685  s&6&3&pub.png&Publish&resource[_3]&gocst
 s&7&1&del.png&Delete&resource[_2]&gocstr('/adm/cfile?action=delete','/priv/$udom/$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.png&Print&printout[_1]&gocstr('/adm/printout','/priv/$udom/$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
                 unless ($noremote) {  
                     $cstritems = $menuitems;  
                     undef($menuitems);  
                 }  
             }              }
             if (ref($bread_crumbs) eq 'ARRAY') {                  if (ref($bread_crumbs) eq 'ARRAY') {
                 &Apache::lonhtmlcommon::clear_breadcrumbs();                      &Apache::lonhtmlcommon::clear_breadcrumbs();
                 foreach my $crumb (@{$bread_crumbs}){                      foreach my $crumb (@{$bread_crumbs}){
                      &Apache::lonhtmlcommon::add_breadcrumb($crumb);                          &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 registered URL  # We are in a course and looking at a registred URL
 # Should probably be in mydesk.tab  # Should probably be in mydesk.tab
 #  #
   
     $menuitems=(<<ENDMENUITEMS);      $menuitems=(<<ENDMENUITEMS);
 c&3&1  c&3&1
 s&2&1&back.png&$swtext{'back'}&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1  s&2&1&back.png&&&gopost('/adm/flip','back:'+currentURL)&Previous content resource&&1
 s&2&3&forw.png&$swtext{'forw'}&&gopost('/adm/flip','forward:'+currentURL)&Next content resource&&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.png&$swtext{'prt'}&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  ENDMENUITEMS
             $got_prt = 1;              if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F' && $env{'request.uri'} =~ /^\/res/) {
             if (($env{'user.adv'}) && ($env{'request.uri'} =~ /^\/res/)  
                 && (!$env{'request.enc'})) {  
                 # wishlist is only available for users with access to resource-pool                  # wishlist is only available for users with access to resource-pool
                 # and links can only be set for resources within the resource-pool                  # and links can only be set for resources within the resource-pool
                 $menuitems .= (<<ENDMENUITEMS);                  $menuitems .= (<<ENDMENUITEMS);
 s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1  s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1
 ENDMENUITEMS  ENDMENUITEMS
                 $got_wishlist = 1;  
             }              }
   
 my $currentURL = &Apache::loncommon::get_symb();  my $currentURL = &Apache::loncommon::get_symb();
Line 764  if(length($annotation) > 0){ Line 724  if(length($annotation) > 0){
 }else{  }else{
  $menuitems.="anot.png";   $menuitems.="anot.png";
 }  }
 $menuitems.="&$swtext{'anot'}&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 ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {
  if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) {   if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/})) {
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info()&Show Metadata  s&6&3&catalog.png&Info&info[_1]&catalog_info()&Show Metadata
 ENDREALRES  
                 }  
                 unless ($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) {  
             $menuitems.=(<<ENDREALRES);  
 s&8&1&eval.png&$swtext{'eval'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource  
 ENDREALRES  ENDREALRES
                 }                  }
                 $menuitems.=(<<ENDREALRES);          $menuitems.=(<<ENDREALRES);
 s&8&2&fdbk.png&$swtext{'fdbk'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource  s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of 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/) {
             unless ($got_prt) {      $menuitems .= (<<ENDMENUITEMS);
         $menuitems .= (<<ENDMENUITEMS);  s&8&3&prt.png&Print&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document
 s&8&3&prt.png&$swtext{'prt'}&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document  
 ENDMENUITEMS  ENDMENUITEMS
                 $got_prt = 1;              if (&Apache::lonnet::allowed('bre', $env{'request.course.id'}) eq 'F') {
             }                  # wishlist is only available for users with access to resource-pool
             unless ($got_wishlist) {                  $menuitems .= (<<ENDMENUITEMS);
                 if (($env{'user.adv'}) && (!$env{'request.enc'})) {  s&9&1&wishlist-link.png&Stored Links&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1
                     # wishlist is only available for users with access to resource-pool  
                     $menuitems .= (<<ENDMENUITEMS);  
 s&9&1&alnk.png&$swtext{'alnk'}&linkstor[_1]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository&&1  
 ENDMENUITEMS  ENDMENUITEMS
                     $got_wishlist = 1;  
                 }  
             }              }
  }   }
         unless ($got_prt) {  
             $menuitems .= (<<ENDMENUITEMS);  
 c&8&3  
 ENDMENUITEMS  
         }  
         unless ($got_wishlist) {  
             $menuitems .= (<<ENDMENUITEMS);  
 c&9&1  
 ENDMENUITEMS  
         }  
         my $buttons='';          my $buttons='';
         foreach (split(/\n/,$menuitems)) {          foreach (split(/\n/,$menuitems)) {
     my ($command,@rest)=split(/\&/,$_);      my ($command,@rest)=split(/\&/,$_);
Line 828  ENDMENUITEMS Line 768  ENDMENUITEMS
                 }                  }
             }              }
         }          }
         if ($noremote) {  
     my $addremote=0;      my $addremote=0;
     foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }      foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
             if ($addremote) {      if ($addremote) {
   
                 &Apache::lonhtmlcommon::clear_breadcrumb_tools();          &Apache::lonhtmlcommon::clear_breadcrumb_tools();
   
                 &Apache::lonhtmlcommon::add_breadcrumb_tool(              &Apache::lonhtmlcommon::add_breadcrumb_tool(
                     'navigation', @inlineremote[21,23]);                  'navigation', @inlineremote[21,23]);
   
                 my $countdown = &countdown_timer();          if(hidden_button_check() ne 'yes') {
                 if (&hidden_button_check() eq 'yes') {              &Apache::lonhtmlcommon::add_breadcrumb_tool(
                     if ($countdown) {                  'tools', @inlineremote[93,91,81,82,83]);
                         &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);  
                     }  
                 } else {  
                     my @tools = @inlineremote[93,91,81,82,83];  
                     if ($countdown) {  
                         unshift(@tools,$countdown);  
                     }  
                     &Apache::lonhtmlcommon::add_breadcrumb_tool(  
                         'tools',@tools);  
   
                     #publish button in construction space              #publish button in construction space
                     if ($env{'request.state'} eq 'construct'){              if ($env{'request.state'} eq 'construct'){
                         &Apache::lonhtmlcommon::add_breadcrumb_tool(                  &Apache::lonhtmlcommon::add_breadcrumb_tool(
                             'advtools', $inlineremote[63]);                       'advtools', $inlineremote[63]);
                     } else {              } else {
                         &Apache::lonhtmlcommon::add_breadcrumb_tool(                  &Apache::lonhtmlcommon::add_breadcrumb_tool(
                             'tools', $inlineremote[63]);                       'tools', $inlineremote[63]);
                     }              }
                     &advtools_crumbs(@inlineremote);              
                 }              unless ($env{'request.noversionuri'}=~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {
                   &Apache::lonhtmlcommon::add_breadcrumb_tool(
                       'advtools', @inlineremote[61,71,72,73,74,92]);
             }              }
             return   &Apache::lonhtmlcommon::scripttag('', 'start')  
                    . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)  
                    . &Apache::lonhtmlcommon::scripttag('', 'end');  
   
         } else {  
             my $cstrcrumbs;  
             if ($const_space) {  
                 foreach (split(/\n/,$cstritems)) {  
                     my ($command,@rest)=split(/\&/,$_);  
                     my $idx=10*$rest[0]+$rest[1];  
                     &switch('','',@rest);  
                 }  
                 &Apache::lonhtmlcommon::add_breadcrumb_tool('advtools',  
                                                             @inlineremote[63,61,71,72]);  
   
                 $cstrcrumbs = &Apache::lonhtmlcommon::scripttag('', 'start')  
                              .&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)  
                              .&Apache::lonhtmlcommon::scripttag('', 'end');  
             }  
             my $requri=&Apache::lonnet::clutter(&Apache::lonnet::fixversion((split(/\?/,$env{'request.noversionuri'}))[0]));  
             $requri=&Apache::lonenc::check_encrypt(&unescape($requri));  
             my $cursymb=&Apache::lonenc::check_encrypt($env{'request.symb'});  
             my $navstatus=&get_nav_status();  
             my $clearcstr;  
   
             if ($env{'user.adv'}) { $clearcstr='clearbut(6,1)'; }  
             return <<ENDREGTHIS;  
   
 <script type="text/javascript">  
 // <![CDATA[  
 // BEGIN LON-CAPA Internal  
 var swmenu=null;  
   
     function LONCAPAreg() {  
           swmenu=$reopen;  
           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  
 // ]]>  
 </script>  
   
 $cstrcrumbs  
 ENDREGTHIS  
         }  
     } else {  
        unless ($noremote) {  
 # Not registered, graphical  
            return (<<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);  
           swmenu.clearbut(9,1);  
           if (swmenu.currentURL) {  
              swmenu.switchbutton  
               (3,1,'reload.gif','return','location','go(currentURL)');  
           } else {  
               swmenu.clearbut(3,1);  
           }  
     }  
   
     function LONCAPAstale() {  
     }  
   
 // END LON-CAPA Internal  
 // ]]>  
 </script>  
 ENDDONOTREGTHIS  
   
         }          }
         return '';  
     }      }
 }  
   
 sub get_inline_text {      return   &Apache::lonhtmlcommon::scripttag('', 'start')
     my %text = (             . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)
                  pgrd     => 'Content Grades',             . &Apache::lonhtmlcommon::scripttag('', 'end');
                  subm     => 'Content Submissions',  
                  pparm    => 'Content Settings',  
                  docs     => 'Folder/Page Content',  
                  pcstr    => 'Edit',  
                  prt      => 'Print',  
                  alnk     => 'Stored Links',  
                  anot     => 'Notes',  
                  catalog  => 'Info',  
                  eval     => 'Evaluate',  
                  fdbk     => 'Feedback',  
     );  
     return %text;  
 }  }
   
 sub get_rc_text {  sub is_course_upload {
     my %text = (      my ($file,$cnum,$cdom) = @_;
                    pgrd    => 'problem[_1]',      my $uploadpath = &LONCAPA::propath($cdom,$cnum);
                    subm    => 'view sub-[_1]',      $uploadpath =~ s{^\/}{};
                    pparm   => 'problem[_2]',      if (($file =~ m{^\Q$uploadpath\E/userfiles/docs/}) ||
                    pcstr   => 'edit[_1]',          ($file =~ m{^userfiles/\Q$cdom\E/\Q$cnum\E/docs/})) {
                    prt     => 'prepare[_1]',  
                    back    => 'backward[_1]',  
                    forw    => 'forward[_1]',  
                    alnk    => 'add to[_1]',  
                    anot    => 'anno-[_1]',  
                    catalog => 'catalog[_2]',  
                    eval    => 'evaluate[_1]',  
                    fdbk    => 'feedback[_1]',  
     );  
     return %text;  
 }  
   
 sub loadevents() {  
     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 {  
     my ($lowerurl)=@_;  
     unless ($env{'environment.remote'} eq 'on') {  
         return ('<meta HTTP-EQUIV="Refresh" CONTENT="0.5; url='.$lowerurl.'" />');  
     }  
 #  
 # The Remote actually gets launched!  
 #  
     my $configmenu=&rawconfig();  
     my $esclowerurl=&escape($lowerurl);  
     my $message=&mt('"Waiting for Remote Control window to load: "+[_1]','waited');  
     return(<<ENDREMOTESTARTUP);  
 <script type="text/javascript">  
 // <![CDATA[  
 var timestart;  
 function wheelswitch() {  
     if (typeof(document.wheel) != 'undefined') {  
         if (typeof(document.wheel.spin) != 'undefined') {  
             var date=new Date();  
             var waited=Math.round(30-((date.getTime()-timestart)/1000));  
             document.wheel.spin.value=$message;  
         }  
     }  
    if (window.status=='|') {  
       window.status='/';  
    } else {  
       if (window.status=='/') {  
          window.status='-';  
       } else {  
          if (window.status=='-') {  
             window.status='\\\\';  
          } else {  
             if (window.status=='\\\\') { window.status='|'; }  
          }  
       }  
    }  
 }  
   
 // ---------------------------------------------------------- The wait function  
 var canceltim;  
 function wait() {  
    if ((menuloaded==1) || (tim==1)) {  
       window.status='Done.';  
       if (tim==0) {  
          clearTimeout(canceltim);  
          $configmenu  
          window.location='$lowerurl';  
       } else {  
           window.location='/adm/remote?action=collapse&url=$esclowerurl';  
       }  
    } else {  
       wheelswitch();  
       setTimeout('wait();',200);  
    }  
 }  
   
 function main() {  
    canceltim=setTimeout('tim=1;',30000);  
    window.status='-';  
    var date=new Date();  
    timestart=date.getTime();  
    wait();  
 }  
   
 // ]]>  
 </script>  
 ENDREMOTESTARTUP  
 }  
   
 sub setflags() {  
     return(<<ENDSETFLAGS);  
 <script type="text/javascript">  
 // <![CDATA[  
     menuloaded=0;  
     tim=0;  
 // ]]>  
 </script>  
 ENDSETFLAGS  
 }  
   
 sub maincall() {  
     unless ($env{'environment.remote'} eq 'on') { return ''; }  
     return(<<ENDMAINCALL);  
 <script type="text/javascript">  
 // <![CDATA[  
     main();  
 // ]]>  
 </script>  
 ENDMAINCALL  
 }  
   
 sub load_remote_msg {  
     my ($lowerurl)=@_;  
   
     unless ($env{'environment.remote'} eq 'on') { return ''; }  
   
     my $esclowerurl=&escape($lowerurl);  
     my $link=&mt('[_1]Continue[_2] on in Inline Menu mode'  
                 ,'<a href="/adm/remote?action=collapse&amp;url='.$esclowerurl.'">'  
                 ,'</a>');  
     return(<<ENDREMOTEFORM);  
 <p>  
 <form name="wheel">  
 <input name="spin" type="text" size="60" />  
 </form>  
 </p>  
 <p>$link</p>  
 ENDREMOTEFORM  
 }  
   
 sub get_menu_name {  
     my $hostid = $Apache::lonnet::perlvar{'lonHostID'};  
     $hostid =~ s/\W//g;  
     return 'LCmenu'.$hostid;  
 }  
   
   
 sub reopenmenu {  
    unless ($env{'environment.remote'} eq 'on') { return ''; }  
    my $menuname = &get_menu_name();  
    my $nothing = &Apache::lonhtmlcommon::javascript_nothing();  
    return('window.open('.$nothing.',"'.$menuname.'","",false);');  
 }  
   
   
 sub open {  
     my $returnval='';  
     unless ($env{'environment.remote'} eq 'on') {  
         return  
         '<script type="text/javascript">'."\n"  
        .'// <![CDATA['."\n"  
        .'self.name="loncapaclient";'."\n"  
        .'// ]]>'."\n"  
        .'</script>';  
     }  
     my $menuname = &get_menu_name();  
   
 #    unless (shift eq 'unix') {  
 # resizing does not work on linux because of virtual desktop sizes  
 #       $returnval.=(<<ENDRESIZE);  
 #if (window.screen) {  
 #    self.resizeTo(screen.availWidth-215,screen.availHeight-55);  
 #    self.moveTo(190,15);  
 #}  
 #ENDRESIZE  
 #    }  
     $returnval=(<<ENDOPEN);  
 // <![CDATA[  
 window.status='Opening LON-CAPA Remote Control';  
 var menu=window.open("/res/adm/pages/menu.html?inhibitmenu=yes","$menuname",  
 "height=375,width=150,scrollbars=no,menubar=no,top=5,left=5,screenX=5,screenY=5");  
 self.name='loncapaclient';  
 // ]]>  
 ENDOPEN  
     return '<script type="text/javascript">'.$returnval.'</script>';  
 }  
   
 sub get_editbutton {  
     my ($cfile,$home,$switchserver,$forceedit,$forceview,$forcereg) = @_;  
     my $jscall;  
     if (($forceview) && ($env{'form.todocs'})) {  
         my ($folderpath,$command);  
         if ($env{'request.symb'}) {  
             $folderpath = &Apache::loncommon::symb_to_docspath($env{'request.symb'});  
         } elsif ($env{'form.folderpath'} =~ /^supplemental/) {  
             $folderpath = $env{'form.folderpath'};  
             $command = '&forcesupplement=1';  
         }  
         $folderpath = &escape(&HTML::Entities::encode(&escape($folderpath),'<>&"'));  
         $jscall = "go('/adm/coursedocs?folderpath=$folderpath$command')";  
     } else {  
         $jscall = &Apache::lonhtmlcommon::jump_to_editres($cfile,$home,$switchserver,  
                                                 $forceedit,$forcereg,$env{'request.symb'},  
                                                 &escape($env{'form.folderpath'}),  
                                                 &escape($env{'form.title'}),$env{'form.idx'},  
                                                 &escape($env{'form.suppurl'},$env{'form.todocs'}));  
     }  
     if ($jscall) {  
         my $icon = 'pcstr.png';  
         my $label = 'Edit';  
         if ($forceview) {  
             $icon = 'tolastloc.png';  
             $label = 'Exit Editing';  
         }  
         &switch('','',6,1,$icon,$label,'resource[_2]',  
                 $jscall,"Edit this resource");  
         return 1;          return 1;
     }      }
     return;      return;
 }  }
   
 sub prepare_functions {  sub edit_course_upload {
     my ($resurl,$forcereg,$group,$bread_crumbs,$advtools,$docscrumbs) = @_;      my ($file,$cnum,$cdom) = @_;
     unless ($env{'request.registered'}) {      my $cfile;
         undef(@inlineremote);      if ($file =~/\.(htm|html|css|js|txt)$/) {
     }          my $ext = $1;
     my ($cdom,$cnum,%perms,$cfile,$switchserver,$home,$forceedit,          my $url = &Apache::lonnet::hreflocation('',$file);
         $forceview);          my $home = &Apache::lonnet::homeserver($cnum,$cdom);
           my @ids=&Apache::lonnet::current_machine_ids();
     if ($env{'request.course.id'}) {          my $dest;
         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};          if ($home && grep(/^\Q$home\E$/,@ids)) {
         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};              $dest = $url.'?forceedit=1';
         $perms{'mdc'} = &Apache::lonnet::allowed('mdc',$env{'request.course.id'});          } else {
     }              unless (&Apache::lonnet::get_locks()) {
                   $dest = '/adm/switchserver?otherserver='.
     my $editbutton = '';                          $home.'&role='.$env{'request.role'}.
 #                          '&url='.$url.'&forceedit=1';
 # Determine whether or not to display 'Edit' icon/button  
 #  
     if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {  
         my $file=&Apache::lonnet::declutter($env{'request.filename'});  
         ($cfile,$home,$switchserver,$forceedit,$forceview) =  
             &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,  
                 &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);  
         if (($cfile) && ($home ne '') && ($home ne 'no_host')) {  
             $editbutton = &get_editbutton($cfile,$home,$switchserver,  
                                           $forceedit,$forceview,$forcereg);  
         }  
     } elsif ((!$env{'request.course.id'}) &&  
              ($env{'user.author'}) && ($env{'request.filename'}) &&  
              ($env{'request.role'} !~/^(aa|ca|au)/)) {  
 #  
 # Currently do not have the role of author or co-author.  
 # Do we have authoring privileges for the resource?  
 #  
         my $file=&Apache::lonnet::declutter($env{'request.filename'});  
         ($cfile,$home,$switchserver,$forceedit,$forceview) =  
             &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,  
                 &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);  
         if (($cfile) && ($home ne '') && ($home ne 'no_host')) {  
             $editbutton = &get_editbutton($cfile,$home,$switchserver,  
                                           $forceedit,$forceview,$forcereg);  
         }  
     } elsif ($env{'request.course.id'}) {  
 #  
 # This applies in course context  
 #  
         if (($resurl eq "/public/$cdom/$cnum/syllabus") && ($perms{'mdc'})) {  
             if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {  
                 &switch('','',6,1,'pcstr.png','Edit',  
                         'resource[_2]',  
                         "go('/adm/courseprefs?phase=display&actions=courseinfo')",  
                         'Edit this resource');  
                 $editbutton = 1;  
             } else {  
                 $cfile = $resurl;  
                 $home = &Apache::lonnet::homeserver($cnum,$cdom);  
                 if ($env{'form.forceedit'}) {  
                     $forceview = 1;  
                 } else {  
                     $forceedit = 1;  
                 }  
                 $editbutton = &get_editbutton($cfile,$home,$switchserver,  
                                               $forceedit,$forceview,$forcereg);  
             }  
         } elsif (($resurl eq '/adm/extresedit') &&  
                  (($env{'form.symb'}) || ($env{'form.folderpath'}))) {  
             ($cfile,$home,$switchserver,$forceedit,$forceview) =  
             &Apache::lonnet::can_edit_resource($resurl,$cnum,$cdom,$resurl,  
                                                $env{'form.symb'});  
             if ($cfile ne '') {  
                 $editbutton = &get_editbutton($cfile,$home,$switchserver,  
                                               $forceedit,$forceview,$forcereg,  
                                               $env{'form.title'},$env{'form.suppurl'});  
             }  
         } elsif ($resurl !~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {  
             if ($env{'request.filename'}) {  
                 my $file=&Apache::lonnet::declutter($env{'request.filename'});  
                 ($cfile,$home,$switchserver,$forceedit,$forceview) =  
                     &Apache::lonnet::can_edit_resource($file,$cnum,$cdom,  
                         &Apache::lonnet::clutter($resurl),$env{'request.symb'},$group);  
                 if ($cfile ne '') {  
                     $editbutton = &get_editbutton($cfile,$home,$switchserver,  
                                                   $forceedit,$forceview,$forcereg);  
                 }  
             }  
         }  
     }  
 # End determination of 'Edit' icon/button display  
   
     if ($env{'request.course.id'}) {  
 # This applies to about me page for users in a course  
         if ($resurl =~ m{^/?adm/($match_domain)/($match_username)/aboutme$}) {  
             my ($sdom,$sname) = ($1,$2);  
             unless (&Apache::lonnet::is_course($sdom,$sname)) {  
                 &switch('','',6,4,'mail-message-new-22x22.png','Message to user',  
                         '',  
                         "go('/adm/email?compose=individual&recname=$sname&recdom=$sdom')",  
                             'Send message to specific user');  
             }  
             my $hideprivileged = 1;  
             if (&Apache::lonnet::in_course($sdom,$sname,$cdom,$cnum,undef,  
                                            $hideprivileged)) {  
                 foreach my $priv ('vsa','vgr','srm') {  
                     $perms{$priv} = &Apache::lonnet::allowed($priv,$env{'request.course.id'});  
                     if (!$perms{$priv} && $env{'request.course.sec'} ne '') {  
                         $perms{$priv} =  
                             &Apache::lonnet::allowed($priv,"$env{'request.course.id'}/$env{'request.course.sec'}");  
                     }  
                 }  
                 if ($perms{'vsa'}) {  
                     &switch('','',6,5,'trck-22x22.png','Activity',  
                             '',  
                             "go('/adm/trackstudent?selected_student=$sname:$sdom')",  
                             'View recent activity by this person');  
                 }  
                 if ($perms{'vgr'}) {  
                     &switch('','',6,6,'rsrv-22x22.png','Reservations',  
                             '',  
                             "go('/adm/slotrequest?command=showresv&origin=aboutme&uname=$sname&udom=$sdom')",  
                             'Slot reservation history');  
                 }  
                 if ($perms{'srm'}) {  
                     &switch('','',6,7,'contact-new-22x22.png','Records',  
                             '',  
                             "go('/adm/email?recordftf=retrieve&recname=$sname&recdom=$sdom')",  
                             'Add records');  
                 }  
             }  
         } elsif ($resurl =~ m{^/?adm/viewclasslist}) {  
 # This applies to viewclasslist page for users in a course  
             if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {  
                 &switch('','',6,4,'pparm.png','Settings',  
                         '',  
                         "go('/adm/courseprefs?actions=classlists&phase=display')",  
                         'Student-viewable classlist options');  
             }  
         }  
         if (($env{'form.folderpath'} =~ /^supplemental/) &&  
             (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&  
             (($resurl =~ m{^/adm/wrapper/ext/}) ||  
              ($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) ||  
              ($resurl eq '/adm/supplemental') ||  
              ($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) ||  
              ($resurl =~ m{^/adm/$match_domain/$match_username/aboutme$}))) {  
             my @folders=split('&',$env{'form.folderpath'});  
             if ((@folders > 2) || ($resurl ne '/adm/supplemental')) {  
                 my $esc_path=&escape(&HTML::Entities::encode(&escape($env{'form.folderpath'}),'<>&"'));  
                 &switch('','',7,4,'docs-22x22.png','Edit Folder','parms[_2]',  
                         "location.href='/adm/coursedocs?command=direct&forcesupplement=1&supppath=$esc_path'",  
                         'Folder/Page Content');  
             }              }
         }          }
     }          if ($dest) {
               $cfile = &HTML::Entities::encode($dest,'"<>&');
 # End checking for items for about me page for users in a course  
     if ($docscrumbs) {  
         &Apache::lonhtmlcommon::clear_breadcrumb_tools();  
         &advtools_crumbs(@inlineremote);  
         return $editbutton;  
     } elsif ($env{'request.registered'}) {  
         return $editbutton;  
     } else {  
         if (ref($bread_crumbs) eq 'ARRAY') {  
             if (@inlineremote > 0) {  
                 if (ref($advtools) eq 'ARRAY') {  
                     @{$advtools} = @inlineremote;  
                 }  
             }  
             return;  
         } elsif (@inlineremote > 0) {  
             &Apache::lonhtmlcommon::clear_breadcrumb_tools();  
             &advtools_crumbs(@inlineremote);  
             return   &Apache::lonhtmlcommon::scripttag('', 'start')  
                    . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)  
                    . &Apache::lonhtmlcommon::scripttag('', 'end');  
         }          }
     }      }
 }      return $cfile;
   
 sub advtools_crumbs {  
     my @funcs = @_;  
     if ($env{'request.noversionuri'} =~ m{^/adm/$match_domain/$match_username/aboutme$}) {  
         &Apache::lonhtmlcommon::add_breadcrumb_tool(  
             'advtools', @funcs[61,64,65,66,67,74]);  
     } elsif ($env{'request.noversionuri'} !~ m{^/adm/(navmaps|viewclasslist)(\?|$)}) {  
         &Apache::lonhtmlcommon::add_breadcrumb_tool(  
             'advtools', @funcs[61,71,72,73,74,92]);  
     } elsif ($env{'request.noversionuri'} eq '/adm/viewclasslist') {  
         &Apache::lonhtmlcommon::add_breadcrumb_tool(  
             'advtools', @funcs[64]);  
     }  
 }  }
   
 # ================================================================== Raw Config  # ================================================================== Raw Config
   
 sub clear {  sub clear {
     my ($row,$col)=@_;      my ($row,$col)=@_;
     if ($env{'environment.remote'} eq 'on') {      $inlineremote[10*$row+$col]='';
        if (($row<1) || ($row>13)) { return ''; }      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 1432  sub switch { Line 861  sub switch {
     my $idx=10*$row+$col;      my $idx=10*$row+$col;
     $category_members{$cat}.=':'.$idx;      $category_members{$cat}.=':'.$idx;
   
     if ($env{'environment.remote'} eq 'on') {  
         if (($row<1) || ($row>13)) { return ''; }  
         if ($env{'request.state'} eq 'construct') {  
             my $text = $top.' '.$bot;  
             $text=~s/\s*\-\s*//gs;  
             my $pic = '<img alt="'.$text.'" src="'.  
                       &Apache::loncommon::lonhttpdurl('/res/adm/pages/'.$img).  
                       '" align="'.($nobreak==3?'right':'left').'" class="LC_icon" />';  
            $inlineremote[$idx] =  
                '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.  
                $pic.'<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';  
         }  
 # Remote  
         $img=~s/\.png$/\.gif/;  
         return "\n".  
  qq(window.status+='.';swmenu.switchbutton($row,$col,"$img","$top","$bot","$act","$desc"););  
     }  
   
 # Inline Menu  # Inline Menu
     if ($nobreak==2) { return ''; }      if ($nobreak==2) { return ''; }
     my $text=$top.' '.$bot;      my $text=$top.' '.$bot;
Line 1480  sub switch { Line 891  sub switch {
    }     }
     } else {      } else {
 # Inline Menu  # Inline Menu
         my @tools = (93,91,81,82,83);        $inlineremote[$idx]=
         unless ($env{'request.state'} eq 'construct') {  
             push(@tools,63);  
         }  
         if (($env{'environment.icons'} eq 'iconsonly') &&  
             (grep(/^$idx$/,@tools))) {  
             $inlineremote[$idx] =  
         '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>';  
         } else {  
             $inlineremote[$idx] =  
        '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.         '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.
        '<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';         '<span class="LC_menubuttons_inline_text">'.$top.'&nbsp;</span></a>';
         }  
     }      }
     return '';      return '';
 }  }
Line 1511  sub secondlevel { Line 912  sub secondlevel {
     return $output;      return $output;
 }  }
   
 sub openmenu {  
     my $menuname = &get_menu_name();  
     unless ($env{'environment.remote'} eq 'on') { 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);
Line 1560  sub rawconfig { Line 954  sub rawconfig {
 #  #
     my $textualoverride=shift;      my $textualoverride=shift;
     my $output='';      my $output='';
     if ($env{'environment.remote'} eq 'on') {      return '' unless $textualoverride;
        $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 1741  sub rawconfig { Line 1129  sub rawconfig {
           $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);
         }          }
     }      }
     if ($env{'environment.remote'} eq 'on') {  
         $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 1772  sub check_for_rcrs { Line 1154  sub check_for_rcrs {
     return $showreqcrs;      return $showreqcrs;
 }  }
   
 # ======================================================================= Close  
   
 sub close {  
     unless ($env{'environment.remote'} eq 'on') { return ''; }  
     my $menuname = &get_menu_name();  
     return(<<ENDCLOSE);  
 <script type="text/javascript">  
 // <![CDATA[  
 window.status='Accessing Remote Control';  
 menu=window.open("/adm/rat/empty.html","$menuname",  
                  "height=350,width=150,scrollbars=no,menubar=no");  
 window.status='Disabling Remote Control';  
 menu.active=0;  
 menu.autologout=0;  
 window.status='Closing Remote Control';  
 menu.close();  
 window.status='Done.';  
 // ]]>  
 </script>  
 ENDCLOSE  
 }  
   
 sub dc_popup_js {  sub dc_popup_js {
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                                           more => '(More ...)',                                            more => '(More ...)',
Line 1819  END Line 1179  END
   
 }  }
   
 sub countdown_toggle_js {  
     return <<"END";  
   
 function toggleCountdown() {  
     var countdownid = document.getElementById('duedatecountdown');  
     var currstyle = countdownid.style.display;  
     if (currstyle == 'inline') {  
         countdownid.style.display = 'none';  
         document.getElementById('ddcountcollapse').innerHTML='';  
         document.getElementById('ddcountexpand').innerHTML='&#9668;&nbsp;';  
     } else {  
         countdownid.style.display = 'inline';  
         document.getElementById('ddcountcollapse').innerHTML='&#9658;&nbsp;';  
         document.getElementById('ddcountexpand').innerHTML='';  
     }  
     return;  
 }  
   
 END  
 }  
   
 sub utilityfunctions {  sub utilityfunctions {
     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/}
Line 1868  sub utilityfunctions { Line 1207  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 $jumptores = &Apache::lonhtmlcommon::javascript_jumpto_resource();      my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.
                            &mt('Switch server?');
   
     my $esc_url=&escape($currenturl);      my $esc_url=&escape($currenturl);
     my $esc_symb=&escape($currentsymb);      my $esc_symb=&escape($currentsymb);
   
     my $countdown = &countdown_toggle_js();  
   
 return (<<ENDUTILITY)  return (<<ENDUTILITY)
   
     var currentURL=unescape("$esc_url");      var currentURL=unescape("$esc_url");
Line 1891  function go(url) { Line 1229  function go(url) {
    }     }
 }  }
   
 $jumptores  function need_switchserver(url) {
       if (url!='' && url!= null) {
           if (confirm("$confirm_switch")) {
               go(url); 
           }
       }
       return;
   }
   
 function gopost(url,postdata) {  function gopost(url,postdata) {
    if (url!='') {     if (url!='') {
Line 2018  function open_StoredLinks_Import(rat) { Line 1363  function open_StoredLinks_Import(rat) {
   });    });
 }(jQuery));  }(jQuery));
   
 $countdown  
   
 ENDUTILITY  ENDUTILITY
 }  }
   
Line 2052  sub constspaceform { Line 1395  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 {
     if ( $env{'request.course.id'} eq ''      if ( $env{'request.course.id'} eq ''
          || $env{'request.role.adv'} ) {           || $env{'request.role.adv'} ) {
Line 2085  sub roles_selector { Line 1418  sub roles_selector {
     } else {      } else {
         $ccrole = 'cc';          $ccrole = 'cc';
     }      }
     my ($priv,$gotsymb,$destsymb);      my $priv;
     my $destinationurl = $ENV{'REQUEST_URI'};      my $destinationurl = $ENV{'REQUEST_URI'};
     if ($destinationurl =~ /\?symb=/) {  
         $gotsymb = 1;  
     } elsif ($destinationurl =~ m{^/enc/}) {  
         my $plainurl = &Apache::lonenc::unencrypted($destinationurl);  
         if ($plainurl =~ /\?symb=/) {  
             $gotsymb = 1;  
         }  
     }  
     unless ($gotsymb) {  
         $destsymb = &Apache::lonnet::symbread();  
         if ($destsymb ne '') {  
             $destsymb = &Apache::lonenc::check_encrypt($destsymb);  
         }  
     }  
     my $reqprivs = &required_privs();      my $reqprivs = &required_privs();
     if (ref($reqprivs) eq 'HASH') {      if (ref($reqprivs) eq 'HASH') {
         my $destination = $destinationurl;          my $destination = $destinationurl;
Line 2188  sub roles_selector { Line 1507  sub roles_selector {
                 $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>';                   $role_selector .= "\n".'<option value="'.$role.'">'.&Apache::lonnet::plaintext($role).'</option>'; 
             }              }
         }          }
         $role_selector .= '</select>'."\n";          $role_selector .= '</select>'."\n".
         if ($destsymb ne '') {  
             $role_selector .= '<input type="hidden" name="destsymb" value="'.  
                               &HTML::Entities::encode($destsymb).'" />'."\n";  
         }  
         $role_selector .=  
                '<input type="hidden" name="destinationurl" value="'.                 '<input type="hidden" name="destinationurl" value="'.
                &HTML::Entities::encode($destinationurl).'" />'."\n".                 &HTML::Entities::encode($destinationurl).'" />'."\n".
                '<input type="hidden" name="gotorole" value="1" />'."\n".                 '<input type="hidden" name="gotorole" value="1" />'."\n".
Line 2447  sub required_privs { Line 1761  sub required_privs {
     return $privs;      return $privs;
 }  }
   
 sub countdown_timer {  
     if (($env{'request.course.id'}) && ($env{'request.symb'} ne '') &&  
         ($env{'request.filename'}=~/$LONCAPA::assess_re/)) {  
         my ($type,$hastimeleft,$slothastime);  
         my $now = time;  
         if ($env{'request.filename'} =~ /\.task$/) {  
             $type = 'Task';  
         } else {  
             $type = 'problem';  
         }  
         my ($status,$accessmsg,$slot_name,$slot) =  
             &Apache::lonhomework::check_slot_access('0',$type);  
         if ($slot_name ne '') {  
             if (ref($slot) eq 'HASH') {  
                 if (($slot->{'starttime'} < $now) &&  
                     ($slot->{'endtime'} > $now)) {  
                     $slothastime = 1;  
                 }  
             }  
         }  
         if ($status ne 'CAN_ANSWER') {  
             return;  
         }  
         my $duedate = &Apache::lonnet::EXT("resource.0.duedate");  
         my @interval=&Apache::lonnet::EXT("resource.0.interval");  
         my $hastimeleft;  
         if (@interval > 1) {  
             my $first_access=&Apache::lonnet::get_first_access($interval[1]);  
             if ($first_access > 0) {  
                 if ($first_access+$interval[0] > time) {  
                     $hastimeleft = 1;  
                 }  
             }  
         }  
         if (($duedate && $duedate > time) ||  
             (!$duedate && $hastimeleft) ||  
             ($slot_name ne '' && $slothastime)) {  
             my ($collapse,$expand,$alttxt,$title,$currdisp);  
             if ((@interval > 1 && $hastimeleft) ||  
                 ($type eq 'Task' && $slothastime)) {  
                 $currdisp = 'inline';  
                 $collapse = '&#9658;&nbsp;';  
             } else {  
                 $currdisp = 'none';  
                 $expand = '&#9668;&nbsp;';  
             }  
             unless ($env{'environment.icons'} eq 'iconsonly') {  
                 $alttxt = &mt('Timer');  
                 $title = $alttxt.'&nbsp;';  
             }  
             my $desc = &mt('Countdown to due date/time');  
             return <<END;  
   
 <a href="javascript:toggleCountdown();" class="LC_menubuttons_link">  
 <span id="ddcountcollapse" class="LC_menubuttons_inline_text">  
 $collapse  
 </span></a>  
 <span id="duedatecountdown" class="LC_menubuttons_inline_text" style="display: $currdisp;"></span>  
 <a href="javascript:toggleCountdown();" class="LC_menubuttons_link">  
 <span id="ddcountexpand" class="LC_menubuttons_inline_text" >$expand</span>  
 <img src="/res/adm/pages/timer.png" title="$desc" class="LC_icon" alt="$alttxt" /><span class="LC_menubuttons_inline_text">$title</span></a>  
 END  
         }  
     }  
     return;  
 }  
   
 # ================================================================ Main Program  # ================================================================ Main Program
   
 BEGIN {  BEGIN {
Line 2538  BEGIN { Line 1785  BEGIN {
                     } elsif ($configline=~/^scnd\:/) {                      } elsif ($configline=~/^scnd\:/) {
                         my @entries = (split(/\:/, $configline))[1..5];                          my @entries = (split(/\:/, $configline))[1..5];
                         push @secondary_menu, \@entries;                           push @secondary_menu, \@entries; 
                     } elsif ($configline=~/^scndsub\:/) {  
                         my ($parent,@entries) = (split(/\:/, $configline))[1..4];  
                         push (@{$secondary_submenu{$parent}},\@entries);  
                     } elsif ($configline) {                      } elsif ($configline) {
                         push(@desklines,$configline);                          push(@desklines,$configline);
                     }                      }
Removed from v.1.369.2.29  
changed lines
  Added in v.1.376

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