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