--- capa/capa51/GUITools/groupemail.tcl	2000/02/02 19:14:10	1.1
+++ capa/capa51/GUITools/groupemail.tcl	2000/02/08 22:18:11	1.2
@@ -1,5 +1,5 @@
 proc runGroupEmail { capaConfigFile } {
-    global gUniqueNumber gFile gWindowMenu
+    global gUniqueNumber gFile gWindowMenu gCT
     set num [incr gUniqueNumber]
     set gFile($num) [file dirname $capaConfigFile]
     parseCapaConfig $num $gFile($num)
@@ -9,4 +9,88 @@ proc runGroupEmail { capaConfigFile } {
     $gWindowMenu add command -label "Sending Email $gFile($num)" \
 	-command "capaRaise \"$emailwin\""
     wm title $scorerWin $classDir
+    
+    set fileFrame [frame $emailwin.file]
+    set sentFrame [frame $emailwin.sent]
+    set buttonFrame [frame $emailwin.button]
+    pack $fileFrame $sentFrame $buttonFrame -side top
+
+    label $fileFrame.label -text "Mail Template:"
+    entry $fileFrame.file -textvariable gCT($num.template)
+    button $fileFrame.select -text "Browse" \
+	-command "set gCT($num.template) [tk_fileOpen]"
+    pack $fileFrame.label $fileFrame.file $fileFrame.select -side left
+    
+    label $sentFrame.text -text "Send To:"
+    set classFrame [frame $sentFrame.class]
+    set sectionFrame [frame $sentFrame.section]
+    set studentFrame [frame $sentFrame.student]
+    set scriptFrame [frame $sentFrame.script]
+    pack $sentFrame.text $classFrame $sectionFrame $studentFrame $scriptFrame -side top
+    
+    #class
+    radiobutton $classFrame.class -text "Whole Class" \
+	-variable gCT($num.emailtype) -value "Class"
+    pack $classFrame.class
+
+    #sections
+    radiobutton $sectionFrame.button -text "Sections" \
+	-variable gCT($num.emailtype) -value "Sections"
+    message $sectionFrame.sections -textvariable gCt($num.sections)
+    button $sectionFrame.select -text "Select Section" -command emailSelectSections
+    pack $sectionFrame.button $sectionFrame.sections $sectionFrame.select -side top
+
+    #student
+    radiobutton $studentFrame.specific -text "Specify the student by:" \
+	    -value "Specific" -variable gCT($num.emailtype)
+    set studentNumber [frame $studentFrame.studentNumber]
+    set fullName [frame $studentFrame.fullName]
+    pack $studentFrame.specific $studentNumber $fullName -side top
+    pack configure $studentFrame.specific -anchor w
+    pack configure $studentNumber $fullName -anchor e
+
+    radiobutton $sectionFrame.section 
+    label $studentNumber.msg -text "Student Number: " 
+    entry $studentNumber.entry -textvariable gCT($num.studentNumber) \
+	    -width 9 -validate key -validatecommand "limitEntry %W 9 any %P"
+    pack $studentNumber.msg $studentNumber.entry -side left
+
+    label $fullName.msg -text "Student Name: "  
+    entry $fullName.msg2 -textvariable gCT($num.studentName) -width 35 \
+	-validate key -validatecommand "limitEntry %W 35 any %P"
+    pack $fullName.msg $fullName.msg2 -side left
+    
+    trace variable gCT($num.studentNumber) w \
+	"global gCT; set gCT($num.emailtype) Specific ;#"
+    trace variable gCT($num.studentName) w \
+	"global gCT; set gCT($num.emailtype) Specific ;#"
+    
+    bind $studentNumber.entry <KeyPress-Return> \
+	"fillInStudent gCT($num.studentName) gCT($num.studentNumber) 0"
+    bind $fullName.msg2 <KeyPress-Return> \
+	"fillInStudent gCT($num.studentName) gCT($num.studentNumber) 1"
+
+    #script
+    label $scriptFrame.label -text "Script Selection:"
+    entry $scriptFrame.file -textvariable gCT($num.template)
+    button $scriptFrame.select -text "Browse" \
+	-command "set gCT($num.template) [tk_fileOpen]"
+    pack $scriptFrame.label $scriptFrame.file $scriptFrame.select -side left
+
+    button $buttonFrame.send -text "Send" -command "emailSend $num"
+    button $buttonFrame.cancel -text "Cancel" -command "emailClose $num"
+    pack $buttonFrame.send $buttonFrame.cancel -side top
+}
+
+proc emailSend { num } {
+    global gCT gFile
+
+    if { "Cancel" == [emailConfirm $num]} { return }
+    emailGetStudents $num
+
+    foreach student gCT($num.studentlist) {
+#	foreach {email firstname lastname stunum} $student {break}
+	set message [emailMessage $student]
+	emailSendMessage $student $message
+    }
 }
\ No newline at end of file