[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.23 and 1.379

version 1.369.2.23, 2012/09/25 23:01:00 version 1.379, 2012/05/28 19:00:58
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 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 {
Line 457  sub create_submenu { Line 407  sub create_submenu {
         $disptarget = ' target="'.$target.'"';          $disptarget = ' target="'.$target.'"';
     }      }
     my $menu = '<li class="LC_hoverable">'.      my $menu = '<li class="LC_hoverable">'.
                '<a href="'.$link.'"'.$disptarget.'>'.                  '<a href="'.$link.'"'.$disptarget.'>'.
                '<span class="LC_nobreak">'.&mt($title).                 '<span class="LC_nobreak">'.&mt($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>'.
Line 480  sub create_submenu { Line 430  sub create_submenu {
     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'} eq 'off') ||  
         ((($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) = @_;      my ($forcereg,$bread_crumbs) = @_;
     my $const_space = ($env{'request.state'} eq 'construct');      my $const_space = ($env{'request.state'} eq 'construct');
Line 517  sub innerregister { Line 439  sub innerregister {
   
     $env{'request.registered'} = 1;      $env{'request.registered'} = 1;
   
     my $noremote = ($env{'environment.remote'} eq 'off');  
   
     undef(@inlineremote);      undef(@inlineremote);
   
     my $reopen=&Apache::lonmenu::reopenmenu();  
   
     my $newmail='';  
   
     if (&Apache::lonmsg::newmail() && !$noremote) {  
         # We have new mail and remote is up  
         $newmail= 'swmenu.setstatus("you have","messages");';  
     }  
   
     my $resurl;       my $resurl; 
     if ( $env{'request.symb'} && $env{'request.course.id'} ) {      if ( $env{'request.symb'} && $env{'request.course.id'} ) {
   
Line 568  sub innerregister { Line 479  sub innerregister {
         &Apache::lonhtmlcommon::clear_breadcrumbs();          &Apache::lonhtmlcommon::clear_breadcrumbs();
         &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 );
   
 # -- 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 580  sub innerregister { Line 491  sub innerregister {
  }   }
  $crs=~s/\_/\//g;   $crs=~s/\_/\//g;
   
         my %swtext;  
         if ($noremote) {  
             %swtext = &get_inline_text();  
         } else {  
             %swtext = &get_rc_text();  
         }   
         my $hwkadd='';          my $hwkadd='';
         if ($env{'request.symb'} ne '' &&          if ($env{'request.symb'} ne '' &&
     $env{'request.filename'}=~/$LONCAPA::assess_re/) {      $env{'request.filename'}=~/$LONCAPA::assess_re/) {
     if (&Apache::lonnet::allowed('mgr',$crs)) {      if (&Apache::lonnet::allowed('mgr',$crs)) {
  $hwkadd.=&switch('','',7,2,'pgrd.png',$swtext{'pgrd'},'grades[_4]',   $hwkadd.=&switch('','',7,2,'pgrd.png','Content Grades','grades[_4]',
                        "gocmd('/adm/grades','gradingmenu')",                         "gocmd('/adm/grades','gradingmenu')",
                        'Content Grades');                         'Content Grades');
             } elsif (&Apache::lonnet::allowed('vgr',$crs)) {              } elsif (&Apache::lonnet::allowed('vgr',$crs)) {
  $hwkadd.=&switch('','',7,2,'subm.png',$swtext{'subm'},'missions[_1]',   $hwkadd.=&switch('','',7,2,'subm.png','Content Submissions','missions[_1]',
                        "gocmd('/adm/grades','submission')",                         "gocmd('/adm/grades','submission')",
        'Content Submissions');         '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.png',$swtext{'pparm'},'parms[_2]',      $hwkadd.=&switch('','',7,3,'pparm.png','Content Settings','parms[_2]',
      "gocmd('/adm/parmset','set')",       "gocmd('/adm/parmset','set')",
      'Content Settings');       'Content Settings');
  }   }
         if ($noremote) {            if ($env{'request.symb'}=~/^uploaded/ &&
             if ($env{'request.symb'}=~/^uploaded/ &&              &Apache::lonnet::allowed('mdc',$crs)) {
                 &Apache::lonnet::allowed('mdc',$crs)) {              $hwkadd.=&switch('','',7,4,'docs.png','Folder/Page Content','parms[_2]',
                 $hwkadd.=&switch('','',7,4,'docs.png',$swtext{'docs'},'parms[_2]',                               "gocmd('/adm/coursedocs','direct')",
                                  "gocmd('/adm/coursedocs','direct')",                               'Folder/Page Content');
                                  'Folder/Page Content');  
             }  
         }          }
 # -- End Homework  # -- End Homework
         ###          ###
Line 654  sub innerregister { Line 557  sub innerregister {
  my @ids=&Apache::lonnet::current_machine_ids();   my @ids=&Apache::lonnet::current_machine_ids();
  foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }   foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
  if (!$allowed) {   if (!$allowed) {
     $editbutton=&switch('','',6,1,,$top,$bottom,$action,$desc);      $editbutton=&switch('','',6,1,$top,,$bottom,$action,$desc);
                     $noeditbutton = 0;                      $noeditbutton = 0;
                 }                  }
             }              }
Line 721  sub innerregister { Line 624  sub innerregister {
                         }                          }
                     }                      }
                     $editbutton=&switch                      $editbutton=&switch
                        ('','',6,1,'pcstr.png',$swtext{'pcstr'},'resource[_2]',                         ('','',6,1,'pcstr.png','Edit','resource[_2]',
                         $bot,"Edit this resource");                          $bot,"Edit this resource");
                     $noeditbutton = 0;                      $noeditbutton = 0;
                 }                  }
Line 737  sub innerregister { Line 640  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.png',$swtext{'pcstr'},                                          ('','',6,1,'pcstr.png','Edit',
                                          'resource[_2]',"go('".$cfile."');",                                           'resource[_2]',"go('".$cfile."');",
                                          'Edit this resource');                                           'Edit this resource');
                         }                          }
Line 749  sub innerregister { Line 652  sub innerregister {
             if ($resurl eq "public/$cdom/$cnum/syllabus") {              if ($resurl eq "public/$cdom/$cnum/syllabus") {
                 if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {                  if ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ /\w/) {
                     if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {                      if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
                         $editbutton=&switch('','',6,1,'pcstr.png',$swtext{'pcstr'},                          $editbutton=&switch('','',6,1,'pcstr.png','Edit',
                                             'resource[_2]',                                              'resource[_2]',
                                             "go('/adm/courseprefs?phase=display&actions=courseinfo')",                                              "go('/adm/courseprefs?phase=display&actions=courseinfo')",
                                             'Edit this resource');                                              'Edit this resource');
Line 760  sub innerregister { Line 663  sub innerregister {
         ###          ###
         ###          ###
 # 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 786  s&6&3&pub.png&Publish&resource[_3]&gocst Line 689  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();
Line 800  ENDMENUITEMS Line 699  ENDMENUITEMS
         } elsif ( defined($env{'request.course.id'}) &&           } elsif ( defined($env{'request.course.id'}) && 
  $env{'request.symb'} ne '' ) {   $env{'request.symb'} ne '' ) {
 #  #
 # We are in a course and looking at a 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 833  if(length($annotation) > 0){ Line 728  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  ENDREALRES
                 }                  }
                 unless ($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/docs/}) {          $menuitems.=(<<ENDREALRES);
             $menuitems.=(<<ENDREALRES);  s&8&1&eval.png&Evaluate&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource
 s&8&1&eval.png&$swtext{'eval'}&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  
                 }  
                 $menuitems.=(<<ENDREALRES);  
 s&8&2&fdbk.png&$swtext{'fdbk'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource  
 ENDREALRES  ENDREALRES
     }      }
         }          }
  if ($env{'request.uri'} =~ /^\/res/) {   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 897  ENDMENUITEMS Line 772  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() eq 'yes') {  
                     if ($countdown) {  
                         &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          my $countdown = &countdown_timer();
                     if ($env{'request.state'} eq 'construct'){          if (&hidden_button_check() eq 'yes') {
                         &Apache::lonhtmlcommon::add_breadcrumb_tool(              if ($countdown) {
                             'advtools', $inlineremote[63]);                  &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
                     } 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]);  
                     }  
                 }  
             }              }
             return   &Apache::lonhtmlcommon::scripttag('', 'start')  
                    . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)  
                    . &Apache::lonhtmlcommon::scripttag('', 'end');  
   
         } else {          } else {
             my $cstrcrumbs;              my @tools = @inlineremote[93,91,81,82,83];
             if ($const_space) {              if ($countdown) {
                 foreach (split(/\n/,$cstritems)) {                  unshift(@tools,$countdown);
                     my ($command,@rest)=split(/\&/,$_);              }
                     my $idx=10*$rest[0]+$rest[1];              &Apache::lonhtmlcommon::add_breadcrumb_tool(
                     &switch('','',@rest);                  'tools',@tools);
                 }  
                 &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  
   
               #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]);
               }
         }          }
         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 {  
     my %text = (  
                    pgrd    => 'problem[_1]',  
                    subm    => 'view sub-[_1]',  
                    pparm   => 'problem[_2]',  
                    pcstr   => 'edit[_1]',  
                    prt     => 'prepare[_1]',  
                    back    => 'backward[_1]',  
                    forw    => 'forward[_1]',  
                    alnk    => 'add to[_1]',  
                    anot    => 'anno-[_1]',  
                    catalog => 'catalog[_2]',  
                    eval    => 'evaluate[_1]',  
                    fdbk    => 'feedback[_1]',  
     );  
     return %text;  
 }  }
   
 sub is_course_upload {  sub is_course_upload {
Line 1117  sub edit_course_upload { Line 852  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 {  
     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>';  
 }  
   
   
 # ================================================================== 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 1314  sub switch { Line 874  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 1366  sub switch { Line 908  sub switch {
         unless ($env{'request.state'} eq 'construct') {          unless ($env{'request.state'} eq 'construct') {
             push(@tools,63);              push(@tools,63);
         }          }
         if (($env{'environment.icons'} eq 'iconsonly') &&          if (($env{'environment.icons'} eq 'iconsonly') && 
             (grep(/^$idx$/,@tools))) {              (grep(/^$idx$/,@tools))) {
             $inlineremote[$idx] =              $inlineremote[$idx] =
         '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>';          '<a title="'.$desc.'" class="LC_menubuttons_link" href="javascript:'.$act.';">'.$pic.'</a>';
Line 1393  sub secondlevel { Line 935  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 1442  sub rawconfig { Line 977  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 1623  sub rawconfig { Line 1152  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 1654  sub check_for_rcrs { Line 1177  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 1942  sub constspaceform { Line 1443  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 1975  sub roles_selector { Line 1466  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 2078  sub roles_selector { Line 1555  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 2342  sub countdown_timer { Line 1814  sub countdown_timer {
         ($env{'request.filename'}=~/$LONCAPA::assess_re/) &&          ($env{'request.filename'}=~/$LONCAPA::assess_re/) &&
         ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {          ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {
         my $duedate = &Apache::lonnet::EXT("resource.0.duedate");          my $duedate = &Apache::lonnet::EXT("resource.0.duedate");
         my @interval=&Apache::lonnet::EXT("resource.0.interval");          if ($duedate && $duedate > time) {
         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)) {  
             my ($collapse,$expand,$alttxt,$title,$currdisp);              my ($collapse,$expand,$alttxt,$title,$currdisp);
             if (@interval > 1 && $hastimeleft) {              my @interval=&Apache::lonnet::EXT("resource.0.interval");
               if (@interval > 1) {
                 $currdisp = 'inline';                  $currdisp = 'inline';
                 $collapse = '&#9658;&nbsp;';                  $collapse = '&#9658;&nbsp;';
             } else {              } else {
Line 2407  BEGIN { Line 1869  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.23  
changed lines
  Added in v.1.379

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