Rev 9623 | Rev 9650 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 9623 | guerimand | 1 | !! delete doc $sdoc |
| 9646 | guerimand | 2 | |
| 3 | !if $sdoc=$empty |
||
| 4 | !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot |
||
| 5 | error=baddocnumber |
||
| 6 | !exit |
||
| 7 | !endif |
||
| 8 | sdoc=$doc |
||
| 9 | !endif |
||
| 9623 | guerimand | 10 | !if $sdoc>=1 and $sdoc<=$doctot |
| 11 | !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\ |
||
| 12 | $sdoc\ |
||
| 13 | delete\ |
||
| 14 | |||
| 15 | |||
| 16 | !endif |
||
| 17 | !restart module=home |