--- loncom/interface/loncoursedata.pm	2002/10/16 13:43:34	1.36
+++ loncom/interface/loncoursedata.pm	2002/12/11 21:41:02	1.40
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: loncoursedata.pm,v 1.36 2002/10/16 13:43:34 matthew Exp $
+# $Id: loncoursedata.pm,v 1.40 2002/12/11 21:41:02 minaeibi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -310,6 +310,7 @@ sub ProcessTopResourceMap {
     }
 
     my $oldkeys;
+    delete $cache->{'OptionResponses'};
     if(defined($cache->{'ResourceKeys'})) {
         $oldkeys = $cache->{'ResourceKeys'};
         foreach (split(':::', $cache->{'ResourceKeys'})) {
@@ -487,9 +488,9 @@ sub ProcessTopResourceMap {
                 }
 		my @titleLength=split(//,$cache->{$currentSequence.
                                                     ':title'});
-                # $extra is 3 for problems correct and 3 for space
+                # $extra is 5 for problems correct and 3 for space
                 # between problems correct and problem output
-                my $extra = 6;
+                my $extra = 8;
 		if(($totalProblems + $extra) > (scalar @titleLength)) {
 		    $cache->{$currentSequence.':columnWidth'}=
                         $totalProblems + $extra;
@@ -1429,7 +1430,7 @@ sub get_classlist {
             ($end,$start,$id,$section,$fullname) = @Values;
         } else { # We have to get the data ourselves
             ($end,$start) = @Values;
-            $section = &Apache::lonnet::usection($sdom,$sname,$cid);
+            $section = &Apache::lonnet::getsection($sdom,$sname,$cid);
             my %info=&Apache::lonnet::get('environment',
                                           ['firstname','middlename',
                                            'lastname','generation','id'],
@@ -1438,6 +1439,8 @@ sub get_classlist {
             if ($tmp =~/^(con_lost|error|no_such_host)/i) {
                 $fullname = 'not available';
                 $id = 'not available';
+                &Apache::lonnet::logthis('unable to retrieve environment '.
+                                         'for '.$sname.':'.$sdom);
             } else {
                 $fullname = &ProcessFullName(@info{qw/lastname generation 
                                                        firstname middlename/});