capa/capa51/GUITools/scorer.tcl - diff

Return to scorer.tcl CVS log

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

version 1.9, 2000/01/10 22:40:30	version 1.11, 2000/02/08 22:18:11
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 952 proc getAnswers { PID set maxQuest num }	Line 952 proc getAnswers { PID set maxQuest num }
cd $pwd	cd $pwd
set result ""	set result ""
foreach line [split $temp "\n"] {	foreach line [split $temp "\n"] {
switch [lindex [split $line :] 0] {	switch -- [lindex [split $line :] 0] {
ANS { lappend result [string range $line 4 end] }	ANS { lappend result [string range $line 4 end] }
}	}
}	}