version 1.97, 2003/06/13 21:29:30
|
version 1.100, 2003/06/18 17:37:46
|
Line 2600 sub getSymbMap {
|
Line 2600 sub getSymbMap {
|
my $ctr=0; |
my $ctr=0; |
while ($mapdepth > 0) { |
while ($mapdepth > 0) { |
if($mapcurRes == $mapiterator->BEGIN_MAP) { $mapdepth++; } |
if($mapcurRes == $mapiterator->BEGIN_MAP) { $mapdepth++; } |
if($mapcurRes == $mapiterator->END_MAP) { $mapdepth++; } |
if($mapcurRes == $mapiterator->END_MAP) { $mapdepth--; } |
|
|
if (ref($mapcurRes) && $mapcurRes->is_problem() && !$mapcurRes->randomout) { |
if (ref($mapcurRes) && $mapcurRes->is_problem() && !$mapcurRes->randomout) { |
$countProblems++; |
$countProblems++; |
Line 2673 sub displayPage {
|
Line 2673 sub displayPage {
|
my $curRes = $iterator->next(); # for "current resource" |
my $curRes = $iterator->next(); # for "current resource" |
while ($depth > 0 && $ctr < 100) { # ctr, just in case it never gets out of loop |
while ($depth > 0 && $ctr < 100) { # ctr, just in case it never gets out of loop |
if($curRes == $iterator->BEGIN_MAP) { $depth++; } |
if($curRes == $iterator->BEGIN_MAP) { $depth++; } |
if($curRes == $iterator->END_MAP) { $depth++; } |
if($curRes == $iterator->END_MAP) { $depth--; } |
|
|
if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) { |
if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) { |
my $parts = $curRes->parts(); |
my $parts = $curRes->parts(); |
Line 2759 sub displayPage {
|
Line 2759 sub displayPage {
|
$ctr++; |
$ctr++; |
} |
} |
|
|
|
$navmap->untieHashes(); |
|
|
$studentTable.='</td></tr></table></td></tr></table>'."\n". |
$studentTable.='</td></tr></table></td></tr></table>'."\n". |
' <input type="button" value="Save" '. |
' <input type="button" value="Save" '. |
'onClick="javascript:checkSubmitPage(this.form,'.$question.');" TARGET=_self />'. |
'onClick="javascript:checkSubmitPage(this.form,'.$question.');" TARGET=_self />'. |
Line 2805 sub updateGradeByPage {
|
Line 2807 sub updateGradeByPage {
|
my ($depth,$ctr,$question,$changeflag)= (1,0,1,0); |
my ($depth,$ctr,$question,$changeflag)= (1,0,1,0); |
while ($depth > 0 && $ctr < 100) { # ctr, just in case it never gets out of loop |
while ($depth > 0 && $ctr < 100) { # ctr, just in case it never gets out of loop |
if($curRes == $iterator->BEGIN_MAP) { $depth++; } |
if($curRes == $iterator->BEGIN_MAP) { $depth++; } |
if($curRes == $iterator->END_MAP) { $depth++; } |
if($curRes == $iterator->END_MAP) { $depth--; } |
|
|
if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) { |
if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout) { |
my $parts = $curRes->parts(); |
my $parts = $curRes->parts(); |
Line 2868 sub updateGradeByPage {
|
Line 2870 sub updateGradeByPage {
|
$ctr++; |
$ctr++; |
} |
} |
|
|
|
$navmap->untieHashes(); |
|
|
$studentTable.='</td></tr></table></td></tr></table>'; |
$studentTable.='</td></tr></table></td></tr></table>'; |
$studentTable.=&show_grading_menu_form($ENV{'form.symb'},$ENV{'form.url'}); |
$studentTable.=&show_grading_menu_form($ENV{'form.symb'},$ENV{'form.url'}); |
my $grademsg=($changeflag == 0 ? 'No score was changed or updated.' : |
my $grademsg=($changeflag == 0 ? 'No score was changed or updated.' : |
Line 3424 sub handler {
|
Line 3428 sub handler {
|
if ($tsymb) { |
if ($tsymb) { |
my ($map,$id,$url)=split(/\_\_\_/,$tsymb); |
my ($map,$id,$url)=split(/\_\_\_/,$tsymb); |
if (&Apache::lonnet::allowed('mgr',$tcrsid)) { |
if (&Apache::lonnet::allowed('mgr',$tcrsid)) { |
$request->print( |
$request->print(&Apache::lonnet::ssi_body('/res/'.$url, |
&Apache::lonnet::ssi('/res/'.$url, |
('grade_username' => $tuname, |
('grade_username' => $tuname, |
'grade_domain' => $tudom, |
'grade_domain' => $tudom, |
'grade_courseid' => $tcrsid, |
'grade_courseid' => $tcrsid, |
'grade_symb' => $tsymb))); |
'grade_symb' => $tsymb))); |
|
} else { |
} else { |
$request->print('<h3>Not authorized: '.$token.'</h3>'); |
$request->print('<h3>Not authorized: '.$token.'</h3>'); |
} |
} |
} else { |
} else { |
$request->print('<h3>Not a valid DocID: '.$token.'</h3>'); |
$request->print('<h3>Not a valid DocID: '.$token.'</h3>'); |
} |
} |