version 1.73, 2003/05/29 21:44:53
|
version 1.75, 2003/06/10 18:22:17
|
Line 519 sub PrepareCourseData {
|
Line 519 sub PrepareCourseData {
|
my $name_length = length($seq->{'title'}); |
my $name_length = length($seq->{'title'}); |
my $num_parts = $seq->{'num_assess_parts'}; |
my $num_parts = $seq->{'num_assess_parts'}; |
# |
# |
# The number of columns needed for the summation text: |
# Use 3 digits for each the sum and total, which means 7 total... |
# " 1/5" = 1+3 columns, " 10/99" = 1+5 columns |
my $num_col = $num_parts+7; |
my $sum_length = 1+1+2*(length($num_parts)); |
|
my $num_col = $num_parts+$sum_length; |
|
if ($num_col < $name_length) { |
if ($num_col < $name_length) { |
$num_col = $name_length; |
$num_col = $name_length; |
} |
} |
Line 976 END
|
Line 974 END
|
my %reports = ('classlist' => 'Class list', |
my %reports = ('classlist' => 'Class list', |
'problem_statistics' => 'Problem Statistics', |
'problem_statistics' => 'Problem Statistics', |
'student_assessment' => 'Problem Status Chart', |
'student_assessment' => 'Problem Status Chart', |
'percentage' => 'Correct-problems Plot', |
# 'percentage' => 'Correct-problems Plot', |
'option_response' => 'Option Response Analysis', |
# 'option_response' => 'Option Response Analysis', |
# 'activitylog' => 'Activity Log', |
# 'activitylog' => 'Activity Log', |
); |
); |
$r->print(&CreateMainMenu($ENV{'form.status'}, |
$r->print(&CreateMainMenu($ENV{'form.status'}, |