Return to scorer.anon.tcl CVS log

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

Annotation of capa/capa51/GUITools/scorer.anon.tcl, revision 1.1

1.1     ! albertel    1: ###########################################################
        !             2: # compareCapaID2
        !             3: ###########################################################
        !             4: ###########################################################
        !             5: ###########################################################
        !             6: proc compareCapaID2 { onPaper onList } {
        !             7:     set length [string length $onPaper]
        !             8:     set same 0
        !             9:     for { set i 0 } { $i < $length } { incr i } {
        !            10: 	if { [string index $onPaper $i] == [string index $onList $i] } {
        !            11: 	    incr same
        !            12: 	}
        !            13:     }
        !            14:     return $same
        !            15: }
        !            16: 
        !            17: ###########################################################
        !            18: # getAnonModeID
        !            19: ###########################################################
        !            20: ###########################################################
        !            21: ###########################################################
        !            22: proc getAnonModeID { num answerStructVar} {
        !            23:     global gScorer
        !            24:     upvar $answerStructVar answerStruct
        !            25: 
        !            26:     set i 0
        !            27:     set length [llength $gScorer(studentList.$num)]
        !            28: #    puts ofrloop:\ [time { 
        !            29: 	foreach student $gScorer(studentList.$num) {
        !            30: 	    lappend which([compareCapaID $answerStruct(CapaID) [lindex $student 3]]) $i
        !            31: 	    incr i
        !            32: 	}
        !            33: #    }]
        !            34:     set highest [lindex [lsort -decreasing -integer [array names which]] 0]
        !            35:     set answerStruct(indices) $which($highest)
        !            36:     foreach index $which($highest) {
        !            37: 	lappend result [lindex [lindex $gScorer(studentList.$num) $index] 1]
        !            38:     }
        !            39:     return $result
        !            40: }
        !            41: 
        !            42: ###########################################################
        !            43: # scorerSum
        !            44: ###########################################################
        !            45: ###########################################################
        !            46: ###########################################################
        !            47: proc scorerSum { scores } {
        !            48:     set total 0
        !            49:     foreach score [split $scores {}] { incr total $score }
        !            50:     return $total
        !            51: }
        !            52: 
        !            53: ###########################################################
        !            54: # pickAnonHighest
        !            55: ###########################################################
        !            56: ###########################################################
        !            57: ###########################################################
        !            58: proc pickAnonHighest { num answerStructVar which } {
        !            59:     global gPrompt gScorer
        !            60:     upvar $answerStructVar answerStruct
        !            61: 
        !            62:     set scores ""
        !            63:     foreach index $which {
        !            64: 	set studentNumber [lindex [lindex $gScorer(studentList.$num) $index] 1]
        !            65: 	lappend scores [list [scorerSum [finalScorer $num Lenient $studentNumber \
        !            66: 					     $answerStruct($studentNumber.numRight)]] \
        !            67: 			    $studentNumber]
        !            68:     }
        !            69: #    puts $scores
        !            70:     set scores [lsort -index 0 -integer $scores]
        !            71: #    puts $scores
        !            72: #    puts [lindex [lindex $scores 0] 1]
        !            73:     return [lindex [lindex $scores 0] 1]    
        !            74: }
        !            75: 
        !            76: ###########################################################
        !            77: # getWhichAnon
        !            78: ###########################################################
        !            79: ###########################################################
        !            80: ###########################################################
        !            81: proc getWhichAnon { num answerStructVar which } {
        !            82:     global gPrompt gScorer
        !            83:     upvar $answerStructVar answerStruct
        !            84: 
        !            85:     set dialog [toplevel .getWhichAnon$num -borderwidth 10]
        !            86:     wm title $dialog "Getting Which Anonymous"
        !            87: 
        !            88:     set msgFrame [frame $dialog.msg ]
        !            89:     set listFrame [frame $dialog.list ]
        !            90:     set typeInFrame [frame $dialog.typein]
        !            91:     set buttonFrame [frame $dialog.button]
        !            92:     pack $msgFrame $listFrame $typeInFrame $buttonFrame
        !            93: 
        !            94:     label $msgFrame.lbl -text "Grading:"
        !            95:     label $msgFrame.lbl2 -text "Student Number: $answerStruct(StudentNumber)"
        !            96:     label $msgFrame.lbl3 -text "CapaID:         $answerStruct(CapaID)"
        !            97:     label $msgFrame.lbl4 -text "Name:           $answerStruct(FirstName) $answerStruct(LastName)"
        !            98:     label $msgFrame.lbl5 -text "Select the paper used to grade student." 
        !            99:     label $msgFrame.lbl6 -text "Name                          StuNumber capa  capa      score"
        !           100:     label $msgFrame.lbl7 -text "                                         ID  IDplus  Std  Len  Str "
        !           101: 
        !           102:     pack $msgFrame.lbl $msgFrame.lbl2 $msgFrame.lbl3 $msgFrame.lbl4 $msgFrame.lbl5 \
        !           103: 	$msgFrame.lbl6 $msgFrame.lbl7 -anchor w
        !           104: 
        !           105:     set listbox [listbox $listFrame.list -yscrollcommand "$listFrame.scroll set" \
        !           106: 		     -width 67]
        !           107:     scrollbar $listFrame.scroll -command "$listFrame.list yview"
        !           108:     pack $listFrame.list $listFrame.scroll -side left
        !           109:     pack configure $listFrame.scroll -fill y
        !           110: 
        !           111:     label $typeInFrame.lbl -text "Type In Student Number:"
        !           112:     entry $typeInFrame.typein -width 9 -textvariable gPrompt(typedin)
        !           113:     pack $typeInFrame.lbl $typeInFrame.typein -side left
        !           114: 
        !           115:     button $buttonFrame.button -text Select -command "set gPrompt(ok) 1"
        !           116:     button $buttonFrame.typein -text "Use Typed In Value" -command "set gPrompt(ok) 2"
        !           117:     pack $buttonFrame.button $buttonFrame.typein -side left
        !           118:     foreach index $which {
        !           119: 	set studentNumber [lindex [lindex $gScorer(studentList.$num) $index] 1]
        !           120: 	set scores ""
        !           121: 	foreach methodtype {CAPA Lenient Strict} {
        !           122: 	    lappend scores [scorerSum [finalScorer $num $methodtype $studentNumber \
        !           123: 					   $answerStruct($studentNumber.numRight)] ]
        !           124: 	}
        !           125: 	$listbox insert end [eval format {{%30s %s %4d %6s %4d %4d %4d}} [lindex $gScorer(studentList.$num) $index] $scores]
        !           126:     }
        !           127: 
        !           128:     Centre_Dialog $dialog default
        !           129:     focus $dialog
        !           130:     capaRaise $dialog
        !           131:     capaGrab $dialog
        !           132:     while { 1 } {
        !           133: 	update
        !           134: 	vwait gPrompt(ok)
        !           135: 	if { $gPrompt(ok) == 1 } {
        !           136: 	    if { [$listbox curselection] != ""} { break }
        !           137: 	} else { 
        !           138: 	    if { [inClasslist $num $gPrompt(typedin)] } { break } else {
        !           139: 		displayError "$gPrompt(typedin) is not in the classl file"
        !           140: 	    }
        !           141: 	}
        !           142: 	set gPrompt(ok) 0
        !           143:     }
        !           144:     if { $gPrompt(ok) == 1 } {
        !           145: 	set selected [lindex $which [$listbox curselection]]
        !           146: 	set result [lindex [lindex $gScorer(studentList.$num) $selected] 1]
        !           147:     } else {
        !           148: 	set result $gPrompt(typedin)
        !           149:     }
        !           150:     capaGrab release $dialog
        !           151:     destroy $dialog
        !           152:     
        !           153:     return $result
        !           154: }
        !           155: 
        !           156: ###########################################################
        !           157: # inClasslist
        !           158: ###########################################################
        !           159: ###########################################################
        !           160: ###########################################################
        !           161: proc inClasslist { num pid } {
        !           162:     global gScorer
        !           163:     if {[lsearch -regexp $gScorer(studentList.$num) "\{.*\} .*$pid.*"]!=-1} {
        !           164: 	return 1
        !           165:     } {
        !           166: 	return 0
        !           167:     }
        !           168: }