version 1.1, 1999/09/28 21:25:37
|
version 1.2, 2000/04/27 20:19:46
|
Line 32 proc getAnonModeID { num answerStructVar
|
Line 32 proc getAnonModeID { num answerStructVar
|
} |
} |
# }] |
# }] |
set highest [lindex [lsort -decreasing -integer [array names which]] 0] |
set highest [lindex [lsort -decreasing -integer [array names which]] 0] |
|
if {$highest != 6} { return "" } |
set answerStruct(indices) $which($highest) |
set answerStruct(indices) $which($highest) |
foreach index $which($highest) { |
foreach index $which($highest) { |
lappend result [lindex [lindex $gScorer(studentList.$num) $index] 1] |
lappend result [lindex [lindex $gScorer(studentList.$num) $index] 1] |