[BACK]Return to scorer.tcl CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / GUITools

Diff for /capa/capa51/GUITools/scorer.tcl between versions 1.5 and 1.10

version 1.5, 1999/12/03 18:39:38 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 412  proc insertQuest { num where } { Line 412  proc insertQuest { num where } {
  }   }
     }      }
     renumberScorerQuest $num      renumberScorerQuest $num
       update
       $gScorer(quest.$num) see $where
 }  }
   
 ###########################################################  ###########################################################
Line 507  proc cloneScorerQuest { num } { Line 509  proc cloneScorerQuest { num } {
           
     set temp [ $gScorer(quest.$num) get [ $gScorer(quest.$num) curselection ] ]      set temp [ $gScorer(quest.$num) get [ $gScorer(quest.$num) curselection ] ]
     $gScorer(quest.$num) insert end $temp      $gScorer(quest.$num) insert end $temp
       $gScorer(quest.$num) see end
     renumberScorerQuest $num      renumberScorerQuest $num
 }  }
   
Line 827  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
Line 944  proc getAnswers { PID set maxQuest num } Line 948  proc getAnswers { PID set maxQuest num }
     global gFile gCapaConfig      global gFile gCapaConfig
     set pwd [pwd]      set pwd [pwd]
     cd $gFile($num)      cd $gFile($num)
     set temp [exec $gCapaConfig($num.answers_command) $PID {} 1 $set]      set temp [exec $gCapaConfig($num.answers_command) $PID {} 0 $set]
     cd $pwd      cd $pwd
     set result ""      set result ""
     foreach line [split $temp "\n"] {      foreach line [split $temp "\n"] {
Line 1027  proc handleStudent { num answerStructVar Line 1031  proc handleStudent { num answerStructVar
  if { [catch { set answerStruct(correct.$questionPID) \   if { [catch { set answerStruct(correct.$questionPID) \
   [getAnswers $questionPID $gScorer(set.$num) \    [getAnswers $questionPID $gScorer(set.$num) \
        $answerStruct(maxQuest) $num] } errorMsg ] } {         $answerStruct(maxQuest) $num] } errorMsg ] } {
     puts $errorMsg      catch {puts $errorMsg}
     scorerError $num UNABLE_TO_PARSE "$answerStruct(orignalLine)" \      scorerError $num UNABLE_TO_PARSE "$answerStruct(orignalLine)" \
  $answerStruct(StudentNumber)   $answerStruct(StudentNumber)
     error UNABLE_TO_PARSE      error UNABLE_TO_PARSE
Line 1542  proc scorerQuit { num } { Line 1546  proc scorerQuit { num } {
     global gScorer      global gScorer
     set gScorer(pause.$num) 1      set gScorer(pause.$num) 1
     set gScorer(quit.$num) 1      set gScorer(quit.$num) 1
     puts [trace vinfo gScorer(quit.$num)]      #puts [trace vinfo gScorer(quit.$num)]
     catch {scorerMessage $num "Quitting. . . " info}      catch {scorerMessage $num "Quitting. . . " info}
 }  }
   
Line 1554  proc scorerQuit { num } { Line 1558  proc scorerQuit { num } {
 proc scorerClose { num {mustClose 0} {dummy ""} {dummy2 ""} {dummy3 ""}} {  proc scorerClose { num {mustClose 0} {dummy ""} {dummy2 ""} {dummy3 ""}} {
     global gScorer      global gScorer
   
     puts "scorerClose"  
     set message "Are you sure you wish to close?"      set message "Are you sure you wish to close?"
     catch {      catch {
  if { $gScorer(needToUpdateDB) } {   if { $gScorer(needToUpdateDB) } {
Removed from v.1.5  
changed lines
  Added in v.1.10

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>