[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.6 and 1.8

version 1.6, 2000/07/07 18:25:12 version 1.8, 2000/11/13 21:36:17
Line 2 Line 2
 #  Copyright (C) 1992-2000 Michigan State University  #  Copyright (C) 1992-2000 Michigan State University
 #  #
 #  The CAPA system is free software; you can redistribute it and/or  #  The CAPA system is free software; you can redistribute it and/or
 #  modify it under the terms of the GNU Library General Public License as  #  modify it under the terms of the GNU General Public License as
 #  published by the Free Software Foundation; either version 2 of the  #  published by the Free Software Foundation; either version 2 of the
 #  License, or (at your option) any later version.  #  License, or (at your option) any later version.
 #  #
 #  The CAPA system is distributed in the hope that it will be useful,  #  The CAPA system is distributed in the hope that it will be useful,
 #  but WITHOUT ANY WARRANTY; without even the implied warranty of  #  but WITHOUT ANY WARRANTY; without even the implied warranty of
 #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU  #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 #  Library General Public License for more details.  #  General Public License for more details.
 #  #
 #  You should have received a copy of the GNU Library General Public  #  You should have received a copy of the GNU General Public
 #  License along with the CAPA system; see the file COPYING.  If not,  #  License along with the CAPA system; see the file COPYING.  If not,
 #  write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,  #  write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 #  Boston, MA 02111-1307, USA.  #  Boston, MA 02111-1307, USA.
Line 215  proc emailGetSpecific { num } { Line 215  proc emailGetSpecific { num } {
     set allids ""      set allids ""
     foreach element $temp { if { $element != "" } { lappend allids $element } }      foreach element $temp { if { $element != "" } { lappend allids $element } }
     close $fileId      close $fileId
     puts $allids  #    puts $allids
       set gCT($num.studentlist) ""
     set classlid [open [file join $gFile($num) classl] r]      set classlid [open [file join $gFile($num) classl] r]
     set aline [gets $classlid]      set aline [gets $classlid]
     while { ![eof $classlid] } {      while { ![eof $classlid] } {
Removed from v.1.6  
changed lines
  Added in v.1.8

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