loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.94, 2004/02/02 21:45:12	version 1.96, 2004/02/12 22:23:30
Line 503 sub PrepareCourseData {	Line 503 sub PrepareCourseData {
$top_map = $top if (ref($top));	$top_map = $top if (ref($top));
@Sequences = @{$sequences} if (ref($sequences) eq 'ARRAY');	@Sequences = @{$sequences} if (ref($sequences) eq 'ARRAY');
@Assessments = @{$assessments} if (ref($assessments) eq 'ARRAY');	@Assessments = @{$assessments} if (ref($assessments) eq 'ARRAY');
#
# Compute column widths
foreach my $seq (@Sequences) {
my $name_length = length($seq->{'title'});
my $num_parts = $seq->{'num_assess_parts'};
#
# Use 3 digits for each the sum and total, which means 7 total...
my $num_col = $num_parts+7;
if ($num_col < $name_length) {
$num_col = $name_length;
}
$seq->{'base_width'} = $name_length;
$seq->{'width'} = $num_col;
}
return;	return;
}	}

Line 1109 sub handler {	Line 1095 sub handler {
'SelectedStudent']);	'SelectedStudent']);
#	#
# Give the LON-CAPA page header	# Give the LON-CAPA page header
$r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts').	$r->print('<html><head><title>'.
	&mt('Course Statistics and Charts').
	"</title></head>\n".
	&Apache::loncommon::bodytag('Course Statistics and Charts')."\n".
&Apache::loncommon::help_open_faq(139).	&Apache::loncommon::help_open_faq(139).
&Apache::loncommon::help_open_bug('Statistics and Charts'));	&Apache::loncommon::help_open_bug('Statistics and Charts'));
$r->rflush();	$r->rflush();