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

Diff for /loncom/homework/structuretags.pm between versions 1.461 and 1.461.2.1

version 1.461, 2009/12/06 21:18:24 version 1.461.2.1, 2010/08/09 23:39:50
Line 654  item store_aggregates() Line 654  item store_aggregates()
   
 sub store_aggregates {  sub store_aggregates {
     my ($symb,$courseid) = @_;      my ($symb,$courseid) = @_;
     my %aggregate;      my (%aggregate,%subtracker);
       my $tracksub;
       if ($symb =~ m{^uploaded/gcitest/$LONCAPA::match_courseid/default_1261144274.sequence___\d+___gci/gci/}) {
           $tracksub = 1;
       }
     my @parts;      my @parts;
     my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $cname = $env{'course.'.$env{'request.course.id'}.'.num'};      my $cname = $env{'course.'.$env{'request.course.id'}.'.num'};
Line 669  sub store_aggregates { Line 673  sub store_aggregates {
     $Apache::lonhomework::results{'resource.'.$part.'.award'}      $Apache::lonhomework::results{'resource.'.$part.'.award'}
     eq 'EXACT_ANS') {      eq 'EXACT_ANS') {
             $aggregate{$symb."\0".$part."\0correct"} = 1;              $aggregate{$symb."\0".$part."\0correct"} = 1;
               if ($tracksub) {
                   $subtracker{$env{'user.name'}.':'.$env{'user.domain'}."\0correct"} ++;
               }
         }          }
         if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) {          if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) {
             $aggregate{$symb."\0".$part."\0users"} = 1;              $aggregate{$symb."\0".$part."\0users"} = 1;
Line 681  sub store_aggregates { Line 688  sub store_aggregates {
             }              }
         }          }
         $aggregate{$symb."\0".$part."\0attempts"} = 1;          $aggregate{$symb."\0".$part."\0attempts"} = 1;
           if ($tracksub) {
               if ($Apache::lonhomework::type eq 'survey') {
                   $subtracker{$env{'user.name'}.':'.$env{'user.domain'}."\0surveysubs"} ++;
               } else {
                   $subtracker{$env{'user.name'}.':'.$env{'user.domain'}."\0attempts"} ++;
               }
           }
     }      }
     if (keys (%aggregate) > 0) {      if (keys (%aggregate) > 0) {
  &Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,   &Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,
                             $cdomain,$cname);                              $cdomain,$cname);
     }      }
       if (keys(%subtracker) > 0) {
           &Apache::lonnet::cinc('nohist_submissiontracker',\%subtracker,
                               $cdomain,$cname);
       }
 }  }
   
 sub checkout_msg {  sub checkout_msg {
Removed from v.1.461  
changed lines
  Added in v.1.461.2.1

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