loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.62, 2003/06/23 16:06:11	version 1.64, 2003/06/24 21:44:09
Line 1428 sub StudentTriesOnSequence {	Line 1428 sub StudentTriesOnSequence {
$symbol = '<a href="/adm/grades'.	$symbol = '<a href="/adm/grades'.
'?symb='.&Apache::lonnet::escape($resource->{'symb'}).	'?symb='.&Apache::lonnet::escape($resource->{'symb'}).
'&student='.$student->{'username'}.	'&student='.$student->{'username'}.
'&domain='.$student->{'domain'}.	'&userdom='.$student->{'domain'}.
'&command=submission">'.$symbol.'</a>';	'&command=submission">'.$symbol.'</a>';
}	}
$value .= $symbol;	$value .= $symbol;
Line 1500 sub StudentPerformanceOnSequence {	Line 1500 sub StudentPerformanceOnSequence {
#	#
$partscore = $weight*$awarded;	$partscore = $weight*$awarded;
$score += $partscore;	$score += $partscore;
$symbol = $weight;	$symbol = $partscore;
if (length($symbol) > 1) {	if (length($symbol) > 1) {
$symbol = '*';	$symbol = '*';
}	}
Line 1528 sub StudentPerformanceOnSequence {	Line 1528 sub StudentPerformanceOnSequence {
$symbol = '<a href="/adm/grades'.	$symbol = '<a href="/adm/grades'.
'?symb='.&Apache::lonnet::escape($resource->{'symb'}).	'?symb='.&Apache::lonnet::escape($resource->{'symb'}).
'&student='.$student->{'username'}.	'&student='.$student->{'username'}.
'&domain='.$student->{'domain'}.	'&userdom='.$student->{'domain'}.
'&command=submission">'.$symbol.'</a>';	'&command=submission">'.$symbol.'</a>';
}	}
$Str .= $symbol;	$Str .= $symbol;