loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

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

Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.82 and 1.85

version 1.82, 2004/03/22 17:25:27	version 1.85, 2004/06/04 21:42:18
Line 51 my @SubmitButtons = ({ name => 'PrevProb	Line 51 my @SubmitButtons = ({ name => 'PrevProb
{ name => 'NextProblemAnalysis',	{ name => 'NextProblemAnalysis',
text => 'Next Problem' },	text => 'Next Problem' },
{ name => 'break'},	{ name => 'break'},
{ name => 'ClearCache',
text => 'Clear Caches' },
{ name => 'updatecaches',
text => 'Update Student Data' },
{ name => 'SelectAnother',	{ name => 'SelectAnother',
text => 'Choose a different Problem' },	text => 'Choose a different Problem' },
{ name => 'ExcelOutput',	{ name => 'ExcelOutput',
Line 85 sub BuildProblemAnalysisPage {	Line 81 sub BuildProblemAnalysisPage {
$r->print('<h2>There are no students in the sections selected</h2>');	$r->print('<h2>There are no students in the sections selected</h2>');
}	}
#	#
&Apache::loncoursedata::clear_internal_caches();	my @CacheButtonHTML =
if (exists($ENV{'form.ClearCache'}) \|\|	&Apache::lonstathelpers::manage_caches($r,'Statistics','stats_status');
exists($ENV{'form.updatecaches'}) \|\|
(exists($ENV{'form.firstanalysis'}) &&
$ENV{'form.firstanalysis'} ne 'no')) {
&Apache::lonstatistics::Gather_Full_Student_Data($r);
}
if (! exists($ENV{'form.firstanalysis'})) {
$r->print('<input type="hidden" name="firstanalysis" value="yes" />');
} else {
$r->print('<input type="hidden" name="firstanalysis" value="no" />');
}
$r->rflush();	$r->rflush();
#	#
my $problem_types = '(option\|radiobutton\|numerical)';	my $problem_types = '(option\|radiobutton\|numerical)';
Line 111 sub BuildProblemAnalysisPage {	Line 97 sub BuildProblemAnalysisPage {
$r->print(' 'x5);	$r->print(' 'x5);
}	}
}	}
	foreach my $html (@CacheButtonHTML) {
	$r->print($html.(' 'x5));
	}
#	#
$r->print('<hr />');	$r->print('<hr />');
$r->rflush();	$r->rflush();
Line 230 sub NumericalResponseAnalysis {	Line 219 sub NumericalResponseAnalysis {
}	}
#	#
# This next call causes all the waiting around that people complain about	# This next call causes all the waiting around that people complain about
my ($max,$min) = &Apache::lonstathelpers::GetStudentAnswers($r,$problem,	my ($max,$min) =
$Students);	&Apache::lonstathelpers::GetStudentAnswers($r,$problem,$Students,
	'Statistics',
	'stats_status');
return if ($c->aborted());	return if ($c->aborted());
#	#
# Collate the data	# Collate the data
Line 1320 sub build_foil_index {	Line 1311 sub build_foil_index {
if (@Concepts > 1) {	if (@Concepts > 1) {
$table .= '<tr>'.	$table .= '<tr>'.
'<td>'.$conceptindex.'</td>'.	'<td>'.$conceptindex.'</td>'.
'<td>'.&HTML::Entities::encode($concept->{'name'}).'</td>'.	'<td>'.&HTML::Entities::encode($concept->{'name'},'<>&"').'</td>'.
'<td>'.$foilindex++.'</td>'.	'<td>'.$foilindex++.'</td>'.
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).'</td>'.	'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').'</td>'.
'<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.	'<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'}).'</td>'.	'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'},'<>&"').'</td>'.
"</tr>\n";	"</tr>\n";
} else {	} else {
$table .= '<tr>'.	$table .= '<tr>'.
'<td>'.$foilindex++.'</td>'.	'<td>'.$foilindex++.'</td>'.
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'}).'</td>'.	'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'name'},'<>&"').'</td>'.
'<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.	'<td>'.$Foildata{$firstfoil}->{'text'}.'</td>'.
'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'}).'</td>'.	'<td>'.&HTML::Entities::encode($Foildata{$firstfoil}->{'value'},'<>&"').'</td>'.
"</tr>\n";	"</tr>\n";
}	}
foreach my $foilid (@FoilsInConcept) {	foreach my $foilid (@FoilsInConcept) {
Line 1340 sub build_foil_index {	Line 1331 sub build_foil_index {
'<td></td>'.	'<td></td>'.
'<td></td>'.	'<td></td>'.
'<td>'.$foilindex.'</td>'.	'<td>'.$foilindex.'</td>'.
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).'</td>'.	'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').'</td>'.
'<td>'.$Foildata{$foilid}->{'text'}.'</td>'.	'<td>'.$Foildata{$foilid}->{'text'}.'</td>'.
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'}).'</td>'.	'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'},'<>&"').'</td>'.
"</tr>\n";	"</tr>\n";
} else {	} else {
$table .= '<tr>'.	$table .= '<tr>'.
'<td>'.$foilindex.'</td>'.	'<td>'.$foilindex.'</td>'.
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'}).'</td>'.	'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'name'},'<>&"').'</td>'.
'<td>'.$Foildata{$foilid}->{'text'}.'</td>'.	'<td>'.$Foildata{$foilid}->{'text'}.'</td>'.
'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'}).'</td>'.	'<td>'.&HTML::Entities::encode($Foildata{$foilid}->{'value'},'<>&"').'</td>'.
"</tr>\n";	"</tr>\n";
}	}
} continue {	} continue {
Line 1374 sub build_option_index {	Line 1365 sub build_option_index {
'<tr>'.	'<tr>'.
'<td bgcolor="'.$plotcolors->[$optionindex++].'">'.	'<td bgcolor="'.$plotcolors->[$optionindex++].'">'.
(' 'x4).'</td>'.	(' 'x4).'</td>'.
'<td>'.&HTML::Entities::encode($option).'</td>'.	'<td>'.&HTML::Entities::encode($option,'<>&"').'</td>'.
"</tr>\n");	"</tr>\n");
}	}
shift(@Rows); # Throw away 'correct option chosen' color	shift(@Rows); # Throw away 'correct option chosen' color
Line 1468 sub CreateInterface {	Line 1459 sub CreateInterface {
$Str .= '</select></nobr><br />';	$Str .= '</select></nobr><br />';
}	}
{	{
$Str .= '<br /><nobr>'.&mt('Number of Plots:');	$Str .= '<nobr>'.&mt('Number of Plots:');
$Str .= &Apache::loncommon::help_open_topic	$Str .= &Apache::loncommon::help_open_topic
('Analysis_num_plots');	('Analysis_num_plots');
$Str .= '<select name="NumPlots">';	$Str .= '<select name="NumPlots">';
Line 1482 sub CreateInterface {	Line 1473 sub CreateInterface {
if ($ENV{'form.NumPlots'} == $i) { $Str.=' selected '; }	if ($ENV{'form.NumPlots'} == $i) { $Str.=' selected '; }
$Str .= '>'.$i.'</option>';	$Str .= '>'.$i.'</option>';
}	}
$Str .= '</select></nobr>';	$Str .= '</select></nobr><br />';
	}
	{
	$Str .= '<nobr>'.&mt('Status: [_1]',
	'<input type="text" '.
	'name="stats_status" size="60" value="" />'
	).
	'</nobr><br />';
}	}
}	}
$Str .= '</td>';	$Str .= '</td>';

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.82
changed lines
	Added in v.1.85