loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.732, 2015/02/22 01:34:48	version 1.733, 2015/02/22 15:23:56
Line 2231 sub submission {	Line 2231 sub submission {
if ($hide eq 'rand') {	if ($hide eq 'rand') {
$type = 'randomizetry';	$type = 'randomizetry';
$trial = $record{"resource.$partid.tries"};	$trial = $record{"resource.$partid.tries"};
if (exists($record{"resource.$partid.rawrndseed"})) {	$rndseed = $record{"resource.$partid.rndseed"};
$rndseed = $record{"resource.$partid.rawrndseed"};
} else {
$rndseed = $record{"resource.$partid.rndseed"};
}
}	}
if ($env{'form.checkPlag'}) {	if ($env{'form.checkPlag'}) {
my ($oname,$odom,$ocrsid,$oessay,$osim)=	my ($oname,$odom,$ocrsid,$oessay,$osim)=
Line 4861 sub displaySubByDates {	Line 4857 sub displaySubByDates {
my ($trial,$rndseed,$newvariation);	my ($trial,$rndseed,$newvariation);
if ($type eq 'randomizetry') {	if ($type eq 'randomizetry') {
$trial = $$record{"$where.$partid.tries"};	$trial = $$record{"$where.$partid.tries"};
if (exists($$record{"$where.$partid.rawrndseed"})) {	$rndseed = $$record{"$where.$partid.rndseed"};
$rndseed = $$record{"$where.$partid.rawrndseed"};
} else {
$rndseed = $$record{"$where.$partid.rndseed"};
}
}	}
if ($$record{"$where.$partid.tries"} eq '') {	if ($$record{"$where.$partid.tries"} eq '') {
$displaySub[0].=&mt('Trial not counted');	$displaySub[0].=&mt('Trial not counted');