version 1.62, 2003/02/28 21:19:53
|
version 1.64, 2003/03/07 18:46:38
|
Line 235 sub PrepareClasslist {
|
Line 235 sub PrepareClasslist {
|
@StudentDataOrder = qw/fullname username domain id section status/; |
@StudentDataOrder = qw/fullname username domain id section status/; |
foreach my $field (@StudentDataOrder) { |
foreach my $field (@StudentDataOrder) { |
$StudentData{$field}->{'title'} = $field; |
$StudentData{$field}->{'title'} = $field; |
$StudentData{$field}->{'base_width'} = |
$StudentData{$field}->{'base_width'} = length($field); |
scalar (my @Tmp = split(//,$field)); |
|
$StudentData{$field}->{'width'} = |
$StudentData{$field}->{'width'} = |
$StudentData{$field}->{'base_width'}; |
$StudentData{$field}->{'base_width'}; |
} |
} |
Line 251 sub PrepareClasslist {
|
Line 250 sub PrepareClasslist {
|
$studenthash->{$field}=$student_data->[$i]; |
$studenthash->{$field}=$student_data->[$i]; |
# Keep track of the width of the fields |
# Keep track of the width of the fields |
next if (! exists($StudentData{$field})); |
next if (! exists($StudentData{$field})); |
my $length = scalar(my @Tmp1 = split(//,$student_data->[$i])); |
my $length = length($student_data->[$i]); |
if ($StudentData{$field}->{'width'} < $length) { |
if ($StudentData{$field}->{'width'} < $length) { |
$StudentData{$field}->{'width'} = $length; |
$StudentData{$field}->{'width'} = $length; |
} |
} |
Line 437 sub SetSelectedMaps {
|
Line 436 sub SetSelectedMaps {
|
} |
} |
} |
} |
|
|
|
|
|
####################################################### |
|
####################################################### |
|
|
|
=pod |
|
|
|
=item &Sequences_with_Assess() |
|
|
|
Returns an array containing the subset of @Sequences which contain |
|
assessments. |
|
|
|
=cut |
|
|
|
####################################################### |
|
####################################################### |
|
sub Sequences_with_Assess { |
|
my @Sequences_to_Show; |
|
foreach my $map_symb (@SelectedMaps) { |
|
foreach my $sequence (@Sequences) { |
|
next if ($sequence->{'symb'} ne $map_symb && $map_symb ne 'all'); |
|
next if ($sequence->{'num_assess'} < 1); |
|
push (@Sequences_to_Show,$sequence); |
|
} |
|
} |
|
return @Sequences_to_Show; |
|
} |
|
|
####################################################### |
####################################################### |
####################################################### |
####################################################### |
|
|
Line 464 sub PrepareCourseData {
|
Line 490 sub PrepareCourseData {
|
# |
# |
# Compute column widths |
# Compute column widths |
foreach my $seq (@Sequences) { |
foreach my $seq (@Sequences) { |
my $name_length = scalar(my @Tmp1 = split(//,$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: |
# The number of columns needed for the summation text: |
# " 1/5" = 1+3 columns, " 10/99" = 1+5 columns |
# " 1/5" = 1+3 columns, " 10/99" = 1+5 columns |
my $sum_length = 1+1+2*(scalar(my @Tmp2 = split(//,$num_parts))); |
my $sum_length = 1+1+2*(length($num_parts)); |
my $num_col = $num_parts+$sum_length; |
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 1252 sub CreateMainMenu {
|
Line 1278 sub CreateMainMenu {
|
my $Str = ''; |
my $Str = ''; |
|
|
$Str .= '<table border="0"><tbody><tr>'."\n"; |
$Str .= '<table border="0"><tbody><tr>'."\n"; |
$Str .= '<td></td><td></td>'."\n"; |
$Str .= '<td></td>'."\n"; |
$Str .= '<td align="center"><b>Select a Report</b></td>'."\n"; |
$Str .= '<td align="center"><b>Select a Report</b></td>'."\n"; |
$Str .= '<td align="center"><b>Student Status</b></td></tr>'."\n"; |
$Str .= '<td align="center"><b>Student Status</b></td></tr>'."\n"; |
$Str .= '<tr>'."\n"; |
$Str .= '<tr>'."\n"; |
$Str .= '<td align="center"><input type="submit" name="Refresh" '; |
$Str .= '<td align="center"><input type="submit" name="Refresh" '; |
$Str .= 'value="Refresh" /></td>'."\n"; |
$Str .= 'value="Update Display" /></td>'."\n"; |
$Str .= '<td align="center"><input type="submit" name="DownloadAll" '; |
|
$Str .= 'value="Update All Student Data" /></td>'."\n"; |
|
$Str .= '<td align="center">'; |
$Str .= '<td align="center">'; |
$Str .= '<select name="reportSelected" onchange="document.'; |
$Str .= '<select name="reportSelected" onchange="document.'; |
$Str .= 'Statistics.submit()">'."\n"; |
$Str .= 'Statistics.submit()">'."\n"; |