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

Diff for /loncom/interface/lonmenu.pm between versions 1.432 and 1.440

version 1.432, 2015/04/16 10:13:25 version 1.440, 2016/03/15 14:25:26
Line 371  sub secondary_menu { Line 371  sub secondary_menu {
     my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec);       my $canmgr        = &Apache::lonnet::allowed('mgr', $crs_sec); 
     my $author        = &getauthor();      my $author        = &getauthor();
   
     my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv);      my ($cdom,$cnum,$showsyllabus,$showfeeds,$showresv,$grouptools);
       $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'};
         $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};          $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
Line 397  sub secondary_menu { Line 398  sub secondary_menu {
                 $showresv = 1;                  $showresv = 1;
             }              }
         }          }
           my %groups = &Apache::lonnet::get_active_groups(
                        $env{'user.domain'}, $env{'user.name'},$cdom,$cnum);
           if (%groups) {
               foreach my $group (keys(%groups)) {
                   my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"});
                   shift(@privs);
                   if (@privs) {
                       $grouptools ++;
                   }
               }
           }
     }      }
   
     my ($canmodifycoauthor);       my ($canmodifycoauthor); 
Line 407  sub secondary_menu { Line 419  sub secondary_menu {
             $canmodifycoauthor = 1;              $canmodifycoauthor = 1;
         }          }
     }      }
   
     my %groups = &Apache::lonnet::get_active_groups(  
                      $env{'user.domain'}, $env{'user.name'},  
                      $env{'course.' . $env{'request.course.id'} . '.domain'},  
                      $env{'course.' . $env{'request.course.id'} . '.num'});  
   
     my ($roleswitcher_js,$roleswitcher_form);      my ($roleswitcher_js,$roleswitcher_form);
   
     foreach my $menuitem (@secondary_menu) {      foreach my $menuitem (@secondary_menu) {
Line 441  sub secondary_menu { Line 447  sub secondary_menu {
                 && !$canmodpara;                  && !$canmodpara;
         next if    $$menuitem[4]   =~ /showgroups$/          next if    $$menuitem[4]   =~ /showgroups$/
                 && !$canviewgrps                  && !$canviewgrps
                 && !%groups;                  && !$grouptools;
         next if    $$menuitem[4]   eq 'showsyllabus'          next if    $$menuitem[4]   eq 'showsyllabus'
                 && !$showsyllabus;                  && !$showsyllabus;
         next if    $$menuitem[4]   eq 'showfeeds'          next if    $$menuitem[4]   eq 'showfeeds'
Line 634  sub innerregister { Line 640  sub innerregister {
                                                        && $maptitle ne $coursetitle);                                                         && $maptitle ne $coursetitle);
   
             push @crumbs, {text => $restitle, no_mt => 1} if $restitle;               push @crumbs, {text => $restitle, no_mt => 1} if $restitle; 
               my @tools;
               if ($env{'request.filename'} =~ /\.page$/) {
                   my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();
                   if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') {
                       @tools = @{$breadcrumb_tools{'tools'}};
                   }
               }
             &Apache::lonhtmlcommon::clear_breadcrumbs();              &Apache::lonhtmlcommon::clear_breadcrumbs();
             &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);              &Apache::lonhtmlcommon::add_breadcrumb(@crumbs);
               if (@tools) {
                   &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',@tools);
               }
         } else {          } else {
             $resurl = $env{'request.noversionuri'};              $resurl = $env{'request.noversionuri'};
             my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});              my $courseurl = &Apache::lonnet::courseid_to_courseurl($env{'request.course.id'});
