version 1.1, 2000/02/02 19:14:10
|
version 1.3, 2000/02/08 22:40:33
|
Line 1
|
Line 1
|
proc runGroupEmail { capaConfigFile } { |
proc runGroupEmail { capaConfigFile } { |
global gUniqueNumber gFile gWindowMenu |
global gUniqueNumber gFile gWindowMenu gCT |
set num [incr gUniqueNumber] |
set num [incr gUniqueNumber] |
set gFile($num) [file dirname $capaConfigFile] |
set gFile($num) [file dirname $capaConfigFile] |
parseCapaConfig $num $gFile($num) |
parseCapaConfig $num $gFile($num) |
Line 9 proc runGroupEmail { capaConfigFile } {
|
Line 9 proc runGroupEmail { capaConfigFile } {
|
$gWindowMenu add command -label "Sending Email $gFile($num)" \ |
$gWindowMenu add command -label "Sending Email $gFile($num)" \ |
-command "capaRaise \"$emailwin\"" |
-command "capaRaise \"$emailwin\"" |
wm title $scorerWin $classDir |
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 |
|
} |
|
} |
|
|
|
proc emailGetStudents { num } { |
|
global gCT gFile |
|
|
|
switch gCT($num.emailtype) { |
|
Class { emailGetClass $num } |
|
Sections { } |
|
Specific { } |
|
Script { } |
|
} |
|
} |
|
|
|
proc emailGetClass { num } { |
|
global gCT gFile |
|
set classlid [open [file join $gFile($num) classl] r] |
|
set aline [gets $classlid] |
|
while { ![eof $classlid] } { |
|
set email [string trim [string range $aline 60 99]] |
|
set firstname [string trim [lindex [lindex [split [string range $aline 24 59] ","] 1] 0]] |
|
set lastname [string trim [lindex [split [string range $aline 24 59] ","] 0]] |
|
set stunum [string trim [string range $aline 14 22]] |
|
lappend gCT($num.studentlist) [list $email $firstname $lastname $stunum] |
|
set aline [gets $classlid] |
|
} |
} |
} |
|
|