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

Diff for /loncom/homework/lonhomework.pm between versions 1.354 and 1.357

version 1.354, 2015/06/17 03:57:01 version 1.357, 2015/09/14 13:45:19
Line 49  use Apache::matchresponse(); Line 49  use Apache::matchresponse();
 use Apache::chemresponse();  use Apache::chemresponse();
 use Apache::functionplotresponse();  use Apache::functionplotresponse();
 use Apache::drawimage();  use Apache::drawimage();
   use Apache::loncapamath();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonparmset();  use Apache::lonparmset();
Line 209  sub proctor_checked_in { Line 210  sub proctor_checked_in {
 }  }
   
 sub check_slot_access {  sub check_slot_access {
     my ($id,$type)=@_;      my ($id,$type,$symb)=@_;
   
     # does it pass normal muster      # does it pass normal muster
     my ($status,$datemsg)=&check_access($id);      my ($status,$datemsg)=&check_access($id,$symb);
           
     my $useslots = &Apache::lonnet::EXT("resource.0.useslots");      my $useslots = &Apache::lonnet::EXT("resource.0.useslots",$symb);
     if ($useslots ne 'resource' && $useslots ne 'map'       if ($useslots ne 'resource' && $useslots ne 'map' 
  && $useslots ne 'map_map') {   && $useslots ne 'map_map') {
  return ($status,$datemsg);   return ($status,$datemsg);
Line 238  sub check_slot_access { Line 239  sub check_slot_access {
  }   }
     }      }
   
     my $availablestudent = &Apache::lonnet::EXT("resource.0.availablestudent");      my $availablestudent = &Apache::lonnet::EXT("resource.0.availablestudent",$symb);
     my $available = &Apache::lonnet::EXT("resource.0.available");      my $available = &Apache::lonnet::EXT("resource.0.available",$symb);
     my @slots= (split(':',$availablestudent),split(':',$available));      my @slots= (split(':',$availablestudent),split(':',$available));
   
 #    if (!@slots) {  #    if (!@slots) {
Line 311  sub check_slot_access { Line 312  sub check_slot_access {
                 if ($env{'request.course.id'}) {                  if ($env{'request.course.id'}) {
                     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};                      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};                      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                     my ($symb)=&Apache::lonnet::whichuser();                      unless ($symb) {
                           ($symb)=&Apache::lonnet::whichuser();
                       }
                     $slotstatus = 'NOTRESERVABLE';                      $slotstatus = 'NOTRESERVABLE';
                     my ($reservable_now_order,$reservable_now,$reservable_future_order,                      my ($reservable_now_order,$reservable_now,$reservable_future_order,
                         $reservable_future) =                           $reservable_future) = 
Line 365  sub check_slot_access { Line 368  sub check_slot_access {
 # JB, 9/24/2002: Any changes in this function may require a change  # JB, 9/24/2002: Any changes in this function may require a change
 # in lonnavmaps::resource::getDateStatus.  # in lonnavmaps::resource::getDateStatus.
 sub check_access {  sub check_access {
     my ($id) = @_;      my ($id,$symb) = @_;
     my $date ='';      my $date ='';
     my $status;      my $status;
     my $datemsg = '';      my $datemsg = '';
Line 395  sub check_access { Line 398  sub check_access {
     &Apache::lonxml::debug("checking for part :$id:");      &Apache::lonxml::debug("checking for part :$id:");
     &Apache::lonxml::debug("time:".time);      &Apache::lonxml::debug("time:".time);
   
     my ($symb)=&Apache::lonnet::whichuser();      unless ($symb) {
           ($symb)=&Apache::lonnet::whichuser();
       }
     &Apache::lonxml::debug("symb:".$symb);      &Apache::lonxml::debug("symb:".$symb);
     #if ($env{'request.state'} ne "construct" && $symb ne '') {      #if ($env{'request.state'} ne "construct" && $symb ne '') {
     if ($env{'request.state'} ne "construct") {      if ($env{'request.state'} ne "construct") {
         my $idacc = &Apache::lonnet::EXT("resource.$id.acc");          my $idacc = &Apache::lonnet::EXT("resource.$id.acc",$symb);
  my $allowed=&Apache::loncommon::check_ip_acc($idacc);   my $allowed=&Apache::loncommon::check_ip_acc($idacc);
  if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {   if (!$allowed && ($Apache::lonhomework::browse ne 'F')) {
     $status='INVALID_ACCESS';      $status='INVALID_ACCESS';
Line 415  sub check_access { Line 420  sub check_access {
  foreach my $temp ("opendate","duedate","answerdate") {   foreach my $temp ("opendate","duedate","answerdate") {
     $lastdate = $date;      $lastdate = $date;
     if ($temp eq 'duedate') {      if ($temp eq 'duedate') {
  $date = &due_date($id);   $date = &due_date($id,$symb);
     } else {      } else {
  $date = &Apache::lonnet::EXT("resource.$id.$temp");   $date = &Apache::lonnet::EXT("resource.$id.$temp",$symb);
     }      }
           
     my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type");      my $thistype = &Apache::lonnet::EXT("resource.$id.$temp.type",$symb);
     if ($thistype =~ /^(con_lost|no_such_host)/ ||      if ($thistype =~ /^(con_lost|no_such_host)/ ||
  $date     =~ /^(con_lost|no_such_host)/) {   $date     =~ /^(con_lost|no_such_host)/) {
  $status='UNAVAILABLE';   $status='UNAVAILABLE';
Line 429  sub check_access { Line 434  sub check_access {
     }      }
     if ($thistype eq 'date_interval') {      if ($thistype eq 'date_interval') {
  if ($temp eq 'opendate') {   if ($temp eq 'opendate') {
     $date=&Apache::lonnet::EXT("resource.$id.duedate")-$date;      $date=&Apache::lonnet::EXT("resource.$id.duedate",$symb)-$date;
  }   }
  if ($temp eq 'answerdate') {   if ($temp eq 'answerdate') {
     $date=&Apache::lonnet::EXT("resource.$id.duedate")+$date;      $date=&Apache::lonnet::EXT("resource.$id.duedate",$symb)+$date;
  }   }
     }      }
     &Apache::lonxml::debug("found :$date: for :$temp:");      &Apache::lonxml::debug("found :$date: for :$temp:");
Line 466  sub check_access { Line 471  sub check_access {
  (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED'))) {   (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED'))) {
  #check #tries, and if correct.   #check #tries, and if correct.
  my $tries = $Apache::lonhomework::history{"resource.$id.tries"};   my $tries = $Apache::lonhomework::history{"resource.$id.tries"};
  my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");   my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries",$symb);
  if ( $tries eq '' ) { $tries = '0'; }   if ( $tries eq '' ) { $tries = '0'; }
  if ( $maxtries eq '' &&    if ( $maxtries eq '' && 
      $env{'request.state'} ne 'construct') { $maxtries = '2'; }        $env{'request.state'} ne 'construct') { $maxtries = '2'; } 
Line 475  sub check_access { Line 480  sub check_access {
  if ( ($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/)   if ( ($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/)
       && (&show_problem_status()) ) {        && (&show_problem_status()) ) {
             if (($Apache::lonhomework::history{"resource.$id.awarded"} >= 1) ||              if (($Apache::lonhomework::history{"resource.$id.awarded"} >= 1) ||
                 (&Apache::lonnet::EXT("resource.$id.retrypartial") !~/^1|on|yes$/i)) {                  (&Apache::lonnet::EXT("resource.$id.retrypartial",$symb) !~/^1|on|yes$/i)) {
         $status = 'CANNOT_ANSWER';          $status = 'CANNOT_ANSWER';
             }              }
         } elsif ($Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {          } elsif ($Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {
Line 487  sub check_access { Line 492  sub check_access {
  }   }
     }      }
     if ($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER') {      if ($status eq 'CAN_ANSWER' || $status eq 'CANNOT_ANSWER') {
  my @interval=&Apache::lonnet::EXT("resource.$id.interval");   my @interval=&Apache::lonnet::EXT("resource.$id.interval",$symb);
  &Apache::lonxml::debug("looking for interval @interval");   &Apache::lonxml::debug("looking for interval @interval");
  if ($interval[0]) {   if ($interval[0]) {
     my $first_access=&Apache::lonnet::get_first_access($interval[1]);      my $first_access=&Apache::lonnet::get_first_access($interval[1],$symb);
     &Apache::lonxml::debug("looking for accesstime $first_access");      &Apache::lonxml::debug("looking for accesstime $first_access");
     if (!$first_access) {      if (!$first_access) {
  $status='NOT_YET_VIEWED';   $status='NOT_YET_VIEWED';
  my $due_date = &due_date($id);   my $due_date = &due_date($id,$symb);
  my $seconds_left = $due_date - time;   my $seconds_left = $due_date - time;
  if ($seconds_left > $interval[0] || $due_date eq '') {   if ($seconds_left > $interval[0] || $due_date eq '') {
     $seconds_left = $interval[0];      $seconds_left = $interval[0];
Line 1355  sub update_construct_style { Line 1360  sub update_construct_style {
 sub zero_timer {  sub zero_timer {
     my ($symb) = @_;      my ($symb) = @_;
     my ($hastimeleft,$first_access,$now);      my ($hastimeleft,$first_access,$now);
     my @interval=&Apache::lonnet::EXT("resource.0.interval");      my @interval=&Apache::lonnet::EXT("resource.0.interval",$symb);
     if (@interval > 1) {      if (@interval > 1) {
         if ($interval[1] eq 'course') {          if ($interval[1] eq 'course') {
             return;              return;
Line 1363  sub zero_timer { Line 1368  sub zero_timer {
             my $now = time;              my $now = time;
             my $first_access=&Apache::lonnet::get_first_access($interval[1],$symb);              my $first_access=&Apache::lonnet::get_first_access($interval[1],$symb);
             if ($first_access > 0) {              if ($first_access > 0) {
                 if ($first_access+$interval[0] > $now) {                  my ($timelimit) = split(/_/,$interval[0]);
                   if ($first_access+$timelimit > $now) {
                     my $done_time = $now - $first_access;                      my $done_time = $now - $first_access;
                     my $snum = 1;                      my $snum = 1;
                     if ($interval[1] eq 'map') {                      if ($interval[1] eq 'map') {
Removed from v.1.354  
changed lines
  Added in v.1.357

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