Subversion Repositories wimsdev

!set type=glossary
!set glossary=$gl

!if NaN isin $[$($type)/10] or $($type)<1 or $($type)>$($(type)tot)
  error=bad$(type)number
  !exit
!endif

s$type=$($type)
tmp=!record $(s$type) of wimshome/log/classes/$wims_class/tool/.$(type)index
s=!line 1 of $tmp
tmp=!replace internal line number 1 by $[1-$s] in $tmp
!read proc/updatefield.proc wimshome/log/classes/$wims_class/tool/.$(type)index\
$(s$type)\
\
$tmp

!restart module=home