capa/capa51/GUITools/capastats.tcl - diff

Return to capastats.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

version 1.12, 2000/02/02 19:14:10	version 1.13, 2000/02/22 18:10:27
Line 597 proc CTparseSubmissionsLine { aline num	Line 597 proc CTparseSubmissionsLine { aline num
set gCT($num.response) ""	set gCT($num.response) ""
set interesting 0	set interesting 0
set current 1	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	if { $quest == "" } break
while { $quest > $current } {	while { $quest > $current } {
lappend gCT($num.response) {}	lappend gCT($num.response) {}