--- loncom/interface/loncoursedata.pm	2002/08/30 17:11:43	1.26
+++ loncom/interface/loncoursedata.pm	2002/08/31 18:31:15	1.27
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # (Publication Handler
 #
-# $Id: loncoursedata.pm,v 1.26 2002/08/30 17:11:43 stredwic Exp $
+# $Id: loncoursedata.pm,v 1.27 2002/08/31 18:31:15 stredwic Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -786,6 +786,8 @@ sub ExtractStudentData {
 
             # Output dashes for all the parts of this problem if there
             # is no version information about the current problem.
+            $output->{$name.':'.$problemID.':NoVersion'} = 'false';
+            $allkeys{$name.':'.$problemID.':NoVersion'}++;
             if(!$LatestVersion) {
                 foreach my $part (split(/\:/,$data->{$sequence.':'.
                                                       $problemID.
@@ -799,7 +801,6 @@ sub ExtractStudentData {
                     $totalProblems++;
                 }
                 $output->{$name.':'.$problemID.':NoVersion'} = 'true';
-		$allkeys{$name.':'.$problemID.':NoVersion'}++;
                 next;
             }