version 1.74, 2003/06/03 18:10:33
|
version 1.76, 2003/06/10 19:19:57
|
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 807 sub DisplayClasslist {
|
Line 805 sub DisplayClasslist {
|
my @Fields = ('fullname','username','domain','id','section'); |
my @Fields = ('fullname','username','domain','id','section'); |
# |
# |
my $Str=''; |
my $Str=''; |
|
# "Click" is asinine but it is probably not my place to change the world. |
|
$Str .= '<h2>Click on a users name to view their chart</h2>'; |
$Str .= '<table border="0"><tr><td bgcolor="#777777">'."\n"; |
$Str .= '<table border="0"><tr><td bgcolor="#777777">'."\n"; |
$Str .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n"; |
$Str .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n"; |
foreach my $field (@Fields) { |
foreach my $field (@Fields) { |
Line 858 sub CreateMainMenu {
|
Line 858 sub CreateMainMenu {
|
my $Str = ''; |
my $Str = ''; |
# |
# |
$Str .= '<table border="0"><tbody><tr>'."\n"; |
$Str .= '<table border="0"><tbody><tr>'."\n"; |
$Str .= '<td></td>'."\n"; |
$Str .= '<td align="center"><b>Report:</b></td>'."\n"; |
$Str .= '<td align="center"><b>Select a Report</b></td>'."\n"; |
|
$Str .= '<td></td>'."\n"; |
|
$Str .= '<td></td>'."\n"; |
|
$Str .= '<tr>'."\n"; |
|
# |
|
$Str .= '<td align="center">'. |
|
'<input type="submit" name="Refresh" value="Update Display" />'. |
|
"</td>\n"; |
|
# |
|
$Str .= '<td align="center">'; |
$Str .= '<td align="center">'; |
$Str .= '<select name="reportSelected" >'."\n"; |
$Str .= '<select name="reportSelected" '. |
|
'onchange="document.Statistics.submit()">'."\n"; |
foreach (sort(keys(%$reports))) { |
foreach (sort(keys(%$reports))) { |
$Str .= '<option value="'.$_.'"'; |
$Str .= '<option value="'.$_.'"'; |
if($current eq $_) { |
if($current eq $_) { |