--- capa/capa51/GUITools/groupemail.tcl	2000/02/08 22:18:11	1.2
+++ capa/capa51/GUITools/groupemail.tcl	2000/02/08 22:40:33	1.3
@@ -93,4 +93,29 @@ 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]
+    }
 }
\ No newline at end of file