|
version 1.7, 2000/08/07 20:47:29
|
version 1.8, 2000/11/13 21:36:17
|
|
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] } { |
![[BACK]](/icons/back.gif){kind=icon}
Return to groupemail.tcl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools