--- loncom/interface/loncoursedata.pm	2003/02/20 14:28:25	1.49
+++ loncom/interface/loncoursedata.pm	2003/02/28 20:41:27	1.53
@@ -1,7 +1,6 @@
 # The LearningOnline Network with CAPA
-# (Publication Handler
 #
-# $Id: loncoursedata.pm,v 1.49 2003/02/20 14:28:25 matthew Exp $
+# $Id: loncoursedata.pm,v 1.53 2003/02/28 20:41:27 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -120,9 +119,10 @@ sub DownloadClasslist {
     my ($courseDomain,$courseNumber)=split(/\_/,$courseID);
     my %classlist;
 
-    my $modifiedTime = &Apache::lonnet::GetFileTimestamp($courseDomain, $courseNumber,
+    my $modifiedTime = &Apache::lonnet::GetFileTimestamp($courseDomain, 
+                                                         $courseNumber,
                                                          'classlist.db', 
-                                                         $Apache::lonnet::perlvar{'lonUsersDir'});
+                                 $Apache::lonnet::perlvar{'lonUsersDir'});
 
     # Always download the information if lastDownloadTime is set to
     # Not downloaded, otherwise it is only downloaded if the file
@@ -261,7 +261,8 @@ with stopping downloading then can not t
 
 # ----- PROCESSING FUNCTIONS ---------------------------------------
 
-
+####################################################
+####################################################
 
 =pod
 
@@ -278,22 +279,24 @@ The returned structure is a hash referen
   symb   => 'symb',
   source => '/s/o/u/r/c/e',
   type  => (container|assessment),
-  contents     => [ {},{},{},{} ], # only for container
+  num_assess   => 2,               # only for container
   parts        => [11,13,15],      # only for assessment
-  response_ids => [12,14,16]       # only for assessment
+  response_ids => [12,14,16],      # only for assessment
+  contents     => [........]       # only for container
 }
 
-Also returned are array references to the symbs and assessments contained
-in the sequence.
-
 $hash->{'contents'} is a reference to an array of hashes of the same structure.
 
+Also returned are array references to the sequences and assessments contained
+in the course.
+
+
 =cut
 
+####################################################
+####################################################
 sub get_sequence_assessment_data {
-    return undef;
     my $fn=$ENV{'request.course.fn'};
-    &Apache::lonnet::logthis('filename = '.$fn);
     ##
     ## use navmaps
     my $navmap = Apache::lonnavmaps::navmap->new($fn.".db",$fn."_parms.db",
@@ -308,35 +311,37 @@ sub get_sequence_assessment_data {
     ## We are going to loop until we run out of sequences/pages to explore for
     ## resources.  This means we have to start out with something to look
     ## at.
-    my $curRes = $iterator->next(); # BEGIN_MAP
-    $curRes = $iterator->next(); # The sequence itself
-    #
-    my $title = $curRes->title();
-    my $symb  = $curRes->symb();
-    my $src   = $curRes->src();
+    my $title = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+    my $symb  = 'top';
+    my $src   = 'not applicable';
     #
     my @Sequences; 
     my @Assessments;
     my @Nested_Sequences = ();   # Stack of sequences, keeps track of depth
     my $top = { title    => $title,
+                src      => $src,
                 symb     => $symb,
                 type     => 'container',
                 num_assess => 0,
+                num_assess_parts => 0,
                 contents   => [], };
     push (@Sequences,$top);
     push (@Nested_Sequences, $top);
     #
     # We need to keep track of which sequences contain homework problems
     # 
+    my $previous;
+    my $curRes = $iterator->next(); # BEGIN_MAP
+    $curRes = $iterator->next(); # The first item in the top level map.
     while (scalar(@Nested_Sequences)) {
+        $previous = $curRes;
         $curRes = $iterator->next();
         my $currentmap = $Nested_Sequences[-1]; # Last one on the stack
         if ($curRes == $iterator->BEGIN_MAP()) {
             # get the map itself, instead of BEGIN_MAP
-            $curRes = $iterator->next(); 
-            $title = $curRes->title();
-            $symb  = $curRes->symb();
-            $src   = $curRes->src();
+            $title = $previous->title();
+            $symb  = $previous->symb();
+            $src   = $previous->src();
             my $newmap = { title    => $title,
                            src      => $src,
                            symb     => $symb,
@@ -354,7 +359,7 @@ sub get_sequence_assessment_data {
             next;
         }
         next if (! ref($curRes));
-        next if (! $curRes->is_problem() && !$curRes->randomout);
+        next if (! $curRes->is_problem());# && !$curRes->randomout);
         # Okay, from here on out we only deal with assessments
         $title = $curRes->title();
         $symb  = $curRes->symb();
@@ -364,14 +369,20 @@ sub get_sequence_assessment_data {
                            src   => $src,
                            symb  => $symb,
                            type  => 'assessment',
+                           parts => $parts,
+                           num_parts => scalar(@$parts),
                        };
         push(@Assessments,$assessment);
         push(@{$currentmap->{'contents'}},$assessment);
         $currentmap->{'num_assess'}++;
+        $currentmap->{'num_assess_parts'}+= scalar(@$parts);
     }
     return ($top,\@Sequences,\@Assessments);
 }
 
+#################################################
+#################################################
+
 =pod
 
 =item &ProcessTopResourceMap()