version 1.2, 2000/02/08 22:18:11
|
version 1.3, 2000/02/08 22:40:33
|
Line 93 proc emailSend { num } {
|
Line 93 proc emailSend { num } {
|
set message [emailMessage $student] |
set message [emailMessage $student] |
emailSendMessage $student $message |
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] |
|
} |
} |
} |
|
|