version 1.98, 2003/06/18 17:28:35
|
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 2807 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 3428 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>'); |
} |
} |