loncom/interface/statistics/lonproblemstatistics.pm - diff

Return to lonproblemstatistics.pm CVS log

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

Diff for /loncom/interface/statistics/lonproblemstatistics.pm between versions 1.56 and 1.68

version 1.56, 2003/08/27 21:33:33	version 1.68, 2004/02/20 16:38:49
Line 51 package Apache::lonproblemstatistics;	Line 51 package Apache::lonproblemstatistics;

use strict;	use strict;
use Apache::lonnet();	use Apache::lonnet();
	use Apache::loncommon();
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
use Apache::loncoursedata;	use Apache::loncoursedata;
use Apache::lonstatistics;	use Apache::lonstatistics;
	use Apache::lonlocal;
use Spreadsheet::WriteExcel;	use Spreadsheet::WriteExcel;

	##
	## Localization notes:
	##
	## in @Fields[0]->{'long_title'} is placed in Excel files and is used as the
	## header for plots created with Graph.pm, both of which more than likely do
	## not support localization.
	##
my @Fields = (	my @Fields = (
{ name => 'problem_num',	{ name => 'problem_num',
title => 'P#',	title => 'P#',
Line 138 my @Fields = (	Line 147 my @Fields = (
title => '#YES',	title => '#YES',
align => 'right',	align => 'right',
color => '#FFDDDD',	color => '#FFDDDD',
format => '%d',	format => '%4.1f',# format => '%d',
sortable => 'yes',	sortable => 'yes',
graphable => 'yes',	graphable => 'yes',
long_title => 'Number of Students able to Solve' },	long_title => 'Number of Students able to Solve' },
Line 146 my @Fields = (	Line 155 my @Fields = (
title => '#yes',	title => '#yes',
align => 'right',	align => 'right',
color => '#FFDDDD',	color => '#FFDDDD',
format => '%d',	format => '%4.1f',# format => '%d',
sortable => 'yes',	sortable => 'yes',
graphable => 'yes',	graphable => 'yes',
long_title => 'Number of Students given Override' },	long_title => 'Number of Students given Override' },
Line 174 select sections, maps, and output.	Line 183 select sections, maps, and output.

###############################################	###############################################
###############################################	###############################################
sub CreateInterface {
my $Str = '';
$Str .= '<table cellspacing="5">'."\n";
$Str .= '<tr>';
$Str .= '<td align="center"><b>Sections</b></td>';
$Str .= '<td align="center"><b>Enrollment Status</b></td>';
$Str .= '<td align="center"><b>Sequences and Folders</b></td>';
$Str .= '<td align="center"><b>Output</b></td>';
$Str .= '</tr>'."\n";
#
$Str .= '<tr><td align="center">'."\n";
$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
$Str .= '</td><td align="center">';
$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);
$Str .= '</td><td align="center">';
#
my $only_seq_with_assessments = sub {
my $s=shift;
if ($s->{'num_assess'} < 1) {
return 0;
} else {
return 1;
}
};
$Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5,
$only_seq_with_assessments);
$Str .= '</td><td>'."\n";
$Str .= &CreateAndParseOutputSelector();
$Str .= '</td></tr>'."\n";
$Str .= '</table>'."\n";
$Str .= '<input type="submit" value="Generate Statistics" />';
$Str .= ' 'x5;
$Str .= '<input type="submit" name="ClearCache" value="Clear Caches" />';
$Str .= ' 'x5;
return $Str;
}

#######################################################
#######################################################

=pod

=item &CreateAndParseOutputSelector()

Construct a selection list of options for output and parse output selections.
The current output selected is indicated by the values of the two package
variables $output_mode and $show. @OutputOptions holds the descriptions of
the output options and the values for $output_mode and $show.

Based on code from lonstudentassessment.pm.

=cut

#######################################################
#######################################################
my $output_mode;
my $show;

my @OutputOptions =	my @OutputOptions =
(	(
{ name => 'problem statistics grouped by sequence',	{ name => 'problem statistics grouped by sequence',
Line 255 my @OutputOptions =	Line 206 my @OutputOptions =
},	},
);	);

sub OutputDescriptions {	sub CreateInterface {
my $Str = '';
$Str .= "<h2>Output Modes</h2>\n";
$Str .= "<dl>\n";
foreach my $outputmode (@OutputOptions) {
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n";
$Str .=" <dd>".$outputmode->{'description'}."</dd>\n";
}
$Str .= "</dl>\n";
return $Str;
}

sub CreateAndParseOutputSelector {
my $Str = '';	my $Str = '';
my $elementname = 'statsoutputmode';	$Str .= &Apache::lonhtmlcommon::breadcrumbs
#	(undef,&mt('Overall Problem Statistics'),'Statistics_Overall_Key');
# Format for output options is 'mode, restrictions';	$Str .= '<table cellspacing="5">'."\n";
my $selected = 'HTML problem statistics grouped';	$Str .= '<tr>';
if (exists($ENV{'form.'.$elementname})) {	$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>';
if (ref($ENV{'form.'.$elementname} eq 'ARRAY')) {	$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>';
$selected = $ENV{'form.'.$elementname}->[0];	$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>';
} else {	$Str .= '<td align="center"><b>'.&mt('Output').'</b></td>';
$selected = $ENV{'form.'.$elementname};	$Str .= '</tr>'."\n";
}
}
#	#
# Set package variables describing output mode	$Str .= '<tr><td align="center">'."\n";
$output_mode = 'html';	$Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5);
$show = 'all';	$Str .= '</td><td align="center">';
foreach my $option (@OutputOptions) {	$Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5);
next if ($option->{'value'} ne $selected);	$Str .= '</td><td align="center">';
$output_mode = $option->{'mode'};
$show = $option->{'show'};
}
#	#
# Build the form element	my $only_seq_with_assessments = sub {
$Str = qq/<select size="5" name="$elementname">/;	my $s=shift;
foreach my $option (@OutputOptions) {	if ($s->{'num_assess'} < 1) {
if (exists($option->{'special'}) &&	return 0;
$option->{'special'} =~ /do not show/) {	} else {
next;	return 1;
}	}
$Str .= "\n".' <option value="'.$option->{'value'}.'"';	};
$Str .= " selected " if ($option->{'value'} eq $selected);	$Str .= &Apache::lonstatistics::MapSelect('Maps','multiple,all',5,
$Str .= ">".$option->{'name'}."<\/option>";	$only_seq_with_assessments);
}	$Str .= '</td><td>'."\n";
$Str .= "\n</select>";	my ($html,$outputmode,$show) =
return $Str;	&Apache::lonstatistics::CreateAndParseOutputSelector(
	'statsoutputmode',
	'HTML problem statistics grouped',
	@OutputOptions);
	$Str .= $html;
	$Str .= '</td></tr>'."\n";
	$Str .= '</table>'."\n";
	$Str .= '<input type="submit" name="GenerateStatistics" value="'.
	&mt('Generate Statistics').'" />';
	$Str .= ' 'x5;
	$Str .= '<input type="submit" name="ClearCache" value="'.
	&mt('Clear Caches').'" />';
	$Str .= ' 'x5;
	return ($Str,$outputmode,$show);
}	}

