--- capa/capa51/GUITools/capastats.tcl	2000/01/31 18:34:13	1.11
+++ capa/capa51/GUITools/capastats.tcl	2000/02/22 18:10:27	1.13
@@ -597,7 +597,9 @@ proc CTparseSubmissionsLine { aline num
     set gCT($num.response) ""
     set interesting 0
     set current 1
-    foreach {quest response} [lrange $aline 2 end] {
+    foreach element [lrange $aline 2 end] {
+	set quest [lindex $element 0]
+	set response [lindex $element 1]
 	if { $quest == "" } break
 	while { $quest > $current } {
 	    lappend gCT($num.response) {}
@@ -1721,7 +1723,7 @@ proc CTreportDist { num file percentage
 	}
 	set aline [gets $fileId]
     }
-    CTputs $num "Scores #acheived\n"
+    CTputs $num "Scores #achieved\n"
     set scorelist ""
     set templist [array names totals *.score]
     foreach temp $templist {lappend possiblescores [lindex [split $temp .] 0]}
@@ -1798,7 +1800,7 @@ proc CTgradeDistribution { num classpath
     removeStatus $num
     displayStatus "Pondering data . . ." spinner $num
     CTputs $num " There are $valid_cnt entries in file $filename\n"
-    CTputs $num "Score #acheived\n"
+    CTputs $num "Score #achieved\n"
     set scorelist ""
     foreach score [lsort -integer [array names total_score]] {
 	CTputs $num [format "%5d:%6d\n" $score $total_score($score)]
@@ -1885,7 +1887,7 @@ proc CTgradeDistributionRange { num clas
 	set total_score($i) 0
     }
     foreach sNum [array names studentScores] { incr total_score($studentScores($sNum)) }
-    CTputs $num "Scores #acheived\n"
+    CTputs $num "Scores #achieved\n"
     set scorelist ""
     foreach score [lsort -integer [array names total_score]] {
 	CTputs $num [format "%5d:%6d\n" $score $total_score($score)]
@@ -2733,8 +2735,8 @@ proc CTdiscussForum { num file dir resul
     close $fileId
     set result($num.viewers) [llength [array names ever]]
     set result($num.last) $last
-    #IDEAS: stick into capastats
-    #     : howmany viws are repeats
+    #IDEAS:
+    #     : how many views are repeats
     #     : Student Course Profile, add #ViewProblems #Posts
     #     : add some portion of these stats to analyze log files?
 }