version 1.112, 2003/07/11 20:22:43
|
version 1.115, 2003/07/14 16:11:19
|
Line 2662 sub getSymbMap {
|
Line 2662 sub getSymbMap {
|
my ($request) = @_; |
my ($request) = @_; |
my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db', |
my $navmap = Apache::lonnavmaps::navmap-> new($ENV{'request.course.fn'}.'.db', |
$ENV{'request.course.fn'}.'_parms.db',1, 1); |
$ENV{'request.course.fn'}.'_parms.db',1, 1); |
|
|
my $res = $navmap->firstResource(); # temp resource to access constants |
|
$navmap->init(); |
$navmap->init(); |
|
|
# End navmap using boilerplate |
# End navmap using boilerplate |
|
|
my $iterator = $navmap->getIterator(undef, undef, undef, 1); |
my $iterator = Apache::lonnavmaps::iterator->new($navmap, undef, undef, undef, undef, 1, undef, 1); |
my $depth = 1; |
my $depth = 1; |
$iterator->next(); # ignore first BEGIN_MAP |
|
my $curRes = $iterator->next(); |
my $curRes = $iterator->next(); |
|
|
my %symbx = (); |
my %symbx = (); |
my @titles = (); |
my @titles = (); |
my $minder=0; |
my $minder=0; |
while ($depth > 0) { |
my $seenBeginMap = 0; |
if ($curRes == $iterator->BEGIN_MAP()) {$depth++;} |
while ($depth > 0 || !$seenBeginMap) { |
|
if ($curRes == $iterator->BEGIN_MAP()) {$depth++; $seenBeginMap = 1; } |
if ($curRes == $iterator->END_MAP()) { $depth--; } |
if ($curRes == $iterator->END_MAP()) { $depth--; } |
|
|
if (ref($curRes) && $curRes->is_map()) { |
if (ref($curRes) && $curRes->is_map()) { |
Line 2814 sub displayPage {
|
Line 2812 sub displayPage {
|
my @versionKeys = split(/\:/,$record{$version.':keys'}); |
my @versionKeys = split(/\:/,$record{$version.':keys'}); |
my @displaySub = (); |
my @displaySub = (); |
foreach my $partid (@{$parts}) { |
foreach my $partid (@{$parts}) { |
|
my $responseType = $curRes->responseType($partid); |
my @matchKey = grep /^resource\.$partid\..*?\.submission$/,@versionKeys; |
my @matchKey = grep /^resource\.$partid\..*?\.submission$/,@versionKeys; |
next if ($record{"$version:resource.$partid.solved"} eq ''); |
next if ($record{"$version:resource.$partid.solved"} eq ''); |
# next if ($record{"$version:resource.$partid.award"} eq 'APPROX_ANS' && |
# next if ($record{"$version:resource.$partid.award"} eq 'APPROX_ANS' && |
# $record{"$version:resource.$partid.solved"} eq ''); |
# $record{"$version:resource.$partid.solved"} eq ''); |
$displaySub[0].=(exists $record{$version.':'.$matchKey[0]}) ? |
$displaySub[0].=(exists $record{$version.':'.$matchKey[0]}) ? |
'<b>Part '.$partid.' '. |
'<b>Part '.$partid.' Type:'.$responseType.':endtype'. |
($record{"$version:resource.$partid.tries"} eq '' ? 'Trial not counted' : |
($record{"$version:resource.$partid.tries"} eq '' ? 'Trial not counted' : |
'Trial '.$record{"$version:resource.$partid.tries"}).'</b> '. |
'Trial '.$record{"$version:resource.$partid.tries"}).'</b> '. |
$record{$version.':'.$matchKey[0]}.'<br />' : ''; |
$record{$version.':'.$matchKey[0]}.'<br />' : ''; |