version 1.41, 2003/03/09 18:53:06
|
version 1.44, 2003/03/27 19:22:31
|
Line 381 sub OutputDescriptions {
|
Line 381 sub OutputDescriptions {
|
|
|
sub CreateAndParseOutputSelector { |
sub CreateAndParseOutputSelector { |
my $Str = ''; |
my $Str = ''; |
my $elementname = 'outputmode'; |
my $elementname = 'chartoutputmode'; |
# |
# |
# Format for output options is 'mode, restrictions'; |
# Format for output options is 'mode, restrictions'; |
my $selected = 'html, with links'; |
my $selected = 'html, with links'; |
Line 596 sub StudentAverageTotal {
|
Line 596 sub StudentAverageTotal {
|
$Str .= '<table border=2 cellspacing="1">'."\n"; |
$Str .= '<table border=2 cellspacing="1">'."\n"; |
$Str .= "<tr><th>Title</th><th>Average</th><th>Maximum</th></tr>\n"; |
$Str .= "<tr><th>Title</th><th>Average</th><th>Maximum</th></tr>\n"; |
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
my $ave = int(100*($Statistics->{$seq->{'symb'}}->{'score'}/ |
my $ave; |
($num_students-$nodata_count)))/100; |
if ($num_students > $nodata_count) { |
|
$ave = int(100*($Statistics->{$seq->{'symb'}}->{'score'}/ |
|
($num_students-$nodata_count)))/100; |
|
} else { |
|
$ave = 0; |
|
} |
$total_ave += $ave; |
$total_ave += $ave; |
my $max = $seq->{'num_assess_parts'}; |
my $max = $seq->{'num_assess_parts'}; |
$total_max += $max; |
$total_max += $max; |
Line 1121 sub StudentPerformanceOnSequence {
|
Line 1126 sub StudentPerformanceOnSequence {
|
$symbol = ' '; |
$symbol = ' '; |
} |
} |
$sum++; |
$sum++; |
|
} elsif (exists($resource_data->{'resource.'. |
|
$partnum.'.tries'})){ |
|
$symbol = '.'; |
} else { |
} else { |
$symbol = ' '; |
$symbol = ' '; |
} |
} |