Line 771  sub innerregister { Line 787  sub innerregister {
             my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;              my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;
             if ($currdir =~ m-/$-) {              if ($currdir =~ m-/$-) {
                 $is_const_dir = 1;                  $is_const_dir = 1;
                   if ($thisdisfn eq '') {
                       $is_const_dir = 2;
                   }
             } else {              } else {
                 $currdir =~ s|[^/]+$||;                  $currdir =~ s|[^/]+$||;
  my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);   my $cleandisfn = &Apache::loncommon::escape_single($thisdisfn);
Line 834  if ($env{'browser.mobile'}) { Line 853  if ($env{'browser.mobile'}) {
     $is_mobile = 1;      $is_mobile = 1;
 }  }
   
             unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio)(\?|$)/) {              unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme|viewclasslist|portfolio|exttools?)(\?|$)/) {
  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/}) && ($env{'request.noversionuri'} !~ m{^/uploaded/$match_domain/$match_courseid/docs/})) {
     $menuitems.=(<<ENDREALRES);      $menuitems.=(<<ENDREALRES);
 s&6&3&catalog.png&Info&info[_1]&catalog_info('$is_mobile')&Show Metadata  s&6&3&catalog.png&Info&info[_1]&catalog_info('$is_mobile')&Show Metadata
Line 892  ENDMENUITEMS Line 911  ENDMENUITEMS
     my $addremote=0;      my $addremote=0;
     foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }      foreach (@inlineremote) { if ($_ ne '') { $addremote=1; last;} }
     if ($addremote) {      if ($addremote) {
           my $countdown;
           if ($env{'request.filename'} =~ /\.page$/) {
               my %breadcrumb_tools = &Apache::lonhtmlcommon::current_breadcrumb_tools();
               if (ref($breadcrumb_tools{'tools'}) eq 'ARRAY') {
                   $countdown = $breadcrumb_tools{'tools'}[0];
               }
           } else {
               $countdown = &countdown_timer();
           }
         &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 (&hidden_button_check() eq 'yes') {
             if ($countdown) {              if ($countdown) {
                 &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);                  &Apache::lonhtmlcommon::add_breadcrumb_tool('tools',$countdown);
Line 922  ENDMENUITEMS Line 948  ENDMENUITEMS
             &advtools_crumbs(@inlineremote);              &advtools_crumbs(@inlineremote);
         }          }
     }      }
       my ($topic_help,$topic_help_text);
       if ($is_const_dir == 2) {
           if ((($ENV{'SERVER_PORT'} == 443) || 
                ($Apache::lonnet::protocol{$Apache::lonnet::perlvar{'lonHostID'}} eq 'https')) && 
               (&Apache::lonnet::usertools_access($env{'user.name'},$env{'user.domain'},'webdav'))) {
               $topic_help = 'Authoring_WebDAV,Authoring_WebDAV_Mac_10v6,Authoring_WebDAV_Mac_10v10,'.
                             'Authoring_WebDAV_Windows_v7,Authoring_WebDAV_Linux_Centos';
               $topic_help_text = 'About WebDAV access';
           }
       }
     return   &Apache::lonhtmlcommon::scripttag('', 'start')      return   &Apache::lonhtmlcommon::scripttag('', 'start')
            . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0)             . &Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'','','','',$topic_help,$topic_help_text)
            . &Apache::lonhtmlcommon::scripttag('', 'end');             . &Apache::lonhtmlcommon::scripttag('', 'end');
 }  }
   
Line 1096  sub prepare_functions { Line 1131  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+/exttools?$}) ||
              ($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 1531  function toggleCountdown() { Line 1567  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) = @_;
       my %lt = &Apache::lonlocal::texthash(
                    title    => 'WARNING!',
                    button   => 'Done',
                    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 $confirm;
       if (($type eq 'map') || ($type eq 'resource')) {
           if ($proctor) {
               $confirm = $lt{'preamble'}.' '.$lt{$type};
               if ($height !~ /^\d+$/) {
                   $height = 400;
               }
               if ($width !~ /^\d+$/) {
                   $width = 400;
               }
               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="" />
       <button id="LC_done-confirm-opener" type="button">$lt{'button'}</button>
   </form>
   
   <div id="LC_done-confirm" title="$lt{'title'}">
     <p>$lt{'preamble'} $lt{$type}</p>
     <p>$lt{'proctor'}</p>
     <form>
       <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 ($width !~ /^\d+$/) {
                   $width = 320;
               }
               return <<END;
   
   <form method="post" name="LCdoneButton" action="">
       <input type="hidden" name="LC_interval_done" value="" />
       <button id="LC_done-confirm-opener" type="button">$lt{'button'}</button>
   </form>
   
   <div id="LC_done-confirm" title="$lt{'title'}">
       <p>$lt{'preamble'} $lt{$type} $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
           }
       } else {
           return;
       }
   }
   
 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 2194  sub countdown_timer { Line 2386  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,$proctor,$secret);
         if (@interval > 1) {          if (@interval > 1) {
               ($timelimit,$usesdone,$proctor,$secret) = split(/_/,$interval[0]); 
             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 2205  sub countdown_timer { Line 2399  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);
                       }
                   }
             } else {              } else {
                 $currdisp = 'none';                  $currdisp = 'none';
                 $expand = '&#9668;&nbsp;';                  $expand = '&#9668;&nbsp;';
Line 2219  sub countdown_timer { Line 2418  sub countdown_timer {
                 $title = $alttxt.'&nbsp;';                  $title = $alttxt.'&nbsp;';
             }              }
             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
Removed from v.1.432  
changed lines
  Added in v.1.440

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