version 1.94, 2004/02/02 21:45:12
|
version 1.95, 2004/02/12 16:29:00
|
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; |
} |
} |
|
|