loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.112, 2003/07/11 20:22:43	version 1.113, 2003/07/14 14:29:07
Line 2663 sub getSymbMap {	Line 2663 sub getSymbMap {
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	#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, 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()) {