capa/capa51/GUITools/scorer.anon.tcl - diff

Return to scorer.anon.tcl CVS log

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

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]