Return to groupemail.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

-some more work on groupemail, got whole class selection done

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
    }
}

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]
    }
}