loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonmenu.pm between versions 1.369.2.22 and 1.369.2.24

-version 1.369.2.22, 2012/08/27 15:53:40
+version 1.369.2.24, 2012/09/26 00:39:32
  Line 1975  sub roles_selector {
      } else {
          $ccrole = 'cc';
      }
-     my $priv;
+     my ($priv,$gotsymb,$destsymb);
      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();
      if (ref($reqprivs) eq 'HASH') {
          my $destination = $destinationurl;
- Line 2064  sub roles_selector {
+ Line 2078  sub roles_selector {
                  $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="'.
                 &HTML::Entities::encode($destinationurl).'" />'."\n".
                 '<input type="hidden" name="gotorole" value="1" />'."\n".
- Line 2320  sub required_privs {
+ Line 2339  sub required_privs {
  sub countdown_timer {
      if (($env{'request.course.id'}) && ($env{'request.symb'} ne '') &&
-         ($env{'request.filename'}=~/$LONCAPA::assess_re/) &&
+         ($env{'request.filename'}=~/$LONCAPA::assess_re/)) {
-         ($Apache::inputtags::status[-1] eq 'CAN_ANSWER')) {
+         my ($type,$hastimeleft,$slothastime);
+         my $now = time;
+         if ($env{'request.filename'} =~ /\.task$/) {
+             $type = 'Task';
+         } else {
+             $type = 'problem';
+         }
+         my ($status,$accessmsg,$slot_name,$slot) =
+             &Apache::lonhomework::check_slot_access('0',$type);
+         if ($slot_name ne '') {
+             if (ref($slot) eq 'HASH') {
+                 if (($slot->{'starttime'} < $now) &&
+                     ($slot->{'endtime'} > $now)) {
+                     $slothastime = 1;
+                 }
+             }
+         }
+         if ($status ne 'CAN_ANSWER') {
+             return;
+         }
          my $duedate = &Apache::lonnet::EXT("resource.0.duedate");
          my @interval=&Apache::lonnet::EXT("resource.0.interval");
          my $hastimeleft;
- Line 2334  sub countdown_timer {
+ Line 2372  sub countdown_timer {
              }
          }
          if (($duedate && $duedate > time) ||
-             (!$duedate && $hastimeleft)) {
+             (!$duedate && $hastimeleft) ||
+             ($slot_name ne '' && $slothastime)) {
              my ($collapse,$expand,$alttxt,$title,$currdisp);
-             if (@interval > 1 && $hastimeleft) {
+             if ((@interval > 1 && $hastimeleft) ||
+                 ($type eq 'Task' && $slothastime)) {
                  $currdisp = 'inline';
                  $collapse = '&#9658;&nbsp;';
              } else {

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

Removed from v.1.369.2.22
changed lines
	Added in v.1.369.2.24