[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.83 and 1.369.2.83.2.1

version 1.369.2.83, 2021/12/13 23:26:32 version 1.369.2.83.2.1, 2022/01/03 16:37:24
Line 263  sub prep_menuitem { Line 263  sub prep_menuitem {
 # @primary_menu is filled within the BEGIN block of this module with   # @primary_menu is filled within the BEGIN block of this module with 
 # entries from mydesk.tab  # entries from mydesk.tab
 sub primary_menu {  sub primary_menu {
     my ($links_disabled) = @_;      my ($crstype,$ltimenu,$menucoll,$menuref,$links_disabled) = @_;
     my %menu;      my (%menu,%menuopts);
     # each element of @primary contains following array:      # each element of @primary contains following array:
     # (link url, icon path, alt text, link text, condition, position)      # (link url, icon path, alt text, link text, condition, position)
     my $public;      my $public;
Line 272  sub primary_menu { Line 272  sub primary_menu {
         || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {          || (($env{'user.name'} eq '') && ($env{'user.domain'} eq ''))) {
         $public = 1;          $public = 1;
     }      }
       if (($menucoll) && (ref($menuref) eq 'HASH')) {
           %menuopts = %{$menuref};
       }
     foreach my $menuitem (@primary_menu) {      foreach my $menuitem (@primary_menu) {
         # evaluate conditions           # evaluate conditions 
         next if    ref($menuitem)       ne 'ARRAY';    #          next if    ref($menuitem)       ne 'ARRAY';    #
Line 295  sub primary_menu { Line 298  sub primary_menu {
         if ($position eq '') {          if ($position eq '') {
             $position = 'right';              $position = 'right';
         }          }
           if ($env{'request.course.id'} && $menucoll) {
               if (($menuitem->[6]) && (!$menuopts{$menuitem->[6]})) {
                   if ($menuitem->[6] eq 'pers') {
                       if ($menuopts{'name'} &&
                           $env{'user.name'} && $env{'user.domain'}) {
                           $menu{$position} .= '<li><a href="#">'.
                               &Apache::loncommon::plainname($env{'user.name'},
                                                             $env{'user.domain'}).'</a></li>';
                           next;
                       } else {
                           next;
                       }
                   } else {
                       next;
                   }
               }
           }
         my ($listclass,$linkattr);          my ($listclass,$linkattr);
         if ($links_disabled) {          if ($links_disabled) {
             $listclass = 'LCisDisabled';              $listclass = 'LCisDisabled';
Line 316  sub primary_menu { Line 336  sub primary_menu {
                              ($item->[2] eq 'blog')) &&                                ($item->[2] eq 'blog')) && 
                              (!&Apache::lonnet::usertools_access('','',$item->[2],                               (!&Apache::lonnet::usertools_access('','',$item->[2],
                                                            undef,'tools')));                                                             undef,'tools')));
                       if ($env{'request.course.id'} && $menucoll) {
                           next if ($item->[3]) && (!$menuopts{$item->[3]});
                       }
                     push(@primsub,$item);                      push(@primsub,$item);
                 }                  }
                 if (@primsub > 0) {                  if ($title eq 'Personal') {
                     if ($title eq 'Personal' && $env{'user.name'} && $env{'user.domain'} ) {                      if ($env{'user.name'} && $env{'user.domain'}) {
                         $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});                          unless (($env{'request.course.id'}) && ($menucoll) && (!$menuopts{'name'})) {
                     } else {                              $title = &Apache::loncommon::plainname($env{'user.name'},$env{'user.domain'});
                           }
                       }
                       next if (($env{'request.course.id'}) && ($menucoll) && ($title eq 'Personal') &&
                                (!@primsub));
                       if ($title eq 'Personal') {
                         $title = &mt($title);                          $title = &mt($title);
                     }                      }
                   } else {
                       $title = &mt($title);
                   }
                   if (@primsub > 0) {
                     $menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1,undef,$listclass,$linkattr);                      $menu{$position} .= &create_submenu($link,$target,$title,\@primsub,1,undef,$listclass,$linkattr);
                 } elsif ($link) {                  } elsif ($link) {
                     $menu{$position} .= ($listclass?'<li class="'.$listclass.'">':'<li>').                      $menu{$position} .= ($listclass?'<li class="'.$listclass.'">':'<li>').
                                         '<a href="'.$link.'" target="'.$target.'" '.$linkattr.'>'.&mt($title).'</a></li>';                                          '<a href="'.$link.'" target="'.$target.'" '.$linkattr.'>'.$title.'</a></li>';
                 }                  }
             }              }
         } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink          } elsif ($$menuitem[3] eq 'Help') { # special treatment for helplink
Line 392  sub getauthor{ Line 424  sub getauthor{
 }  }
   
 sub secondary_menu {  sub secondary_menu {
     my ($httphost,$links_disabled) = @_;      my ($httphost,$ltiscope,$ltimenu,$noprimary,$menucoll,$menuref,$links_disabled) = @_;
     my $menu;      my $menu;
   
     my $crstype = &Apache::loncommon::course_type();      my $crstype = &Apache::loncommon::course_type();
Line 413  sub secondary_menu { Line 445  sub secondary_menu {
     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 $canplc        = &Apache::lonnet::allowed('plc', $crs_sec);
     my $author        = &getauthor();      my $author        = &getauthor();
   
     my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools);      my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools,%menuopts);
     $grouptools = 0;       $grouptools = 0; 
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};          $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
Line 450  sub secondary_menu { Line 483  sub secondary_menu {
             }              }
         }          }
     }      }
       if (($menucoll) && (ref($menuref) eq 'HASH')) {
           %menuopts = %{$menuref};
       }
   
     my ($listclass,$linkattr);      my ($listclass,$linkattr);
     if ($links_disabled) {      if ($links_disabled) {
Line 502  sub secondary_menu { Line 538  sub secondary_menu {
                 && !$showsyllabus;                  && !$showsyllabus;
         next if    $$menuitem[4]   eq 'showfeeds'          next if    $$menuitem[4]   eq 'showfeeds'
                 && !$showfeeds;                  && !$showfeeds;
           next if     $$menuitem[4]  eq 'plc'
                   && !$canplc;
         next if    $$menuitem[4]    eq 'author'          next if    $$menuitem[4]    eq 'author'
                 && !$author;                  && !$author;
         next if    $$menuitem[4]    eq 'cca'          next if    $$menuitem[4]    eq 'cca'
                 && !$canmodifycoauthor;                  && !$canmodifycoauthor;
   
         my $title = $menuitem->[3];          my $title = $menuitem->[3];
           if ($env{'request.course.id'} && $menucoll) {
               if ($$menuitem[5] eq 'main') {
                   next if ($menuopts{$$menuitem[5]} eq 'n');
               } elsif ($$menuitem[5] ne 'roles') {
                   next if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]}));
               }
           }
         if (defined($secondary_submenu{$title})) {          if (defined($secondary_submenu{$title})) {
             my ($link,$target);              my ($link,$target);
             if ($menuitem->[0] ne '') {              if ($menuitem->[0] ne '') {
Line 544  sub secondary_menu { Line 589  sub secondary_menu {
             }              }
         } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {          } elsif ($$menuitem[3] eq 'Roles' && $env{'request.course.id'}) {
             # special treatment for role selector              # special treatment for role selector
             ($roleswitcher_js,$roleswitcher_form,my $switcher) =              my ($switcher,$has_opa_priv);
               ($roleswitcher_js,$roleswitcher_form,$switcher,$has_opa_priv) =
                 &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'},
                         $httphost                          $httphost
                 );                  );
               if (($$menuitem[5]) && (!$menuopts{$$menuitem[5]})) {
                   next unless ($has_opa_priv);
               }
             $menu .= $switcher;              $menu .= $switcher;
         } else {          } else {
             if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) {              if ($$menuitem[3] eq 'Syllabus' && $env{'request.course.id'}) {
Line 599  sub secondary_menu { Line 648  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;
       $menu =~ s/\[javascript\]/javascript:/g;
     if ($env{'request.course.id'}) {        if ($env{'request.course.id'}) {  
         $menu =~ s/\[cnum\]/$cnum/g;          $menu =~ s/\[cnum\]/$cnum/g;
         $menu =~ s/\[cdom\]/$cdom/g;          $menu =~ s/\[cdom\]/$cdom/g;
Line 1047  if ($env{'browser.mobile'}) { Line 1097  if ($env{'browser.mobile'}) {
   
             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/}) &&   if ((!$env{'request.enc'}) && ($env{'request.noversionuri'} !~ m{^/adm/wrapper/ext/}) &&
                      ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)})) {                      ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)}) &&
                       ($env{'request.noversionuri'} !~ m{^/adm/.+/ext\.tool$})) {
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info('$is_mobile')&Show Metadata  s&6&3&catalog.png&$swtext{'catalog'}&info[_1]&catalog_info(currentURL,'$is_mobile')&Show Metadata
 ENDREALRES  ENDREALRES
                 }                  }
                 unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)}) ||                  unless (($env{'request.noversionuri'} =~ m{^/uploaded/$match_domain/$match_courseid/(docs/|default_\d+\.page$)}) ||
                         ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/})) {                           ($env{'request.noversionuri'} =~ m{^\Q/adm/wrapper/\E(ext|uploaded)/}) ||
                           ($env{'request.noversionuri'} =~ m{^/adm/.+/ext\.tool$})) { 
             $menuitems.=(<<ENDREALRES);              $menuitems.=(<<ENDREALRES);
 s&8&1&eval.png&$swtext{'eval'}&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
 ENDREALRES  ENDREALRES
Line 1715  sub prepare_functions { Line 1767  sub prepare_functions {
         if (($env{'form.folderpath'} =~ /^supplemental/) &&          if (($env{'form.folderpath'} =~ /^supplemental/) &&
             (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&              (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
             (($resurl =~ m{^/adm/wrapper/ext/}) ||              (($resurl =~ m{^/adm/wrapper/ext/}) ||
                ($resurl =~ m{^/adm/$cdom/$cnum/\d+/ext\.tool$}) ||
              ($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) ||               ($resurl =~ m{^/uploaded/$cdom/$cnum/supplemental/}) ||
              ($resurl eq '/adm/supplemental') ||               ($resurl eq '/adm/supplemental') ||
              ($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) ||               ($resurl =~ m{^/public/$cdom/$cnum/syllabus$}) ||
Line 2225  function toggleCountdown() { Line 2278  function toggleCountdown() {
 END  END
 }  }
   
   # This creates a "done button" for timed events.  The confirmation box is a jQuery
   # dialog widget. If the interval parameter requires a proctor key for the timed
   # event to be marked done, there will also be a textbox where that can be entered.
   # Clicking OK will set the value of LC_interval_done to 'true', and, if needed will
   # set the value of LC_interval_done_proctorpass to the text entered in that box,
   # and submit the corresponding form.
   #
   # The &zero_time() routine in lonhomework.pm is called when a page is rendered if
   # LC_interval_done is true.
   #
   sub done_button_js {
       my ($type,$width,$height,$proctor,$donebuttontext) = @_;
       return unless (($type eq 'map') || ($type eq 'resource'));
       my %lt = &Apache::lonlocal::texthash(
                    title    => 'WARNING!',
                    preamble => 'You are trying to end this timed event early.',
                    map      => 'Confirming that you are done will cause the time to expire and prevent you from changing any answers in the current folder.',
                    resource => 'Confirming that you are done will cause the time to expire for this question, and prevent you from changing your answer(s).',
                    okdone   => 'Click "OK" if you are completely finished.',
                    cancel   => 'Click "Cancel" to continue working.',
                    proctor  => 'Ask a proctor to enter the key, then click "OK" if you are completely finished.',
                    ok       => 'OK',
                    exit     => 'Cancel',
                    key      => 'Key:',
                    nokey    => 'A proctor key is required',
       );
       my $shownsymb = &HTML::Entities::encode(&Apache::lonenc::check_encrypt($env{'request.symb'}));
       my $navmap = Apache::lonnavmaps::navmap->new();
       my ($missing,$tried) = (0,0);
       if (ref($navmap)) {
           my @resources=();
           if ($type eq 'map') {
               my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'});
               if ($env{'request.symb'} =~ /\.page$/) {
                   @resources=$navmap->retrieveResources($resurl,sub { $_[0]->is_problem() });
               } else {
                   @resources=$navmap->retrieveResources($mapurl,sub { $_[0]->is_problem() });
               }
           } else {
               my $res = $navmap->getBySymb($env{'request.symb'});
               if (ref($res)) {
                   if ($res->is_problem()) {
                       push(@resources,$res);
                   }
               }
           }
           foreach my $res (@resources) {
               if (ref($res->parts()) eq 'ARRAY') {
                   foreach my $part (@{$res->parts()}) {
                       if (!$res->tries($part)) {
                           $missing++;
                       } else {
                           $tried++;
                       }
                   }
               }
           }
       }
       if ($missing) {
           $lt{'miss'} .= '<p class="LC_error">';
           if ($type eq 'map') {
               $lt{'miss'} .= &mt('Submissions are missing for [quant,_1,question part,question parts] in this folder.',$missing);
           } else {
               $lt{'miss'} .= &mt('Submissions are missing for [quant,_1,part] in this question.',$missing);
           }
           if ($missing > 1) {
               $lt{'miss'} .= ' '.&mt('If you confirm you are done you will be unable to submit answers for them.').'</span>';
           } else {
               $lt{'miss'} .= ' '.&mt('If you confirm you are done you will be unable to submit an answer for it.').'</p>';
           }
       }
       $donebuttontext = &HTML::Entities::encode($donebuttontext,'<>&"');
       if ($proctor) {
           if ($height !~ /^\d+$/) {
               $height = 400;
               if ($missing) {
                   $height += 60;
               }
           }
           if ($width !~ /^\d+$/) {
               $width = 400;
               if ($missing) {
                   $width += 60;
               }
           }
           return <<END;
   <form method="post" name="LCdoneButton" action="">
       <input type="hidden" name="LC_interval_done" value="" />
       <input type="hidden" name="LC_interval_done_proctorpass" value="" />
       <input type="hidden" name="symb" value="$shownsymb" />
       <button id="LC_done-confirm-opener" type="button">$donebuttontext</button>
   </form>
   
   <div id="LC_done-confirm" title="$lt{'title'}">
     <p>$lt{'preamble'} $lt{$type}</p>
     $lt{'miss'}
     <p>$lt{'proctor'}</p>
     <form name="LCdoneButtonProctor" action="">
       <label>$lt{'key'}<input type="password" name="LC_interval_done_proctorkey" value="" /></label>
       <input type="submit" tabindex="-1" style="position:absolute; top:-1000px" />
     </form>
     <p>$lt{'cancel'}</p>
   </div>
   
   <script type="text/javascript">
   // <![CDATA[
       \$( "#LC_done-confirm" ).dialog({ autoOpen: false });
       \$( "#LC_done-confirm-opener" ).on("click", function() {
           \$( "#LC_done-confirm" ).dialog("open");
           \$( "#LC_done-confirm" ).dialog({
               height: $height,
               width: $width,
               modal: true,
               resizable: false,
               buttons: [
                   {
                       text: "$lt{'ok'}",
                       click: function() {
                           var proctorkey = \$( '[name="LC_interval_done_proctorkey"]' )[0].value;
                           if ((proctorkey == '') || (proctorkey == null)) {
                               alert("$lt{'nokey'}");
                           } else {
                               \$( '[name="LC_interval_done"]' )[0].value = 'true';
                               \$( '[name="LC_interval_done_proctorpass"]' )[0].value = proctorkey;
                               \$( '[name="LCdoneButton"]' )[0].submit();
                           }
                       },
                   },
                   {
                       text: "$lt{'exit'}",
                       click: function() {
                           \$("#LC_done-confirm").dialog( "close" );
                       }
                   }
               ],
               close: function() {
                   \$( '[name="LC_interval_done_proctorkey"]' )[0].value = '';
               }
           });
           \$( "#LC_done-confirm" ).find( "form" ).on( "submit", function( event ) {
               event.preventDefault();
               \$( '[name="LC_interval_done"]' )[0].value = 'true';
               \$( '[name="LC_interval_done_proctorpass"]' )[0].value = \$( '[name="LC_interval_done_proctorkey"]' )[0].value;
               \$( '[name="LCdoneButton"]' )[0].submit();
           });
   });
   
   // ]]>
   </script>
   
   END
       } else {
           if ($height !~ /^\d+$/) {
               $height = 320;
               if ($missing) {
                   $height += 60;
               }
           }
           if ($width !~ /^\d+$/) {
               $width = 320;
               if ($missing) {
                   $width += 60;
               }
           }
           if ($missing) {
               $lt{'miss'} = '</p>'.$lt{'miss'}.'<p>';
           }
           return <<END;
   
   <form method="post" name="LCdoneButton" action="">
       <input type="hidden" name="LC_interval_done" value="" />
       <input type="hidden" name="symb" value="$shownsymb" />
       <button id="LC_done-confirm-opener" type="button">$donebuttontext</button>
   </form>
   
   <div id="LC_done-confirm" title="$lt{'title'}">
       <p>$lt{'preamble'} $lt{$type} $lt{'miss'} $lt{'okdone'} $lt{'cancel'}</p>
   </div>
   
   <script type="text/javascript">
   // <![CDATA[
   \$( "#LC_done-confirm" ).dialog({ autoOpen: false });
   \$( "#LC_done-confirm-opener" ).click(function() {
       \$( "#LC_done-confirm" ).dialog( "open" );
       \$( "#LC_done-confirm" ).dialog({
         resizable: false,
         height: $height,
         width: $width,
         modal: true,
         buttons: [
                    {
                       text: "$lt{'ok'}",
                       click: function() {
                           \$( this ).dialog( "close" );
                           \$( '[name="LC_interval_done"]' )[0].value = 'true';
                           \$( '[name="LCdoneButton"]' )[0].submit();
                       },
                    },
                    {
                        text: "$lt{'exit'}",
                        click: function() {
                            \$( this ).dialog( "close" );
                        },
                     },
                  ],
          });
   });
   // ]]>
   </script>
   
   END
       }
   }
   
 sub utilityfunctions {  sub utilityfunctions {
     my ($httphost) = @_;      my ($httphost) = @_;
     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]));
Line 2371  function golist(url) { Line 2638  function golist(url) {
   
   
   
 function catalog_info(isMobile) {  function catalog_info(url,isMobile) {
     if (isMobile == 1) {      if (isMobile == 1) {
         openMyModal(window.location.pathname+'.meta?modal=1',500,400,'yes');          openMyModal(url+'.meta?modal=1',500,400,'yes');
     } else {      } else {
         loncatinfo=window.open(window.location.pathname+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');          loncatinfo=window.open(url+'.meta',"LONcatInfo",'height=500,width=400,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');
     }      }
 }  }
   
Line 2497  sub roles_selector { Line 2764  sub roles_selector {
     my $now = time;      my $now = time;
     my (%courseroles,%seccount,%courseprivs,%roledesc);      my (%courseroles,%seccount,%courseprivs,%roledesc);
     my $is_cc;      my $is_cc;
     my ($js,$form,$switcher);      my ($js,$form,$switcher,$has_opa_priv);
     my $ccrole;      my $ccrole;
     if ($crstype eq 'Community') {      if ($crstype eq 'Community') {
         $ccrole = 'co';          $ccrole = 'co';
Line 2618  sub roles_selector { Line 2885  sub roles_selector {
                 if ($env{'request.role'} =~ m{^\Q$role\E}) {                  if ($env{'request.role'} =~ m{^\Q$role\E}) {
                     if ($seccount{$role} > 1) {                      if ($seccount{$role} > 1) {
                         $include = 1;                          $include = 1;
                       } else {
                           if ($env{'user.priv.'.$env{'request.role'}."./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
                               $has_opa_priv = 1;
                           }
                     }                      }
                 } else {                  } else {
                     $include = 1;                      $include = 1;
                 }                  }
             }              }
             if ($include) {              if ($include) {
                   if ($env{"user.priv.$role./$cdom/$cnum./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
                       $has_opa_priv = 1;
                   }
                 push(@submenu,['javascript:adhocRole('."'$role'".')',                  push(@submenu,['javascript:adhocRole('."'$role'".')',
                                &Apache::lonnet::plaintext($role,$crstype)]);                                 &Apache::lonnet::plaintext($role,$crstype)]);
             }              }
Line 2648  sub roles_selector { Line 2922  sub roles_selector {
                     } else {                      } else {
                         $rolename = &Apache::lonnet::plaintext($role);                          $rolename = &Apache::lonnet::plaintext($role);
                     }                      }
                       if ($env{"user.priv.$role./$cdom/$cnum./$cdom/$cnum"} =~/opa\&([^\:]*)/) {
                           $has_opa_priv = 1;
                       }
                     push(@submenu,['javascript:adhocRole('."'$role'".')',                      push(@submenu,['javascript:adhocRole('."'$role'".')',
                                    $rolename]);                                     $rolename]);
                 }                  }
Line 2657  sub roles_selector { Line 2934  sub roles_selector {
             $switcher = &create_submenu('','',&mt('Switch role'),\@submenu);              $switcher = &create_submenu('','',&mt('Switch role'),\@submenu);
         }          }
     }      }
     return ($js,$form,$switcher);      return ($js,$form,$switcher,$has_opa_priv);
 }  }
   
 sub get_all_courseroles {  sub get_all_courseroles {
Line 3016  sub countdown_timer { Line 3293  sub countdown_timer {
         }          }
         my $duedate = &Apache::lonnet::EXT("resource.0.duedate");          my $duedate = &Apache::lonnet::EXT("resource.0.duedate");
         my @interval=&Apache::lonnet::EXT("resource.0.interval");          my @interval=&Apache::lonnet::EXT("resource.0.interval");
           my ($timelimit,$usesdone,$donebuttontext,$proctor,$secret);
         if (@interval > 1) {          if (@interval > 1) {
               ($timelimit,my $donesuffix) = split(/_/,$interval[0],2);
               if ($donesuffix =~ /^done\:([^\:]+)\:(.*)$/) {
                   $usesdone = 'done';
                   $donebuttontext = $1;
                   (undef,$proctor,$secret) = split(/_/,$2);
               } elsif ($donesuffix =~ /^done(|_.+)$/) {
                   $donebuttontext = &mt('Done');
                   ($usesdone,$proctor,$secret) = split(/_/,$donesuffix);
               }
             my $first_access=&Apache::lonnet::get_first_access($interval[1]);              my $first_access=&Apache::lonnet::get_first_access($interval[1]);
             if ($first_access > 0) {              if ($first_access > 0) {
                 if ($first_access+$interval[0] > time) {                  if ($first_access+$timelimit > time) {
                     $hastimeleft = 1;                      $hastimeleft = 1;
                 }                  }
             }              }
Line 3027  sub countdown_timer { Line 3314  sub countdown_timer {
         if (($duedate && $duedate > time) ||          if (($duedate && $duedate > time) ||
             (!$duedate && $hastimeleft) ||              (!$duedate && $hastimeleft) ||
             ($slot_name ne '' && $slothastime)) {              ($slot_name ne '' && $slothastime)) {
             my ($collapse,$expand,$alttxt,$title,$currdisp);              my ($collapse,$expand,$alttxt,$title,$currdisp,$donebutton);
             if ((@interval > 1 && $hastimeleft) ||              if ((@interval > 1 && $hastimeleft) ||
                 ($type eq 'Task' && $slothastime)) {                  ($type eq 'Task' && $slothastime)) {
                 $currdisp = 'inline';                  $currdisp = 'inline';
                 $collapse = '&#9658;&nbsp;';                  $collapse = '&#9658;&nbsp;';
                   if ((@interval > 1) && ($hastimeleft)) {
                       if ($usesdone eq 'done') {
                           $donebutton = &done_button_js($interval[1],'','',$proctor,$donebuttontext);
                       }
                   }
             } else {              } else {
                 $currdisp = 'none';                  $currdisp = 'none';
                 $expand = '&#9668;&nbsp;';                  $expand = '&#9668;&nbsp;';
Line 3042  sub countdown_timer { Line 3334  sub countdown_timer {
             }              }
             my $desc = &mt('Countdown to due date/time');              my $desc = &mt('Countdown to due date/time');
             return <<END;              return <<END;
   $donebutton
 <a href="javascript:toggleCountdown();" class="LC_menubuttons_link">  <a href="javascript:toggleCountdown();" class="LC_menubuttons_link">
 <span id="ddcountcollapse" class="LC_menubuttons_inline_text">  <span id="ddcountcollapse" class="LC_menubuttons_inline_text">
 $collapse  $collapse
Line 3073  BEGIN { Line 3365  BEGIN {
                         $category_positions{$entries[2]}=$entries[1];                          $category_positions{$entries[2]}=$entries[1];
                         $category_names{$entries[2]}=$entries[3];                          $category_names{$entries[2]}=$entries[3];
                     } elsif ($configline=~/^prim\:/) {                      } elsif ($configline=~/^prim\:/) {
                         my @entries = (split(/\:/, $configline))[1..6];                          my @entries = (split(/\:/, $configline))[1..7];
                         push(@primary_menu,\@entries);                          push(@primary_menu,\@entries);
                     } elsif ($configline=~/^primsub\:/) {                      } elsif ($configline=~/^primsub\:/) {
                         my ($parent,@entries) = (split(/\:/, $configline))[1..4];                          my ($parent,@entries) = (split(/\:/, $configline))[1..5];
                         push(@{$primary_submenu{$parent}},\@entries);                          push(@{$primary_submenu{$parent}},\@entries);
                     } elsif ($configline=~/^scnd\:/) {                      } elsif ($configline=~/^scnd\:/) {
                         my @entries = (split(/\:/, $configline))[1..5];                          my @entries = (split(/\:/, $configline))[1..6];
                         push(@secondary_menu,\@entries);                          push(@secondary_menu,\@entries);
                     } elsif ($configline=~/^scndsub\:/) {                      } elsif ($configline=~/^scndsub\:/) {
                         my ($parent,@entries) = (split(/\:/, $configline))[1..4];                          my ($parent,@entries) = (split(/\:/, $configline))[1..4];
Removed from v.1.369.2.83  
changed lines
  Added in v.1.369.2.83.2.1

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