Rev 12330 | Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 9649 | guerimand | 1 | !! delete doc $sdoc |
| 2 | |||
| 3 | !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot |
||
| 4 | error=baddocnumber |
||
| 5 | !exit |
||
| 6 | !endif |
||
| 7 | sdoc=$doc |
||
| 8 | tmp=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex |
||
| 9 | s=!line 5 of $tmp |
||
| 10 | tmp=!replace internal line number 5 by $[1-$s] in $tmp |
||
| 11 | !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\ |
||
| 12 | $sdoc\ |
||
| 13 | \ |
||
| 14 | $tmp |
||
| 15 | |||
| 16 | !restart module=home |