loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

version 1.31, 2002/08/30 15:35:08	version 1.33, 2002/09/22 17:08:32
Line 435 sub ProblemStatisticsButtons {	Line 435 sub ProblemStatisticsButtons {

my $Ptr = '<tr><td></td><td align="left">';	my $Ptr = '<tr><td></td><td align="left">';
$Ptr .= '<input type="submit" name="DoDiffGraph" ';	$Ptr .= '<input type="submit" name="DoDiffGraph" ';
$Ptr .= 'value="Degree of Difficulty" />'."\n";	$Ptr .= 'value="Plot Degree of Difficulty" />'."\n";
$Ptr .= '</td><td align="left">';	$Ptr .= '</td><td align="left">';
$Ptr .= '<input type="submit" name="PercentWrongGraph" ';	$Ptr .= '<input type="submit" name="PercentWrongGraph" ';
$Ptr .= 'value="Percent Wrong" />'."\n";	$Ptr .= 'value="Plot Percent Wrong" />'."\n";
$Ptr .= '</td></tr><tr><td></td><td>'."\n";	$Ptr .= '</td></tr><tr><td></td><td>'."\n";
$Ptr .= '<input type="submit" name="SortProblems" ';	$Ptr .= '<input type="submit" name="SortProblems" ';
if($sortProblems eq 'Sort All Problems') {	if($sortProblems eq 'Sort All Problems') {
Line 811 sub CalculateStatistics {	Line 811 sub CalculateStatistics {
'___difficulty'}=$data->{$_.':degreeOfDifficulty'};	'___difficulty'}=$data->{$_.':degreeOfDifficulty'};
$cache->{$sequence.':source'} =~ /^(\w+)\/(\w+)/;	$cache->{$sequence.':source'} =~ /^(\w+)\/(\w+)/;
if($data->{$_.':studentCount'}) {	if($data->{$_.':studentCount'}) {
&Apache::lonnet::put('resevaldata',\%storestats,$1,$2);	&Apache::lonnet::put('nohist_resevaldata',\%storestats,$1,$2);
}	}
}	}