Rev 17308 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 17308 | guerimand | 1 | !! process to log user work at end of work |
| 2 | |||
| 3 | !read proc/listwork.proc $wims_read_parm |
||
| 4 | nb_=!linecnt $exolist |
||
| 5 | !if $nb_=0 |
||
| 6 | !exit |
||
| 7 | !endif |
||
| 8 | out_=!word 2 of $cfdata |
||
| 9 | out_=$out_,$wims_now |
||
| 10 | !for k_=1 to $nb_ |
||
| 18169 | bpr | 11 | l_=!line $k_ of $exolist |
| 12 | !readproc proc/exoscore.proc $(l_[1]),$(l_[2]),$wims_read_parm |
||
| 13 | out_=!append item $(l_[1]) $(l_[2]) $[$(l_[3])/100] $score_out to $out_ |
||
| 17308 | guerimand | 14 | !next k_ |
| 15 | !appendfile wimshome/log/classes/$wims_class/swork/log.$wims_read_parm :$out_ |
||
| 16 | !sh rm -f $wims_home/log/classes/$wims_class/swork/averagescore.$wims_read_parm |