version 1.97, 2011/06/01 21:32:50
|
version 1.98, 2011/06/02 01:34:34
|
Line 35 use Apache::loncommon;
|
Line 35 use Apache::loncommon;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::grades; |
use Apache::grades; |
|
use Time::HiRes; |
|
my $time=0; |
|
|
|
sub tim { |
|
my ($label)=@_; |
|
my $tt=&Time::HiRes::time(); |
|
my $dt=$tt-$time; |
|
&Apache::lonnet::logthis("qg $label ".$dt); |
|
$time=$tt; |
|
} |
|
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 242 sub getData {
|
Line 253 sub getData {
|
my $stack = $iterator->getStack(); |
my $stack = $iterator->getStack(); |
|
|
for my $part (@{$parts}) { |
for my $part (@{$parts}) { |
my $completionStatus = $curRes->getCompletionStatus($part); |
|
my $dateStatus = $curRes->getDateStatus($part); |
my $dateStatus = $curRes->getDateStatus($part); |
my $weight = $curRes->weight($part); |
my $weight = $curRes->weight($part); |
my $problemstatus = $curRes->problemstatus($part); |
my $problemstatus = $curRes->problemstatus($part); |
|
|
if ($completionStatus == $curRes->EXCUSED()) { |
if ($curRes->solved($part) eq 'excused') { |
next; |
next; |
} |
} |
if ($showPoints) { |
if ($showPoints) { |