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) {} |