version 1.5, 1999/10/28 21:40:33
|
version 1.6, 1999/11/02 19:10:44
|
Line 41 proc runCapaTools { classDirConfigFile }
|
Line 41 proc runCapaTools { classDirConfigFile }
|
# $utilsMenu add command -label "Email" -command "" |
# $utilsMenu add command -label "Email" -command "" |
# $utilsMenu add command -label "View Score File" -command "" |
# $utilsMenu add command -label "View Score File" -command "" |
$utilsMenu add command -label "View Submissions" -command "CTsubmissions $num" |
$utilsMenu add command -label "View Submissions" -command "CTsubmissions $num" |
|
$utilsMenu add command -label "Create a Class Report" -command "CTcreateReport $num" |
$utilsMenu add command -label "Analyze Class Report" -command "CTanalyzeReport $num" |
$utilsMenu add command -label "Analyze Class Report" -command "CTanalyzeReport $num" |
$utilsMenu add command -label "Analyze Responses" -command "CTanalyzeScorer $num" |
$utilsMenu add command -label "Analyze Responses" -command "CTanalyzeScorer $num" |
$utilsMenu add command -label "Graph a Responses Analysis" -command "CTgraphAnalyzeScorer $num" |
$utilsMenu add command -label "Graph a Responses Analysis" -command "CTgraphAnalyzeScorer $num" |
Line 371 proc CTsubmissions { num } {
|
Line 372 proc CTsubmissions { num } {
|
} |
} |
|
|
########################################################### |
########################################################### |
|
# CTcreateReport |
|
########################################################### |
|
########################################################### |
|
########################################################### |
|
proc CTcreateReport { num } { |
|
global gUniqueNumber gCT gFile |
|
|
|
set cmdnum [incr gUniqueNumber] |
|
set gCT(cmd.$cmdnum) createreport |
|
CTcreateReportDialog $num $cmdnum |
|
} |
|
|
|
########################################################### |
# CTanalyzeReport |
# CTanalyzeReport |
########################################################### |
########################################################### |
########################################################### |
########################################################### |
Line 2209 proc CTdrawBargraph { num } {
|
Line 2223 proc CTdrawBargraph { num } {
|
if { [set color [lindex $datum 3]] == "" } {set color $gBarGraph($num.color)} |
if { [set color [lindex $datum 3]] == "" } {set color $gBarGraph($num.color)} |
if { $gBarGraph($num.bucketscores) && ($i % $howoften == $when) } { |
if { $gBarGraph($num.bucketscores) && ($i % $howoften == $when) } { |
if { $i == $when } { |
if { $i == $when } { |
puts "$value-$which-$howoften" |
# puts "$value-$which-$howoften" |
$canvas create rectangle $textwidth \ |
$canvas create rectangle $textwidth \ |
$y1 $x2 $y2 -fill $color -tag $tag |
$y1 $x2 $y2 -fill $color -tag $tag |
} else { |
} else { |
puts "$value:$which:$howoften" |
# puts "$value:$which:$howoften" |
$canvas create rectangle [expr {$eachwidth*($i-$howoften+1)+$textwidth}]\ |
$canvas create rectangle [expr {$eachwidth*($i-$howoften+1)+$textwidth}]\ |
$y1 $x2 $y2 -fill $color -tag $tag |
$y1 $x2 $y2 -fill $color -tag $tag |
} |
} |
Line 2729 proc CTputsDiscussResults { num resultsV
|
Line 2743 proc CTputsDiscussResults { num resultsV
|
} |
} |
} |
} |
CTputs $num "Overall Unique #viewers: $result($num.viewers)\n" |
CTputs $num "Overall Unique #viewers: $result($num.viewers)\n" |
|
} |
|
|
|
########################################################### |
|
# CTcreateReportDialog |
|
########################################################### |
|
########################################################### |
|
########################################################### |
|
proc CTcreateReportDialog { num cmdnum } { |
|
global gCT gFile |
|
|
|
|
|
set gCT(summary.section.$cmdnum) 1 |
|
set gCT(summary.set.$cmdnum) 1 |
|
|
|
set summary [toplevel $gCT($num).summary] |
|
set whoFrame [frame $summary.whoFrame -borderwidth 4 -relief groove] |
|
set whichFrame [frame $summary.whichFrame -borderwidth 4 -relief groove] |
|
set sortFrame [frame $summary.sortFrame] |
|
set file2Frame [frame $summary.file2Frame] |
|
set buttonFrame [frame $summary.buttonFrame] |
|
pack $whoFrame $whichFrame $sortFrame $file2Frame $buttonFrame -side top |
|
pack configure $whoFrame $whichFrame -padx 10 -pady 10 |
|
|
|
set sectionFrame [frame $whoFrame.section] |
|
set allFrame [frame $whoFrame.all] |
|
pack $sectionFrame $allFrame -side top |
|
|
|
set gCT(summary.who.$cmdnum) section |
|
|
|
radiobutton $sectionFrame.section -text \ |
|
"For students in default section:" -variable gCT(summary.who.$cmdnum) \ |
|
-value section |
|
entry $sectionFrame.entry -textvariable gCT(summary.section.$cmdnum) -width 3 |
|
pack $sectionFrame.section $sectionFrame.entry -side left |
|
|
|
radiobutton $allFrame.all -text "For all students in the class" \ |
|
-variable gCT(summary.who.$cmdnum) -value all |
|
pack $allFrame.all |
|
|
|
set sectionFrame [frame $whichFrame.section] |
|
set allFrame [frame $whichFrame.all] |
|
pack $sectionFrame $allFrame -side top |
|
|
|
set gCT(summary.which.$cmdnum) specific |
|
|
|
radiobutton $sectionFrame.section -text "For set:" \ |
|
-variable gCT(summary.which.$cmdnum) -value specific |
|
entry $sectionFrame.entry -textvariable gCT(summary.set.$cmdnum) -width 3 |
|
pack $sectionFrame.section $sectionFrame.entry -side left |
|
|
|
radiobutton $allFrame.all -text "For all sets up to:" -variable \ |
|
gCT(summary.which.$cmdnum) -value upto |
|
entry $allFrame.entry -textvariable gCT(summary.set.$cmdnum) -width 3 |
|
pack $allFrame.all $allFrame.entry -side left |
|
|
|
set firstFrame [frame $sortFrame.firstFrame -borderwidth 4 -relief groove] |
|
set secondFrame [frame $sortFrame.secondFrame -borderwidth 4 \ |
|
-relief groove] |
|
pack $firstFrame $secondFrame -side left |
|
|
|
set gCT(summary.first.$cmdnum) name |
|
|
|
label $firstFrame.label -text "Sorting Order - Primary" |
|
radiobutton $firstFrame.name -text "Student Name" -variable \ |
|
gCT(summary.first.$cmdnum) -value name |
|
radiobutton $firstFrame.number -text "Student Number" -variable \ |
|
gCT(summary.first.$cmdnum) -value number |
|
radiobutton $firstFrame.section -text "Section" -variable \ |
|
gCT(summary.first.$cmdnum) -value section |
|
radiobutton $firstFrame.grade -text "Grade" -variable gCT(summary.first.$cmdnum) \ |
|
-value grade |
|
pack $firstFrame.label $firstFrame.name $firstFrame.number \ |
|
$firstFrame.section $firstFrame.grade -side top -anchor w |
|
|
|
set gCT(summary.second.$cmdnum) number |
|
|
|
label $secondFrame.label -text "Sorting Order - Secondary" |
|
radiobutton $secondFrame.name -text "Student Name" -variable \ |
|
gCT(summary.second.$cmdnum) -value name |
|
radiobutton $secondFrame.number -text "Student Number" -variable \ |
|
gCT(summary.second.$cmdnum) -value number |
|
radiobutton $secondFrame.section -text "Section" -variable \ |
|
gCT(summary.second.$cmdnum) -value section |
|
radiobutton $secondFrame.grade -text "Grade" -variable gCT(summary.second.$cmdnum) \ |
|
-value grade |
|
pack $secondFrame.label $secondFrame.name $secondFrame.number \ |
|
$secondFrame.section $secondFrame.grade -side top -anchor w |
|
|
|
set defaultFrame [frame $file2Frame.defaultFrame] |
|
set fileFrame [frame $file2Frame.fileFrame] |
|
pack $defaultFrame $fileFrame -side top |
|
|
|
set gCT(summary.filename.$cmdnum) default |
|
|
|
radiobutton $defaultFrame.default -text "Grader Chooses File Name" \ |
|
-variable gCT(summary.filename.$cmdnum) -value default |
|
pack $defaultFrame.default |
|
|
|
radiobutton $fileFrame.label -text "Specified Output File:" \ |
|
-variable gCT(summary.filename.$cmdnum) -value specified |
|
set entryFrame [frame $fileFrame.entryFrame] |
|
button $fileFrame.select -text "Select File" \ |
|
-command "selectOutputFile" |
|
pack $fileFrame.label $entryFrame $fileFrame.select -side left |
|
entry $entryFrame.entry -textvariable gCT(summary.file.$cmdnum) \ |
|
-xscrollcommand "$entryFrame.scroll set" |
|
scrollbar $entryFrame.scroll -orient h -command \ |
|
"$entryFrame.entry xview" |
|
pack $entryFrame.entry $entryFrame.scroll |
|
pack configure $entryFrame.scroll -fill x |
|
|
|
button $buttonFrame.create -text "Create" -command \ |
|
"removeWindowEntry Summary |
|
destroy $summary |
|
CTcreateSummaryReport $num $cmdnum" |
|
button $buttonFrame.cancel -text "Cancel" -command \ |
|
"removeWindowEntry Summary |
|
destroy $summary" |
|
pack $buttonFrame.create $buttonFrame.cancel -side left |
|
|
|
Centre_Dialog $summary default |
|
} |
|
|
|
########################################################### |
|
# CTcreateSummaryReport |
|
########################################################### |
|
########################################################### |
|
########################################################### |
|
proc CTcreateSummaryReport { num cmdnum } { |
|
global gCT gFile |
|
|
|
displayStatus "Opening File" both $cmdnum |
|
|
|
switch $gCT(summary.who.$cmdnum) { |
|
all { |
|
set file ClassSet$gCT(summary.set.$cmdnum).rpt |
|
} |
|
section { |
|
set file Sec$gCT(summary.section.$cmdnum)Set$gCT(summary.set.$cmdnum).rpt |
|
} |
|
default { |
|
displayError "An error has occured while creating a summary \ |
|
report $gCT(summary.section.$cmdnum)" |
|
return |
|
} |
|
} |
|
|
|
if { $gCT(summary.filename.$cmdnum) == "specified" } { |
|
set file $gCT(summary.file.$cmdnum) |
|
} |
|
if { $file == "" } { |
|
removeStatus |
|
displayError "Must specify a valid filename" |
|
return |
|
} |
|
updateStatusMessage "Creating Summary" $cmdnum |
|
|
|
set cwd [pwd] |
|
cd $gFile($num) |
|
set error [ catch {CTcreateSummary $file $cmdnum} ] |
|
cd $cwd |
|
|
|
removeStatus $cmdnum |
|
|
|
if {!$error && "Yes" == [makeSure "Created summary file $file, would you like to see it?"]} { |
|
set fileId [open [file join $gFile($num) $file] r] |
|
CTputs $cmdnum [read $fileId] |
|
CToutput $num $cmdnum |
|
} |
} |
} |
|
|