--- capa/capa51/GUITools/common.tcl	2000/01/31 18:34:13	1.7
+++ capa/capa51/GUITools/common.tcl	2000/02/22 18:10:27	1.8
@@ -568,14 +568,24 @@ proc parseCapaConfig { {num "" } { path
 		"answers_command *= *" -
 		"dvips_command *= *" -
                 "xdvi_command *= *" -
+		"mail_command *= *" -
 		"IMP_color *= *" -
 		"comment_color *= *" -
 		"exam_path *= *" -
 		"quiz_path *= *" -
 		"supp_path *= *" -
+		"correction_path *= *" -
 		"default_try_val *= *" -
 		"default_prob_val *= *" -
 		"default_hint_val *= *" -
+		"homework_weight *= *" -
+		"quiz_weight *= *" -
+		"exam_weight *= *" -
+		"final_weight *= *" -
+		"correction_weight *= *" -
+		"final_exam_set_number *= *" -
+		"homework_count *= *" -
+		"quiz_count *= *" -
 		"others_path *= *" { 
 		    set gCapaConfig($prefix[lindex $aline 0]) [lindex $aline end] 
 		}
@@ -1221,6 +1231,7 @@ proc multipleChoice { window message cho
     }
 
     bind $setWin <Return> "set gPromptMC(ok) 1"
+    bind $setWin <Double-1> "set gPromptMC(ok) 1"
     Centre_Dialog $setWin default
     update idletasks
     focus $setWin
@@ -1235,6 +1246,7 @@ proc multipleChoice { window message cho
     }
     capaGrab release $setWin
     destroy $setWin
+    update idletasks
     if { $gPromptMC(ok) == 1 } {
 	foreach selection $select { lappend result [lindex $choices $selection] }
 	if { [llength $result] == 1 } { set result [lindex $result 0] }
@@ -1794,3 +1806,235 @@ proc limitEntry { window max type {newva
     return 1
 }
 
+###########################################################
+# getCapaID
+###########################################################
+###########################################################
+###########################################################
+proc getCapaID { setinfo stunum sectionnum {path .} } {
+    global  gMaxSet
+    set pwd [pwd]
+    cd $path
+    set result ""
+    switch -regexp -- $setinfo {
+	^[0-9]+$ {
+	    set result [getSpecificCapaId $stunum $setinfo]
+	}
+	^[0-9]+\.\.[0-9]+$ {
+	    set range [split $setinfo .]
+	    set low [lindex $range 0]
+	    set high [lindex $range 2]
+	    for { set i $low } { $i <= $high } { incr i } {
+		append result "[getSpecificCapaId $stunum $i] "
+	    }
+	}
+	^[0-9]+(,[0-9]+)+$ {
+	    set list [split $setinfo ,]
+	    foreach set $list {
+		append result "[getSpecificCapaId $stunum $set] "
+	    }
+	}
+	all {
+	    for { set i 1 } { $i <= $gMaxSet } { incr i } {
+		if { [file exists [file join records date$i.db]] } {
+		    if { [isSetOpen $stunum $sectionnum $i] } {
+			append result "[getSpecificCapaId $stunum $i] "
+		    }
+		} else {
+		    break
+		}
+	    }
+	}
+	default {
+	    set result "UNKNOWN"
+	}
+    }
+    cd $pwd
+    set result [string trim $result]	
+    return $result
+}
+
+###########################################################
+# getScores
+###########################################################
+###########################################################
+###########################################################
+proc getScores { setinfo stunum sectionnum {path .} {max 99} {limitVar none}} {
+    global  gMaxSet
+    if { $limitVar != "none" } { upvar $limitVar limit }
+    set pwd [pwd]
+    cd $path
+    set result "0"
+    switch -regexp -- $setinfo {
+	^[0-9]+$ {
+	    if { $setinfo <= $max } {
+		set result [format "%4d" [getScore $stunum $setinfo]]
+	    }
+	}
+	^[0-9]+\.\.[0-9]+$ {
+	    set range [split $setinfo .]
+	    set low [lindex $range 0]
+	    set high [lindex $range 2]
+	    if { $high > $max } { set high $max }
+	    for { set i $low } { $i <= $high } { incr i } {
+		incr result [getScore $stunum $i]
+	    }
+	    set result [format "%4d" $result]
+	}
+	^[0-9]+(,[0-9]+)+$ {
+	    set result ""
+	    set list [split $setinfo ,]
+	    foreach set $list {
+		if { $set > $max } { continue }
+		append result [format "%4d " [getScore $stunum $set]]
+	    }
+	}
+	all {
+	    for { set i 1 } { $i <= $max } { incr i } {
+		if { [file exists [file join records date$i.db]] } {
+		    if { [isSetOpen $stunum $sectionnum $i] } {
+			incr result [getScore $stunum $i]
+		    }
+		} else {
+		    set result [format "%4d" $result]
+		    break
+		}
+	    }
+	    set limit [expr {$i-1}]
+	}
+	default {
+	    set result "UNKNOWN"
+	}
+    }
+    cd $pwd
+    set result [string trimright $result]	
+    return $result
+}
+
+###########################################################
+# getScore
+###########################################################
+###########################################################
+###########################################################
+proc getScore { stunum set } {
+    set fileId [open [file join records set$set.db] r]
+    set total_score 0
+    set aline [gets $fileId]
+    set weights [split [gets $fileId] {}]
+    set aline [gets $fileId]
+    set aline [gets $fileId]
+    while {! [eof $fileId]} {
+	if {[string toupper $stunum] == [string toupper [lindex [split $aline " "] 0]]} {
+	    set scores [lindex [split [lindex [split $aline " "] 1] ","] 0]
+	    set scores [split $scores {}] 
+	    for { set i 0 } { $i < [llength $scores] } { incr i } {
+		switch -- [lindex $scores $i] {
+		    y - Y { incr total_score [lindex $weights $i] }
+		    n - N - e - E - - { }
+		    0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 {
+			# catching in case weights is not as long as the record
+			catch {incr total_score [lindex $scores $i]}
+		    }
+		    default { puts "Unknown character [lindex $scores $i]" }
+		}
+	    }
+	    break
+	}
+	set aline [gets $fileId]
+    }
+    close $fileId
+    return $total_score
+}
+
+###########################################################
+# getTotals
+###########################################################
+###########################################################
+###########################################################
+proc getTotals { setinfo stunum sectionnum {path .} {max 99} {limitVar none}} {
+    global  gMaxSet
+    if { $limitVar != "none" } { upvar $limitVar limit }
+    set pwd [pwd]
+    cd $path
+    set result "0"
+    switch -regexp -- $setinfo {
+	^[0-9]+$ {
+	    if { $setinfo <= $max } {
+		set result [format "%4d" [getTotal $stunum $setinfo]]
+	    }
+	}
+	^[0-9]+\.\.[0-9]+$ {
+	    set range [split $setinfo .]
+	    set low [lindex $range 0]
+	    set high [lindex $range 2]
+	    if { $high > $max } { set high $max }
+	    for { set i $low } { $i <= $high } { incr i } {
+		incr result [getTotal $stunum $i]
+	    }
+	    set result [format "%4d" $result]
+	}
+	^[0-9]+(,[0-9]+)+$ {
+	    set result ""
+	    set list [split $setinfo ,]
+	    foreach set $list {
+		if { $set > $max } { continue }
+		append result [format "%4d " [getTotal $stunum $set]]
+	    }
+	}
+	all {
+	    for { set i 1 } { $i <= $max } { incr i } {
+		if { [file exists [file join records date$i.db]] } {
+		    if { [isSetOpen $stunum $sectionnum $i] } {
+			incr result [getTotal $stunum $i]
+		    }
+		} else {
+		    set result [format "%4d" $result]
+		    break
+		}
+	    }
+	    set limit [expr {$i-1}]
+	}
+	default {
+	    set result "UNKNOWN"
+	}
+    }
+    cd $pwd
+    set result [string trimright $result]
+    return $result
+}
+
+###########################################################
+# getTotal
+###########################################################
+###########################################################
+###########################################################
+proc getTotal { stunum set } {
+    set fileId [open [file join records set$set.db] r]
+    set total_total 0
+    set aline [gets $fileId]
+    set weights [split [gets $fileId] {}]
+    set aline [gets $fileId]
+    set aline [gets $fileId]
+    while {! [eof $fileId]} {
+	if {[string toupper $stunum] == [string toupper [lindex [split $aline " "] 0]]} {
+	    set scores [lindex [split [lindex [split $aline " "] 1] ","] 0]
+	    set scores [split $scores {}] 
+	    for { set i 0 } { $i < [llength $scores] } { incr i } {
+		switch -- [lindex $scores $i] {
+		    e - E { }
+		    0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - y - Y - n - N - - { 
+			incr total_total [lindex $weights $i] 
+		    }
+		    default { 
+			incr total_total [lindex $weights $i] 
+			puts "Unknown character [lindex $scores $i]" 
+		    }
+		}
+	    }
+	    break
+	}
+	set aline [gets $fileId]
+    }
+    close $fileId
+    return $total_total
+}
\ No newline at end of file