--- loncom/interface/loncoursedata.pm	2003/06/02 16:57:41	1.73
+++ loncom/interface/loncoursedata.pm	2003/06/16 15:55:27	1.77
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursedata.pm,v 1.73 2003/06/02 16:57:41 matthew Exp $
+# $Id: loncoursedata.pm,v 1.77 2003/06/16 15:55:27 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -109,6 +109,10 @@ sub get_sequence_assessment_data {
     if (!defined($navmap)) {
         return 'Can not open Coursemap';
     }
+    # We explicity grab the top level map because I am not sure we
+    # are pulling it from the iterator.
+    my $top_level_map = $navmap->getById('0.0');
+    #
     my $iterator = $navmap->getIterator(undef, undef, undef, 1);
     my $curRes = $iterator->next(); # Top level sequence
     ##
@@ -118,8 +122,9 @@ sub get_sequence_assessment_data {
     ## resources.  This means we have to start out with something to look
     ## at.
     my $title = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
-    my $symb  = 'top';
-    my $src   = 'not applicable';
+    my $symb  = $top_level_map->symb();
+    my $src   = $top_level_map->src();
+    my $randompick = $top_level_map->randompick();
     #
     my @Sequences; 
     my @Assessments;
@@ -130,7 +135,9 @@ sub get_sequence_assessment_data {
                 type     => 'container',
                 num_assess => 0,
                 num_assess_parts => 0,
-                contents   => [], };
+                contents   => [], 
+                randompick => $randompick,
+            };
     push (@Sequences,$top);
     push (@Nested_Sequences, $top);
     #
@@ -146,11 +153,13 @@ sub get_sequence_assessment_data {
             $title = $previous->title();
             $symb  = $previous->symb();
             $src   = $previous->src();
+            $randompick = $previous->randompick();
             my $newmap = { title    => $title,
                            src      => $src,
                            symb     => $symb,
                            type     => 'container',
                            num_assess => 0,
+                           randompick => $randompick,
                            contents   => [],
                        };
             push (@{$currentmap->{'contents'}},$newmap); # this is permanent
@@ -955,7 +964,7 @@ sub update_student_data {
             my $awarddetail = $param_hash->{'resource.'.$part.'.awarddetail'};
             my $timestamp = $param_hash->{'timestamp'};
             #
-            $solved      = '' if (! defined($awarded));
+            $solved      = '' if (! defined($solved));
             $tries       = '' if (! defined($tries));
             $awarded     = '' if (! defined($awarded));
             $award       = '' if (! defined($award));
@@ -1196,11 +1205,11 @@ sub get_current_state {
     return () if (! defined($sname) || ! defined($sdom));
     #
     my ($status,$data) = &ensure_current_data($sname,$sdom,$courseid);
-    &Apache::lonnet::logthis
-        ('sname = '.$sname.
-         ' domain = '.$sdom.
-         ' status = '.$status.
-         ' data is '.(defined($data)?'defined':'undefined'));
+#    &Apache::lonnet::logthis
+#        ('sname = '.$sname.
+#         ' domain = '.$sdom.
+#         ' status = '.$status.
+#         ' data is '.(defined($data)?'defined':'undefined'));
 #    while (my ($symb,$hash) = each(%$data)) {
 #        &Apache::lonnet::logthis($symb."\n----------------------------------");
 #        while (my ($key,$value) = each (%$hash)) {