--- capa/capa51/GUITools/capastats.tcl	1999/10/28 21:40:33	1.5
+++ capa/capa51/GUITools/capastats.tcl	1999/11/02 19:10:44	1.6
@@ -41,6 +41,7 @@ proc runCapaTools { classDirConfigFile }
 #    $utilsMenu add command -label "Email" -command ""
 #    $utilsMenu add command -label "View Score File" -command ""
     $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 Responses" -command "CTanalyzeScorer $num"
     $utilsMenu add command -label "Graph a Responses Analysis" -command "CTgraphAnalyzeScorer $num"
@@ -371,6 +372,19 @@ proc CTsubmissions { num } {
 }
 
 ###########################################################
+# CTcreateReport
+###########################################################
+###########################################################
+###########################################################
+proc CTcreateReport { num } {
+    global gUniqueNumber gCT gFile
+
+    set cmdnum [incr gUniqueNumber]
+    set gCT(cmd.$cmdnum) createreport
+    CTcreateReportDialog $num $cmdnum
+}
+
+###########################################################
 # CTanalyzeReport
 ###########################################################
 ###########################################################
@@ -2209,11 +2223,11 @@ proc CTdrawBargraph { num } {
 	if { [set color [lindex $datum 3]] == "" } {set color $gBarGraph($num.color)}
 	if { $gBarGraph($num.bucketscores) && ($i % $howoften == $when) } {
 	    if { $i == $when } {
-		puts "$value-$which-$howoften"
+#		puts "$value-$which-$howoften"
 		$canvas create rectangle $textwidth \
 		    $y1 $x2 $y2 -fill $color -tag $tag
 	    } else {
-		puts "$value:$which:$howoften"
+#		puts "$value:$which:$howoften"
 		$canvas create rectangle [expr {$eachwidth*($i-$howoften+1)+$textwidth}]\
 		    $y1 $x2 $y2 -fill $color -tag $tag
 	    }
@@ -2729,4 +2743,173 @@ proc CTputsDiscussResults { num resultsV
 	}
     }
     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 
+    }
 }
\ No newline at end of file