version 1.7, 1999/12/13 21:38:44
|
version 1.8, 2000/01/05 21:11:15
|
Line 2923 proc CTcreateSummaryReport { num cmdnum
|
Line 2923 proc CTcreateSummaryReport { num cmdnum
|
CTputs $cmdnum [read $fileId] |
CTputs $cmdnum [read $fileId] |
CToutput $num $cmdnum |
CToutput $num $cmdnum |
} |
} |
|
} |
|
|
|
########################################################### |
|
# CTsetList |
|
########################################################### |
|
########################################################### |
|
########################################################### |
|
proc CTsetList { num } { |
|
global gCT gFile |
|
set list "" |
|
for { set i 0 } { $i < 1000 } { incr i } { |
|
if { [file readable [file join $gFile($num) records set$i.db]] } { |
|
lappend list |
|
} |
} |
} |
|
|