loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

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

version 1.106, 2004/12/02 21:53:33	version 1.107, 2004/12/03 21:53:59
Line 86 sub BuildProblemAnalysisPage {	Line 86 sub BuildProblemAnalysisPage {
#	#
# Support for numerical and radio response isn't complete enough to	# Support for numerical and radio response isn't complete enough to
# include in 1.2 release.	# include in 1.2 release.
# my $problem_types = '(option\|radiobutton\|numerical)';	my $problem_types = '(option\|radiobutton\|numerical)';
my $problem_types = '.';#(option)';	# my $problem_types = '.';#(option)';
if (exists($ENV{'form.problemchoice'}) &&	if (exists($ENV{'form.problemchoice'}) &&
! exists($ENV{'form.SelectAnother'})) {	! exists($ENV{'form.SelectAnother'})) {
foreach my $button (@SubmitButtons) {	foreach my $button (@SubmitButtons) {
Line 1176 sub OR_tries_analysis {	Line 1176 sub OR_tries_analysis {
my $mintries = 1;	my $mintries = 1;
my $maxtries = $ENV{'form.NumPlots'};	my $maxtries = $ENV{'form.NumPlots'};
my ($table,$Foils,$Concepts) = &build_foil_index($ORdata);	my ($table,$Foils,$Concepts) = &build_foil_index($ORdata);
	if (! defined($Concepts)) {
	$Concepts = [];
	}
my %response_data = &OR_analyze_by_tries($r,$PerformanceData,	my %response_data = &OR_analyze_by_tries($r,$PerformanceData,
$mintries,$maxtries);	$mintries,$maxtries);
my $analysis = '';	my $analysis = '';