--- capa/capa51/GUITools/groupemail.tcl	2000/03/22 21:08:02	1.5
+++ capa/capa51/GUITools/groupemail.tcl	2000/11/13 21:36:17	1.8
@@ -1,4 +1,27 @@
-#Copyright 2000 by Guy Albertelli
+# allow mass emailing to students
+#  Copyright (C) 1992-2000 Michigan State University
+#
+#  The CAPA system is free software; you can redistribute it and/or
+#  modify it under the terms of the GNU General Public License as
+#  published by the Free Software Foundation; either version 2 of the
+#  License, or (at your option) any later version.
+#
+#  The CAPA system is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+#  General Public License for more details.
+#
+#  You should have received a copy of the GNU General Public
+#  License along with the CAPA system; see the file COPYING.  If not,
+#  write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+#  Boston, MA 02111-1307, USA.
+#
+#  As a special exception, you have permission to link this program
+#  with the TtH/TtM library and distribute executables, as long as you
+#  follow the requirements of the GNU GPL in regard to all of the
+#  software in the executable aside from TtH/TtM.
+
+#Created 2000 by Guy Albertelli
 proc runGroupEmail { capaConfigFile } {
     global gUniqueNumber gFile gWindowMenu gCT
     set num [incr gUniqueNumber]
@@ -192,7 +215,8 @@ proc emailGetSpecific { num } {
     set allids ""
     foreach element $temp { if { $element != "" } { lappend allids $element } }
     close $fileId
-    puts $allids
+#    puts $allids
+    set gCT($num.studentlist) ""
     set classlid [open [file join $gFile($num) classl] r]
     set aline [gets $classlid]
     while { ![eof $classlid] } {