capa/capa51/GUITools/capastats.tcl - diff

Return to capastats.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

-version 1.7, 1999/12/13 21:38:44
+version 1.8, 2000/01/05 21:11:15
  Line 2923  proc CTcreateSummaryReport { num cmdnum
  	CTputs $cmdnum [read $fileId]
  	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
+     }
  }