Rev 12330 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
12338 | bpr | 1 | !! doc $sdoc |
9649 | guerimand | 2 | |
12338 | bpr | 3 | !if NaN isin $[$($type)/10] or $($type)<1 or $($type)>$($(type)tot) |
4 | error=bad$(type)number |
||
12330 | bpr | 5 | !exit |
9649 | guerimand | 6 | !endif |
12338 | bpr | 7 | s$type=$($type) |
8 | tmp=!record $(s$type) of wimshome/log/classes/$wims_class/$type/.$(type)index |
||
9649 | guerimand | 9 | s=!line 5 of $tmp |
10 | tmp=!replace internal line number 5 by $[1-$s] in $tmp |
||
12338 | bpr | 11 | !read proc/updatefield.proc wimshome/log/classes/$wims_class/$(type)/.$(type)index\ |
12 | $(s$type)\ |
||
9649 | guerimand | 13 | \ |
14 | $tmp |
||
15 | |||
16 | !restart module=home |