--- loncom/interface/loncoursedata.pm	2002/10/17 19:36:30	1.38
+++ loncom/interface/loncoursedata.pm	2003/01/10 21:50:17	1.41
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: loncoursedata.pm,v 1.38 2002/10/17 19:36:30 matthew Exp $
+# $Id: loncoursedata.pm,v 1.41 2003/01/10 21:50:17 matthew 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;
@@ -518,7 +519,7 @@ sub ProcessTopResourceMap {
 	    # big problem, need to handle.  Next is probably wrong
             my $errorMessage = 'Big problem in ';
             $errorMessage .= 'loncoursedata::ProcessTopLevelMap.';
-            $errorMessage .= '  bighash to_$currentResourceID not defined!';
+            $errorMessage .= "  bighash to_$currentResourceID not defined!";
             &Apache::lonnet::logthis($errorMessage);
 	    last;
 	}