capa/capa51/GUITools/scorer.tcl - diff

Return to scorer.tcl CVS log

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

version 1.8, 2000/01/05 21:11:15	version 1.10, 2000/01/31 18:34:13
Line 166 proc loadScorerConfig { num } {	Line 166 proc loadScorerConfig { num } {

set filename [file join $gFile($num) records scorer.output.$gScorer(set.$num)]	set filename [file join $gFile($num) records scorer.output.$gScorer(set.$num)]
if { [ catch { set fileId [ open $filename "r" ] } ] } {	if { [ catch { set fileId [ open $filename "r" ] } ] } {
displayError "The set \"$gScorer(set.$num)\" does not yet have an scorer.output file. "	displayMessage "Creating a new scorer.output file for set $gScorer(set.$num)."
return	return
}	}
set line [gets $fileId ]	set line [gets $fileId ]
Line 830 proc parseLine { num answerLine answerSt	Line 830 proc parseLine { num answerLine answerSt
set perQuest [lindex $gScorer($sheet.Question) 2]	set perQuest [lindex $gScorer($sheet.Question) 2]
set parsedIn(multiplemarks) 0	set parsedIn(multiplemarks) 0
set parsedIn(spaces) 0	set parsedIn(spaces) 0
	set parsedIn(maxQuest) $maxQuest
for { set i 0 } { $i < $maxQuest } { incr i } {	for { set i 0 } { $i < $maxQuest } { incr i } {
if { [ catch { set gScorer(quest.$i.type.$num) } ] } {	if { [ catch { set gScorer(quest.$i.type.$num) } ] } {
set parsedIn(maxQuest) $i	set parsedIn(maxQuest) $i