version 1.57, 2003/06/11 15:04:55
|
version 1.70, 2003/10/07 14:38:30
|
Line 138 Inputs:
|
Line 138 Inputs:
|
####################################################### |
####################################################### |
sub BuildStudentAssessmentPage { |
sub BuildStudentAssessmentPage { |
my ($r,$c)=@_; |
my ($r,$c)=@_; |
|
|
undef($Statistics); |
undef($Statistics); |
|
undef($show_links); |
|
undef($output_mode); |
|
undef($data); |
|
undef($base); |
|
undef($datadescription); |
|
undef($single_student_mode); |
|
|
|
$single_student_mode = 0; |
$single_student_mode = 1 if ($ENV{'form.SelectedStudent'}); |
$single_student_mode = 1 if ($ENV{'form.SelectedStudent'}); |
|
if ($ENV{'form.selectstudent'}) { |
|
&Apache::lonstatistics::DisplayClasslist($r); |
|
return; |
|
} |
# |
# |
# Print out the HTML headers for the interface |
# Print out the HTML headers for the interface |
# This also parses the output mode selector |
# This also parses the output mode selector |
Line 149 sub BuildStudentAssessmentPage {
|
Line 162 sub BuildStudentAssessmentPage {
|
$r->print('<input type="hidden" name="sort" value="'. |
$r->print('<input type="hidden" name="sort" value="'. |
$ENV{'form.sort'}.'" />'); |
$ENV{'form.sort'}.'" />'); |
$r->rflush(); |
$r->rflush(); |
|
# |
if (! exists($ENV{'form.notfirstrun'}) && ! $single_student_mode) { |
if (! exists($ENV{'form.notfirstrun'}) && ! $single_student_mode) { |
return; |
return; |
} |
} |
Line 186 sub BuildStudentAssessmentPage {
|
Line 200 sub BuildStudentAssessmentPage {
|
# are immediately reflected in the chart. |
# are immediately reflected in the chart. |
&Apache::lonnet::clear_EXT_cache_status(); |
&Apache::lonnet::clear_EXT_cache_status(); |
# |
# |
|
# Clean out loncoursedata's package data, just to be safe. |
|
&Apache::loncoursedata::clear_internal_caches(); |
|
# |
# Call the initialize routine selected above |
# Call the initialize routine selected above |
$initialize->($r); |
$initialize->($r); |
foreach my $student (@Students) { |
foreach my $student (@Students) { |
Line 292 sub CreateInterface {
|
Line 309 sub CreateInterface {
|
$Str .= '<td align="center"><b>Student Data</b></td>'; |
$Str .= '<td align="center"><b>Student Data</b></td>'; |
$Str .= '<td align="center"><b>Enrollment Status</b></td>'; |
$Str .= '<td align="center"><b>Enrollment Status</b></td>'; |
$Str .= '<td align="center"><b>Sequences and Folders</b></td>'; |
$Str .= '<td align="center"><b>Sequences and Folders</b></td>'; |
$Str .= '<td align="center"><b>Output Format</b></td>'; |
$Str .= '<td align="center"><b>Output Format</b>'. |
$Str .= '<td align="center"><b>Output Data</b></td>'; |
&Apache::loncommon::help_open_topic("Chart_Output_Formats"). |
|
'</td>'; |
|
$Str .= '<td align="center"><b>Output Data</b>'. |
|
&Apache::loncommon::help_open_topic("Chart_Output_Data"). |
|
'</td>'; |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
# |
# |
$Str .= '<tr><td align="center">'."\n"; |
$Str .= '<tr><td align="center">'."\n"; |
Line 321 sub CreateInterface {
|
Line 342 sub CreateInterface {
|
$Str .= '</td></tr>'."\n"; |
$Str .= '</td></tr>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '<input type="submit" value="Generate Chart" />'; |
$Str .= '<input type="submit" value="Generate Chart" />'; |
$Str .= ' 'x8; |
$Str .= ' 'x5; |
|
$Str .= '<input type="submit" name="selectstudent" '. |
|
'value="Select One Student" />'; |
|
$Str .= ' 'x5; |
|
$Str .= '<input type="submit" name="ClearCache" value="Clear Caches" />'; |
|
$Str .= ' 'x5; |
|
$Str .= '<br />'; |
return $Str; |
return $Str; |
} |
} |
|
|
Line 379 my @OutputOptions =
|
Line 406 my @OutputOptions =
|
|
|
sub OutputDescriptions { |
sub OutputDescriptions { |
my $Str = ''; |
my $Str = ''; |
$Str .= "<h2>Output Modes</h2>\n"; |
$Str .= "<h2>Output Formats</h2>\n"; |
$Str .= "<dl>\n"; |
$Str .= "<dl>\n"; |
foreach my $outputmode (@OutputOptions) { |
foreach my $outputmode (@OutputOptions) { |
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
$Str .=" <dt>".$outputmode->{'name'}."</dt>\n"; |
Line 489 my @OutputDataOptions =
|
Line 516 my @OutputDataOptions =
|
|
|
sub HTMLifyOutputDataDescriptions { |
sub HTMLifyOutputDataDescriptions { |
my $Str = ''; |
my $Str = ''; |
|
$Str .= "<h2>Output Data</h2>\n"; |
$Str .= "<dl>\n"; |
$Str .= "<dl>\n"; |
foreach my $option (@OutputDataOptions) { |
foreach my $option (@OutputDataOptions) { |
$Str .= ' <dt>'.$option->{'name'}.'</dt>'; |
$Str .= ' <dt>'.$option->{'name'}.'</dt>'; |
Line 566 sub html_initialize {
|
Line 594 sub html_initialize {
|
$padding = ' 'x3; |
$padding = ' 'x3; |
$count = 0; |
$count = 0; |
$nodata_count = 0; |
$nodata_count = 0; |
|
undef(%prog_state); |
# |
# |
$r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}. |
$r->print("<h3>".$ENV{'course.'.$ENV{'request.course.id'}.'.description'}. |
" ".localtime(time)."</h3>"); |
" ".localtime(time)."</h3>"); |
Line 817 my $request_aborted;
|
Line 846 my $request_aborted;
|
sub excel_initialize { |
sub excel_initialize { |
my ($r) = @_; |
my ($r) = @_; |
# |
# |
$request_aborted = undef; |
undef ($excel_sheet); |
|
undef ($excel_workbook); |
|
undef ($filename); |
|
undef ($rows_output); |
|
undef ($cols_output); |
|
undef (%prog_state); |
|
undef ($request_aborted); |
|
# |
my $total_columns = scalar(&get_student_fields_to_show()); |
my $total_columns = scalar(&get_student_fields_to_show()); |
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
foreach my $seq (&Apache::lonstatistics::Sequences_with_Assess()) { |
# Add 2 because we need a 'sum' and 'total' column for each |
# Add 2 because we need a 'sum' and 'total' column for each |
Line 898 END
|
Line 934 END
|
# |
# |
# Add a worksheet |
# Add a worksheet |
my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
my $sheetname = $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; |
if (length($sheetname) > 31) { |
$sheetname = &Apache::loncommon::clean_excel_name($sheetname); |
$sheetname = substr($sheetname,0,31); |
|
} |
|
$excel_sheet = $excel_workbook->addworksheet($sheetname); |
$excel_sheet = $excel_workbook->addworksheet($sheetname); |
# |
# |
# Put the course description in the header |
# Put the course description in the header |
Line 1041 END
|
Line 1075 END
|
($r,'Excel File Compilation Status', |
($r,'Excel File Compilation Status', |
'Excel File Compilation Progress', $studentcount); |
'Excel File Compilation Progress', $studentcount); |
# |
# |
|
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state, |
|
'Processing first student'); |
return; |
return; |
} |
} |
|
|
Line 1152 sub csv_initialize{
|
Line 1188 sub csv_initialize{
|
my ($r) = @_; |
my ($r) = @_; |
# |
# |
# Clean up |
# Clean up |
$filename = undef; |
undef($outputfile); |
$outputfile = undef; |
undef($filename); |
|
undef($request_aborted); |
undef(%prog_state); |
undef(%prog_state); |
# |
# |
# Deal with unimplemented requests |
# Deal with unimplemented requests |
Line 1371 sub StudentTriesOnSequence {
|
Line 1408 sub StudentTriesOnSequence {
|
} elsif ($status eq 'excused') { |
} elsif ($status eq 'excused') { |
$symbol = 'x'; |
$symbol = 'x'; |
$max--; |
$max--; |
} elsif ($status eq 'correct_by_student' && |
} elsif (($status eq 'correct_by_scantron' || |
|
$status eq 'correct_by_student') && |
exists($resource_data->{'resource.'.$partnum.'.tries'})){ |
exists($resource_data->{'resource.'.$partnum.'.tries'})){ |
$tries = $resource_data->{'resource.'.$partnum.'.tries'}; |
$tries = $resource_data->{'resource.'.$partnum.'.tries'}; |
if ($tries > 9) { |
if ($tries > 9) { |
Line 1410 sub StudentTriesOnSequence {
|
Line 1448 sub StudentTriesOnSequence {
|
$symbol = '<a href="/adm/grades'. |
$symbol = '<a href="/adm/grades'. |
'?symb='.&Apache::lonnet::escape($resource->{'symb'}). |
'?symb='.&Apache::lonnet::escape($resource->{'symb'}). |
'&student='.$student->{'username'}. |
'&student='.$student->{'username'}. |
'&domain='.$student->{'domain'}. |
'&userdom='.$student->{'domain'}. |
'&command=submission">'.$symbol.'</a>'; |
'&command=submission">'.$symbol.'</a>'; |
} |
} |
$value .= $symbol; |
$value .= $symbol; |
Line 1478 sub StudentPerformanceOnSequence {
|
Line 1516 sub StudentPerformanceOnSequence {
|
my $awarded = 0; |
my $awarded = 0; |
if (exists($resource_data->{'resource.'.$part.'.awarded'})) { |
if (exists($resource_data->{'resource.'.$part.'.awarded'})) { |
$awarded = $resource_data->{'resource.'.$part.'.awarded'}; |
$awarded = $resource_data->{'resource.'.$part.'.awarded'}; |
|
$awarded = 0 if (! $awarded); |
} |
} |
# |
# |
$partscore = $weight*$awarded; |
$partscore = $weight*$awarded; |
$score += $partscore; |
$score += $partscore; |
$symbol = $weight; |
$symbol = $partscore; |
|
if (abs($symbol - sprintf("%.0f",$symbol)) < 0.001) { |
|
$symbol = sprintf("%.0f",$symbol); |
|
} |
if (length($symbol) > 1) { |
if (length($symbol) > 1) { |
$symbol = '*'; |
$symbol = '*'; |
} |
} |
Line 1501 sub StudentPerformanceOnSequence {
|
Line 1543 sub StudentPerformanceOnSequence {
|
} |
} |
} |
} |
# |
# |
|
if (! defined($partscore)) { |
|
$partscore = $symbol; |
|
} |
|
push (@ScoreData,$partscore); |
|
# |
if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { |
if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { |
$symbol = '<a href="/adm/grades'. |
$symbol = '<a href="/adm/grades'. |
'?symb='.&Apache::lonnet::escape($resource->{'symb'}). |
'?symb='.&Apache::lonnet::escape($resource->{'symb'}). |
'&student='.$student->{'username'}. |
'&student='.$student->{'username'}. |
'&domain='.$student->{'domain'}. |
'&userdom='.$student->{'domain'}. |
'&command=submission">'.$symbol.'</a>'; |
'&command=submission">'.$symbol.'</a>'; |
} |
} |
if (! defined($partscore)) { |
$Str .= $symbol; |
$partscore = $symbol; |
|
} |
|
push (@ScoreData,$partscore); |
|
} |
} |
$Str .= $symbol; |
|
} |
} |
return ($Str,$performance_length,$score,$max,\@ScoreData); |
return ($Str,$performance_length,$score,$max,\@ScoreData); |
} |
} |