version 1.11, 2000/01/31 18:34:13
|
version 1.12, 2000/02/02 19:14:10
|
Line 1721 proc CTreportDist { num file percentage
|
Line 1721 proc CTreportDist { num file percentage
|
} |
} |
set aline [gets $fileId] |
set aline [gets $fileId] |
} |
} |
CTputs $num "Scores #acheived\n" |
CTputs $num "Scores #achieved\n" |
set scorelist "" |
set scorelist "" |
set templist [array names totals *.score] |
set templist [array names totals *.score] |
foreach temp $templist {lappend possiblescores [lindex [split $temp .] 0]} |
foreach temp $templist {lappend possiblescores [lindex [split $temp .] 0]} |
Line 1798 proc CTgradeDistribution { num classpath
|
Line 1798 proc CTgradeDistribution { num classpath
|
removeStatus $num |
removeStatus $num |
displayStatus "Pondering data . . ." spinner $num |
displayStatus "Pondering data . . ." spinner $num |
CTputs $num " There are $valid_cnt entries in file $filename\n" |
CTputs $num " There are $valid_cnt entries in file $filename\n" |
CTputs $num "Score #acheived\n" |
CTputs $num "Score #achieved\n" |
set scorelist "" |
set scorelist "" |
foreach score [lsort -integer [array names total_score]] { |
foreach score [lsort -integer [array names total_score]] { |
CTputs $num [format "%5d:%6d\n" $score $total_score($score)] |
CTputs $num [format "%5d:%6d\n" $score $total_score($score)] |
Line 1885 proc CTgradeDistributionRange { num clas
|
Line 1885 proc CTgradeDistributionRange { num clas
|
set total_score($i) 0 |
set total_score($i) 0 |
} |
} |
foreach sNum [array names studentScores] { incr total_score($studentScores($sNum)) } |
foreach sNum [array names studentScores] { incr total_score($studentScores($sNum)) } |
CTputs $num "Scores #acheived\n" |
CTputs $num "Scores #achieved\n" |
set scorelist "" |
set scorelist "" |
foreach score [lsort -integer [array names total_score]] { |
foreach score [lsort -integer [array names total_score]] { |
CTputs $num [format "%5d:%6d\n" $score $total_score($score)] |
CTputs $num [format "%5d:%6d\n" $score $total_score($score)] |
Line 2733 proc CTdiscussForum { num file dir resul
|
Line 2733 proc CTdiscussForum { num file dir resul
|
close $fileId |
close $fileId |
set result($num.viewers) [llength [array names ever]] |
set result($num.viewers) [llength [array names ever]] |
set result($num.last) $last |
set result($num.last) $last |
#IDEAS: stick into capastats |
#IDEAS: |
# : howmany viws are repeats |
# : how many views are repeats |
# : Student Course Profile, add #ViewProblems #Posts |
# : Student Course Profile, add #ViewProblems #Posts |
# : add some portion of these stats to analyze log files? |
# : add some portion of these stats to analyze log files? |
} |
} |