proc runGroupEmail { capaConfigFile } {
global gUniqueNumber gFile gWindowMenu gCT
set num [incr gUniqueNumber]
set gFile($num) [file dirname $capaConfigFile]
parseCapaConfig $num $gFile($num)
parseCapaUtilsConfig $num $gFile($num)
set emailwin [toplevel .email$num]
$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
}
}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>