capa/capa51/GUITools/groupemail.tcl - diff

Return to groupemail.tcl CVS log

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

-version 1.2, 2000/02/08 22:18:11
+version 1.3, 2000/02/08 22:40:33
  Line 93  proc emailSend { num } {
  	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]
+     }
  }