loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

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

version 1.137, 2009/04/21 13:28:23	version 1.139, 2010/06/10 16:14:39
Line 663 sub numerical_determine_answers {	Line 663 sub numerical_determine_answers {
}	}
$answers{$correct->{$sname.':'.$sdom}{'answer'}}++;	$answers{$correct->{$sname.':'.$sdom}{'answer'}}++;
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,	&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state,
&mt('last student'));	'last student');
}	}
&Apache::lonstathelpers::write_analysis_cache();	&Apache::lonstathelpers::write_analysis_cache();
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);	&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
Line 1901 sub CreateInterface {	Line 1901 sub CreateInterface {
#	#
##	##
##	##
$Str .= '<td align="right" valign="top">';	$Str .= '<td valign="top">';
##	##
my $showprob_checkbox =	my $showprob_checkbox =
'<input type="checkbox" name="show_prob" value="true" ';	'<input type="checkbox" name="show_prob" value="true"';
if ($env{'form.show_prob'} eq 'true') {	if ($env{'form.show_prob'} eq 'true') {
$showprob_checkbox .= 'checked="checked" ';	$showprob_checkbox .= ' checked="checked"';
}	}
$showprob_checkbox.= ' />';	$showprob_checkbox.= ' />';
$Str.= '<span class="LC_nobreak"><label>'.	$Str.= '<span class="LC_nobreak"><label>'.
&mt('Show problem').' '.$showprob_checkbox.	$showprob_checkbox.' '.&mt('Show problem').
'</label></span><br />';	'</label></span><br />';
##	##
my $analyze_selector = '<select name="AnalyzeOver" >';	my $analyze_selector = '<select name="AnalyzeOver" >';