capa/capa51/GUITools/scorer.tcl - diff

Return to scorer.tcl CVS log

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

version 1.3, 1999/11/08 22:30:02	version 1.4, 1999/12/01 18:22:00
Line 760 proc initScorer { num } {	Line 760 proc initScorer { num } {
proc getLine { num } {	proc getLine { num } {
global gScorer	global gScorer

scorerMessage $num "Getting Responses"	scorerMessage $num "\nGetting Responses"

set done 0	set done 0
while { ! $done } {	while { ! $done } {
Line 1286 proc scorerStudent { num } {	Line 1286 proc scorerStudent { num } {
finishScoring $num answerStruct	finishScoring $num answerStruct
return	return
}	}
incr gScorer(student.$num)
update
set gScorer(needToUpdateDB) 1	set gScorer(needToUpdateDB) 1
#parseanswerline	#parseanswerline
if { [catch {parseLine $num $answer answerStruct} errorMsg ] } {	if { [catch {parseLine $num $answer answerStruct} errorMsg ] } {
Line 1302 proc scorerStudent { num } {	Line 1300 proc scorerStudent { num } {
displayError "An error occured when attempting to grade a student. The error is: $errorMsg"	displayError "An error occured when attempting to grade a student. The error is: $errorMsg"
}	}
}	}
	incr gScorer(student.$num)
	update
after idle "scorerStudent $num"	after idle "scorerStudent $num"
}	}