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 |