loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

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) {