version 1.61, 2003/06/18 12:55:52
|
version 1.65.2.1, 2003/10/03 15:37:29
|
Line 138 Inputs:
|
Line 138 Inputs:
|
####################################################### |
####################################################### |
sub BuildStudentAssessmentPage { |
sub BuildStudentAssessmentPage { |
my ($r,$c)=@_; |
my ($r,$c)=@_; |
|
|
undef($Statistics); |
undef($Statistics); |
|
|
|
$single_student_mode = 0; |
$single_student_mode = 1 if ($ENV{'form.SelectedStudent'}); |
$single_student_mode = 1 if ($ENV{'form.SelectedStudent'}); |
if ($ENV{'form.selectstudent'}) { |
if ($ENV{'form.selectstudent'}) { |
&Apache::lonstatistics::DisplayClasslist($r); |
&Apache::lonstatistics::DisplayClasslist($r); |
Line 191 sub BuildStudentAssessmentPage {
|
Line 194 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 1057 END
|
Line 1063 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 1426 sub StudentTriesOnSequence {
|
Line 1434 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 1498 sub StudentPerformanceOnSequence {
|
Line 1506 sub StudentPerformanceOnSequence {
|
# |
# |
$partscore = $weight*$awarded; |
$partscore = $weight*$awarded; |
$score += $partscore; |
$score += $partscore; |
$symbol = $weight; |
$symbol = $partscore; |
if (length($symbol) > 1) { |
if (length($symbol) > 1) { |
$symbol = '*'; |
$symbol = '*'; |
} |
} |
Line 1526 sub StudentPerformanceOnSequence {
|
Line 1534 sub StudentPerformanceOnSequence {
|
$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>'; |
} |
} |
$Str .= $symbol; |
$Str .= $symbol; |