Rev 9646 | Rev 9654 | 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 |
||
| 9650 | guerimand | 9 | tmp=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex |
| 10 | title=!line 4 of $tmp |
||
| 9646 | guerimand | 11 | !endif |
| 9650 | guerimand | 12 | !bound step within 0,1 default 0 |
| 13 | |||
| 14 | !if $step=1 |
||
| 15 | !if $sdoc>=1 and $sdoc<=$doctot |
||
| 9623 | guerimand | 16 | !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\ |
| 17 | $sdoc\ |
||
| 18 | delete\ |
||
| 19 | |||
| 9650 | guerimand | 20 | !endif |
| 21 | !restart module=home |
||
| 9623 | guerimand | 22 | !endif |