version 1.88, 2004/02/12 14:47:55
|
version 1.89, 2004/02/12 16:29:00
|
Line 473 my @OutputDataOptions =
|
Line 473 my @OutputDataOptions =
|
sequence_sum => 1, |
sequence_sum => 1, |
sequence_max => 1, |
sequence_max => 1, |
grand_total => 1, |
grand_total => 1, |
|
summary_table => 1, |
shortdesc => 'Total Score and Maximum Possible for each '. |
shortdesc => 'Total Score and Maximum Possible for each '. |
'Sequence or Folder', |
'Sequence or Folder', |
longdesc => 'The score of each student as well as the '. |
longdesc => 'The score of each student as well as the '. |
Line 488 my @OutputDataOptions =
|
Line 489 my @OutputDataOptions =
|
sequence_sum => 1, |
sequence_sum => 1, |
sequence_max => 1, |
sequence_max => 1, |
grand_total => 1, |
grand_total => 1, |
|
summary_table => 1, |
shortdesc => 'Score on each Problem Part', |
shortdesc => 'Score on each Problem Part', |
longdesc =>'The students score on each problem part, computed as'. |
longdesc =>'The students score on each problem part, computed as'. |
'the part weight * part awarded', |
'the part weight * part awarded', |
Line 502 my @OutputDataOptions =
|
Line 504 my @OutputDataOptions =
|
sequence_sum => 0, |
sequence_sum => 0, |
sequence_max => 0, |
sequence_max => 0, |
grand_total => 0, |
grand_total => 0, |
|
summary_table => 1, |
shortdesc => 'Number of Tries before success on each Problem Part', |
shortdesc => 'Number of Tries before success on each Problem Part', |
longdesc =>'The number of tries before success on each problem part.', |
longdesc =>'The number of tries before success on each problem part.', |
}, |
}, |
Line 515 my @OutputDataOptions =
|
Line 518 my @OutputDataOptions =
|
sequence_sum => 1, |
sequence_sum => 1, |
sequence_max => 1, |
sequence_max => 1, |
grand_total => 1, |
grand_total => 1, |
|
summary_table => 1, |
shortdesc => 'Number of Problem Parts completed successfully.', |
shortdesc => 'Number of Problem Parts completed successfully.', |
longdesc => 'The Number of Problem Parts completed successfully and '. |
longdesc => 'The Number of Problem Parts completed successfully and '. |
'the maximum possible for each student', |
'the maximum possible for each student', |
Line 616 sub html_initialize {
|
Line 620 sub html_initialize {
|
my $width=$Apache::lonstatistics::StudentData{$field}->{'width'}; |
my $width=$Apache::lonstatistics::StudentData{$field}->{'width'}; |
$Str .= $title.' 'x($width-$base).$padding; |
$Str .= $title.' 'x($width-$base).$padding; |
} |
} |
# Now the selected sequences need to be listed |
# |
|
# Compute the column widths and output the sequence titles |
foreach my $sequence (&Apache::lonstatistics::Sequences_with_Assess()){ |
foreach my $sequence (&Apache::lonstatistics::Sequences_with_Assess()){ |
my $title = $sequence->{'title'}; |
# |
my $base = $sequence->{'base_width'}; |
# Comptue column widths |
my $width = $sequence->{'width'}; |
$sequence->{'width_sum'} = 0; |
$Str .= $title.' 'x($width-$base).$padding; |
if ($chosen_output->{'sequence_sum'}) { |
|
# Use 3 digits for the sum |
|
$sequence->{'width_sum'} = 3; |
|
} |
|
if ($chosen_output->{'sequence_max'}) { |
|
if ($sequence->{'width_sum'}>0) { |
|
# One digit for the '/' |
|
$sequence->{'width_sum'} +=1; |
|
} |
|
# Use 3 digits for the total |
|
$sequence->{'width_sum'}+=3; |
|
} |
|
if ($chosen_output->{'every_problem'}) { |
|
# one problem per digit |
|
$sequence->{'width_problem'} = $sequence->{'num_assess_parts'}; |
|
} else { |
|
$sequence->{'width_problem'} = 0; |
|
} |
|
$sequence->{'width_total'} = $sequence->{'width_problem'} + |
|
$sequence->{'width_sum'}; |
|
if ($sequence->{'width_total'} < length($sequence->{'title'})) { |
|
$sequence->{'width_total'} = length($sequence->{'title'}); |
|
$sequence->{'width_problem'} = |
|
$sequence->{'width_total'} - $sequence->{'width_sum'}; |
|
} |
|
# |
|
# Output the sequence titles |
|
$Str .= |
|
$sequence->{'title'}.' 'x($sequence->{'width_total'}- |
|
length($sequence->{'title'}) |
|
).$padding; |
} |
} |
$Str .= "total</pre>\n"; |
$Str .= "total</pre>\n"; |
$Str .= "<pre>"; |
$Str .= "<pre>"; |
Line 675 sub html_outputstudent {
|
Line 710 sub html_outputstudent {
|
&StudentPerformanceOnSequence($student,\%StudentsData, |
&StudentPerformanceOnSequence($student,\%StudentsData, |
$seq,$show_links); |
$seq,$show_links); |
} |
} |
my $ratio = sprintf("%3d",$score).'/'.sprintf("%3d",$seq_max); |
my $ratio=''; |
# |
|
if ($chosen_output->{'sequence_sum'}) { |
if ($chosen_output->{'sequence_sum'}) { |
$performance = $ratio; |
$ratio .= sprintf("%3d",$score); |
$performance .= ' 'x($seq->{'width'}-length($ratio)); |
} |
} else { |
if ($chosen_output->{'sequence_max'}) { |
# Pad with extra spaces |
if ($chosen_output->{'sequence_sum'}) { |
$performance .= ' 'x($seq->{'width'}-$performance_length- |
$ratio .= '/'; |
length($ratio) |
} |
).$ratio; |
$ratio .= sprintf("%3d",$seq_max); |
|
} |
|
# |
|
if (! $chosen_output->{'every_problem'}) { |
|
$performance = ''; |
} |
} |
|
$performance .= ' 'x($seq->{'width_problem'}-$performance_length). |
|
$ratio; |
# |
# |
$Str .= $performance.$padding; |
$Str .= $performance.$padding; |
# |
# |