version 1.8, 2000/01/05 21:11:15
|
version 1.9, 2000/01/10 22:40:30
|
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 |