Diff for /loncom/homework/grades.pm between versions 1.112 and 1.113

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()) {

Removed from v.1.112  
changed lines
  Added in v.1.113


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>