loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

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

version 1.59, 2003/06/16 15:54:58	version 1.60, 2003/06/17 17:47:54
Line 335 sub CreateInterface {	Line 335 sub CreateInterface {
'value="Select One Student" />';	'value="Select One Student" />';
$Str .= ' 'x5;	$Str .= ' 'x5;
$Str .= '<input type="submit" name="ClearCache" value="Clear Caches" />';	$Str .= '<input type="submit" name="ClearCache" value="Clear Caches" />';
$Str .= ' 'x5;	$Str .= ' 'x5.'<br />';
return $Str;	return $Str;
}	}

Line 1516 sub StudentPerformanceOnSequence {	Line 1516 sub StudentPerformanceOnSequence {
}	}
}	}
#	#
	if (! defined($partscore)) {
	$partscore = $symbol;
	}
	push (@ScoreData,$partscore);
	#
if ( ($links eq 'yes' && $symbol ne ' ') \|\| ($links eq 'all')) {	if ( ($links eq 'yes' && $symbol ne ' ') \|\| ($links eq 'all')) {
$symbol = '<a href="/adm/grades'.	$symbol = '<a href="/adm/grades'.
'?symb='.&Apache::lonnet::escape($resource->{'symb'}).	'?symb='.&Apache::lonnet::escape($resource->{'symb'}).
Line 1523 sub StudentPerformanceOnSequence {	Line 1528 sub StudentPerformanceOnSequence {
'&domain='.$student->{'domain'}.	'&domain='.$student->{'domain'}.
'&command=submission">'.$symbol.'</a>';	'&command=submission">'.$symbol.'</a>';
}	}
if (! defined($partscore)) {	$Str .= $symbol;
$partscore = $symbol;
}
push (@ScoreData,$partscore);
}	}
$Str .= $symbol;
}	}
return ($Str,$performance_length,$score,$max,\@ScoreData);	return ($Str,$performance_length,$score,$max,\@ScoreData);
}	}