[BACK]Return to groupemail.tcl CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / GUITools

Diff for /capa/capa51/GUITools/groupemail.tcl between versions 1.1 and 1.2

version 1.1, 2000/02/02 19:14:10 version 1.2, 2000/02/08 22:18:11
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
       }
 }  }
   
Removed from v.1.1  
changed lines
  Added in v.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>