version 1.37, 2003/03/06 22:45:04
|
version 1.39, 2003/03/07 17:01:45
|
Line 305 my @OutputOptions =
|
Line 305 my @OutputOptions =
|
{ name => 'HTML, totals', |
{ name => 'HTML, totals', |
value => 'html, totals', |
value => 'html, totals', |
description => 'Output HTML, but only the summary statistics for each'. |
description => 'Output HTML, but only the summary statistics for each'. |
' sequence selected.', |
' sequence selected for each student.', |
mode => 'html', |
mode => 'html', |
show => 'totals', |
show => 'totals', |
show_links => 'no', |
show_links => 'no', |
}, |
}, |
|
{ name => 'HTML, summary table only', |
|
value => 'html summary table only', |
|
description => 'Output HTML, but only the final summary table for '. |
|
'all students across all sequences.', |
|
mode => 'html', |
|
show => 'final table', |
|
show_links => 'no', |
|
}, |
{ name => 'Excel, scores only', |
{ name => 'Excel, scores only', |
value => 'excel, scores only', |
value => 'excel, scores only', |
description => 'Output an Excel file (compatable with Excel 95), '. |
description => 'Output an Excel file (compatable with Excel 95), '. |
Line 446 Return a line of the chart for a student
|
Line 454 Return a line of the chart for a student
|
my $padding; |
my $padding; |
my $count; |
my $count; |
|
|
|
my $nodata_count; # The number of students for which there is no data |
|
my %prog_state; # progress state used by loncommon PrgWin routines |
|
|
sub html_initialize { |
sub html_initialize { |
my ($r) = @_; |
my ($r) = @_; |
# |
# |
$padding = ' 'x3; |
$padding = ' 'x3; |
$count = 0; |
$count = 0; |
|
$nodata_count = 0; |
|
# |
|
$r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}. |
|
" ".localtime(time)."</h3>"); |
|
|
# |
# |
|
# Set up progress window for 'final table' display only |
|
if ($show eq 'final table') { |
|
my $studentcount = scalar(@Apache::lonstatistics::Students); |
|
%prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
|
($r,'Summary Table Status', |
|
'Summary Table Compilation Progress', $studentcount); |
|
} |
my $Str = "<pre>\n"; |
my $Str = "<pre>\n"; |
# First, the @StudentData fields need to be listed |
# First, the @StudentData fields need to be listed |
my @to_show = &get_student_fields_to_show(); |
my @to_show = &get_student_fields_to_show(); |
Line 470 sub html_initialize {
|
Line 493 sub html_initialize {
|
} |
} |
$Str .= "total (of shown problems)</pre>\n"; |
$Str .= "total (of shown problems)</pre>\n"; |
$Str .= "<pre>"; |
$Str .= "<pre>"; |
|
# |
|
# Check for suppression of output |
|
if ($show eq 'final table') { |
|
$Str = ''; |
|
} |
$r->print($Str); |
$r->print($Str); |
$r->rflush(); |
$r->rflush(); |
return; |
return; |
Line 499 sub html_outputstudent {
|
Line 527 sub html_outputstudent {
|
%StudentsData = @tmp; |
%StudentsData = @tmp; |
} |
} |
if (scalar(@tmp) < 1) { |
if (scalar(@tmp) < 1) { |
|
$nodata_count++; |
|
return if ($show eq 'final table'); |
$Str .= '<font color="blue">No Course Data</font>'."\n"; |
$Str .= '<font color="blue">No Course Data</font>'."\n"; |
$r->print($Str); |
$r->print($Str); |
$r->rflush(); |
$r->rflush(); |
Line 543 sub html_outputstudent {
|
Line 573 sub html_outputstudent {
|
} |
} |
$Str .= ' '.' 'x(length($max)-length($score)).$score.'/'.$max; |
$Str .= ' '.' 'x(length($max)-length($score)).$score.'/'.$max; |
$Str .= " \n"; |
$Str .= " \n"; |
|
# |
|
# Check for suppressed output and update the progress window if so... |
|
if ($show eq 'final table') { |
|
$Str = ''; |
|
&Apache::lonhtmlcommon::Increment_PrgWin($r,\%prog_state, |
|
'last student'); |
|
} |
|
# |
$r->print($Str); |
$r->print($Str); |
# |
# |
$r->rflush(); |
$r->rflush(); |
Line 551 sub html_outputstudent {
|
Line 589 sub html_outputstudent {
|
|
|
sub html_finish { |
sub html_finish { |
my ($r) = @_; |
my ($r) = @_; |
$r->print("</pre>\n"); |
# |
|
# Check for suppressed output and close the progress window if so |
|
if ($show eq 'final table') { |
|
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); |
|
} else { |
|
$r->print("</pre>\n"); |
|
} |
|
$r->print(&StudentAverageTotal()); |
$r->rflush(); |
$r->rflush(); |
return; |
return; |
} |
} |
|
|
|
sub StudentAverageTotal { |
|
my $Str = "<h3>Summary Tables</h3>\n"; |
|
my $num_students = scalar(@Apache::lonstatistics::Students); |
|
my $total_ave = 0; |
|
my $total_max = 0; |
|
$Str .= '<table border=2 cellspacing="1">'."\n"; |
|
$Str .= "<tr><th>Title</th><th>Average</th><th>Maximum</th></tr>\n"; |
|
foreach my $seq (&get_sequences_to_show) { |
|
my $ave = int(100*($Statistics->{$seq->{'symb'}}->{'score'}/ |
|
($num_students-$nodata_count)))/100; |
|
$total_ave += $ave; |
|
my $max = $seq->{'num_assess_parts'}; |
|
$total_max += $max; |
|
if ($ave == 0) { |
|
$ave = "0.00"; |
|
} |
|
$ave .= ' '; |
|
$max .= ' '; |
|
$Str .= '<tr><td>'.$seq->{'title'}.'</td>'. |
|
'<td align="right">'.$ave.'</td>'. |
|
'<td align="right">'.$max.'</td></tr>'."\n"; |
|
} |
|
$total_ave = int(100*$total_ave)/100; # only two digit |
|
$Str .= "</table>\n"; |
|
$Str .= '<table border=2 cellspacing="1">'."\n"; |
|
$Str .= '<tr><th>Number of Students</th><th>Average</th>'. |
|
"<th>Maximum</th></tr>\n"; |
|
$Str .= '<tr><td>'.($num_students-$nodata_count).'</td>'. |
|
'<td>'.$total_ave.'</td><td>'.$total_max.'</td>'; |
|
$Str .= "</table>\n"; |
|
return $Str; |
|
} |
|
|
} |
} |
|
|
####################################################### |
####################################################### |
Line 876 sub csv_initialize{
|
Line 954 sub csv_initialize{
|
$outputfile = undef; |
$outputfile = undef; |
} |
} |
# |
# |
|
# Datestamp |
|
my $description = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
|
print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'. |
|
'"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'. |
|
"\n"; |
|
|
|
# |
# Print out the headings |
# Print out the headings |
my $Str = ''; |
my $Str = ''; |
my $Str2 = undef; |
my $Str2 = undef; |
Line 1076 sub StudentPerformanceOnSequence {
|
Line 1161 sub StudentPerformanceOnSequence {
|
} |
} |
|
|
####################################################### |
####################################################### |
####################################################### |
|
sub StudentAverageTotal { |
|
my ($cache, $students, $sequenceKeys)=@_; |
|
my $Str = "\n<b>Summary Tables:</b>\n"; |
|
my %Correct = (); |
|
my $ProblemsSolved = 0; |
|
my $TotalProblems = 0; |
|
my $StudentCount = 0; |
|
|
|
foreach my $name (@$students) { |
|
$StudentCount++; |
|
foreach my $sequence (@$sequenceKeys) { |
|
$Correct{$sequence} += |
|
$cache->{$name.':'.$sequence.':problemsCorrect'}; |
|
} |
|
$ProblemsSolved += $cache->{$name.':problemsSolved'}; |
|
$TotalProblems += $cache->{$name.':totalProblems'}; |
|
} |
|
if ($StudentCount) { |
|
$ProblemsSolved = sprintf( "%.2f", |
|
$ProblemsSolved/$StudentCount); |
|
$TotalProblems /= $StudentCount; |
|
} else { |
|
$ProblemsSolved = 0; |
|
$TotalProblems = 0; |
|
} |
|
|
|
$Str .= '<table border=2 cellspacing="1">'."\n"; |
|
$Str .= '<tr><td><b>Students Count</b></td><td><b>'. |
|
$StudentCount.'</b></td></tr>'."\n"; |
|
$Str .= '<tr><td><b>Total Problems</b></td><td><b>'. |
|
$TotalProblems.'</b></td></tr>'."\n"; |
|
$Str .= '<tr><td><b>Average Correct</b></td><td><b>'. |
|
$ProblemsSolved.'</b></td></tr>'."\n"; |
|
$Str .= '</table>'."\n"; |
|
|
|
$Str .= '<table border=2 cellspacing="1">'."\n"; |
|
$Str .= '<tr><th>Title</th><th>Total Problems</th>'. |
|
'<th>Average Correct</th></tr>'."\n"; |
|
foreach my $S(@$sequenceKeys) { |
|
my $title=$cache->{$S.':title'}; |
|
#$Str .= $cache->{$S.':problems'}; |
|
#my @problems=split(':', $cache->{$S.':problems'}); |
|
#my $pCount=scalar @problems; |
|
my $pCount=MaxSeqPr($cache,@$students[0],$S); |
|
my $crr; |
|
if ($StudentCount) { |
|
$crr=sprintf( "%.2f", $Correct{$S}/$StudentCount ); |
|
} else { |
|
$crr="0.00"; |
|
} |
|
$Str .= '<tr><td>'.$title. |
|
'</td><td align=center>'.$pCount. |
|
'</td><td align=center>'.$crr. |
|
'</td></tr>'."\n"; |
|
} |
|
|
|
$Str .= '</table>'."\n"; |
|
|
|
return $Str; |
|
} |
|
|
|
####################################################### |
|
####################################################### |
####################################################### |
|
|
=pod |
=pod |