###############################################	###############################################
Line 321 Main interface to problem statistics.	Line 268 Main interface to problem statistics.
sub BuildProblemStatisticsPage {	sub BuildProblemStatisticsPage {
my ($r,$c)=@_;	my ($r,$c)=@_;
#	#
$output_mode = 'html';	my %Saveable_Parameters = ('Status' => 'scalar',
$show = 'grouped';	'statsoutputmode' => 'scalar',
	'Section' => 'array',
	'StudentData' => 'array',
	'Maps' => 'array');
	&Apache::loncommon::store_course_settings('statistics',
	\%Saveable_Parameters);
	&Apache::loncommon::restore_course_settings('statistics',
	\%Saveable_Parameters);
#	#
$r->print(&CreateInterface());	&Apache::lonstatistics::PrepareClasslist();
	#
	my ($interface,$output_mode,$show) = &CreateInterface();
	$r->print($interface);
$r->print('<input type="hidden" name="statsfirstcall" value="no" />');	$r->print('<input type="hidden" name="statsfirstcall" value="no" />');
$r->print('<input type="hidden" name="sortby" value="'.$ENV{'form.sortby'}.	$r->print('<input type="hidden" name="sortby" value="'.$ENV{'form.sortby'}.
'" />');	'" />');
Line 348 sub BuildProblemStatisticsPage {	Line 305 sub BuildProblemStatisticsPage {
&output_html_ungrouped($r);	&output_html_ungrouped($r);
}	}
} elsif ($output_mode eq 'excel') {	} elsif ($output_mode eq 'excel') {
$r->print("<h2>Preparing Excel Spreadsheet</h2>");	$r->print('<h2>'.&mt('Preparing Excel Spreadsheet').'</h2>');
&output_excel($r);	&output_excel($r);
} else {	} else {
$r->print("<h1>Not implemented</h1>");	$r->print('<h1>'.&mt('Not implemented').'</h1>');
}	}
return;	return;
}	}
Line 558 sub output_excel {	Line 515 sub output_excel {
# Check for errors	# Check for errors
if (! defined($excel_workbook)) {	if (! defined($excel_workbook)) {
$r->log_error("Error creating excel spreadsheet $filename: $!");	$r->log_error("Error creating excel spreadsheet $filename: $!");
$r->print("Problems creating new Excel file. ".	$r->print(&mt("Problems creating new Excel file. ".
"This error has been logged. ".	"This error has been logged. ".
"Please alert your LON-CAPA administrator");	"Please alert your LON-CAPA administrator."));
return ;	return ;
}	}
#	#
Line 575 sub output_excel {	Line 532 sub output_excel {
if (length($sheetname) > 31) {	if (length($sheetname) > 31) {
$sheetname = substr($sheetname,0,31);	$sheetname = substr($sheetname,0,31);
}	}
$excel_sheet = $excel_workbook->addworksheet($sheetname);	$excel_sheet = $excel_workbook->addworksheet(
	&Apache::loncommon::clean_excel_name($sheetname)
	);
#	#
# Put the course description in the header	# Put the course description in the header
$excel_sheet->write($rows_output,$cols_output++,	$excel_sheet->write($rows_output,$cols_output++,
Line 624 sub output_excel {	Line 583 sub output_excel {
# Brief headers	# Brief headers
foreach my $field (@Fields) {	foreach my $field (@Fields) {
next if ($field->{'name'} eq 'problem_num');	next if ($field->{'name'} eq 'problem_num');
	# Use english for excel as I am not sure how well excel handles
	# other character sets....
$excel_sheet->write($rows_output,$cols_output++,$field->{'title'});	$excel_sheet->write($rows_output,$cols_output++,$field->{'title'});
}	}
$rows_output++;	$rows_output++;
Line 657 sub output_excel {	Line 618 sub output_excel {
$excel_workbook->close();	$excel_workbook->close();
# Tell the user where to get their excel file	# Tell the user where to get their excel file
$r->print('<br />'.	$r->print('<br />'.
'<a href="'.$filename.'">Your Excel spreadsheet.</a>'."\n");	'<a href="'.$filename.'">'.
	&mt('Your Excel Spreadsheet').'</a>'."\n");
$r->rflush();	$r->rflush();
return;	return;
}	}
Line 713 sub statistics_table_header {	Line 675 sub statistics_table_header {
'document.Statistics.sortby.value='."'".$field->{'name'}."'".	'document.Statistics.sortby.value='."'".$field->{'name'}."'".
';document.Statistics.submit();">';	';document.Statistics.submit();">';
}	}
$header_row .= $field->{'title'};	$header_row .= &mt($field->{'title'});
if ($options =~ /sortable/) {	if ($options =~ /sortable/) {
$header_row.= '</a>';	$header_row.= '</a>';
}	}
Line 724 sub statistics_table_header {	Line 686 sub statistics_table_header {
$header_row .= '<a href="javascript:'.	$header_row .= '<a href="javascript:'.
"document.Statistics.plot.value='$field->{'name'}'".	"document.Statistics.plot.value='$field->{'name'}'".
';document.Statistics.submit();">';	';document.Statistics.submit();">';
$header_row .= 'plot</a>)';	$header_row .= &mt('plot').'</a>)';
}	}
$header_row .= '</th>';	$header_row .= '</th>';
}	}
Line 806 sub plot_statistics {	Line 768 sub plot_statistics {
}	}
}	}

$r->print("<p>".&DrawGraph(\@Data,$title,'Problem Number',$yaxis,	$r->print("<p>".&Apache::loncommon::DrawBarGraph($title,
$Max)."</p>\n");	'Problem Number',
	$yaxis,
	$Max,
	undef, # colors
	undef, # labels
	\@Data)."</p>\n");
#	#
# Print out the data	# Print out the data
$ENV{'form.sortby'} = 'Contents';	$ENV{'form.sortby'} = 'Contents';
Line 815 sub plot_statistics {	Line 782 sub plot_statistics {
return;	return;
}	}

###############################################
###############################################

=pod

=item &DrawGraph()

=cut

###############################################
###############################################
sub DrawGraph {
my ($values,$title,$xaxis,$yaxis,$Max)=@_;
$title = '' if (! defined($title));
$xaxis = '' if (! defined($xaxis));
$yaxis = '' if (! defined($yaxis));
#
my $sendValues = join(',', @$values);
my $sendCount = scalar(@$values);
$Max =1 if ($Max < 1);
if ( int($Max) < $Max ) {
$Max++;
$Max = int($Max);
}
my @GData = ($title,$xaxis,$yaxis,$Max,$sendCount,$sendValues);
return '<IMG src="/cgi-bin/graph.png?'.
(join('&', @GData)).'" border="1" />';
}

sub get_statistics {	sub get_statistics {
my ($sequence,$resource,$part,$problem_num) = @_;	my ($sequence,$resource,$part,$problem_num) = @_;
#	#
my $symb = $resource->{'symb'};	my $symb = $resource->{'symb'};
my $courseid = $ENV{'request.course.id'};	my $courseid = $ENV{'request.course.id'};
#	#
my $students = \@Apache::lonstatistics::Students;
if ($Apache::lonstatistics::SelectedSections[0] eq 'all') {
$students = undef;
}
my $data = &Apache::loncoursedata::get_problem_statistics	my $data = &Apache::loncoursedata::get_problem_statistics
($students,$symb,$part,$courseid);	(\@Apache::lonstatistics::SelectedSections,
	$Apache::lonstatistics::enrollment_status,
	$symb,$part,$courseid);
$data->{'part'} = $part;	$data->{'part'} = $part;
$data->{'problem_num'} = $problem_num;	$data->{'problem_num'} = $problem_num;
$data->{'container'} = $sequence->{'title'};	$data->{'container'} = $sequence->{'title'};
Line 873 sub get_statistics {	Line 809 sub get_statistics {

=item &ProblemStatisticsLegend()	=item &ProblemStatisticsLegend()

	HELP This needs to be localized, or at least generated automatically.

=cut	=cut

###############################################	###############################################

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

Removed from v.1.56
changed lines
	Added in v.1.68