Subversion Repositories wimsdev

!if $sdoc=$empty

!if $(s$(type))=$empty

  !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot

  !if NaN isin $[$($type)/10] or $($type)<1 or $($type)>$($(type)tot)

    error=baddocnumber

    error=bad$(type)number

  sdoc=$doc

  s$type=$($type)

  tmp=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex

  tmp=!record $(s$type) of wimshome/log/classes/$wims_class/$(type)/.$(type)index

  title=!line 4 of $tmp

  title=!line 3 of $tmp

  !if $sdoc>=1 and $sdoc<=$doctot

  !if $(s$type)>=1 and $(s$type)<=$($(type)tot)

    !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\

    !read proc/updatefield.proc wimshome/log/classes/$wims_class/$(type)/.$(type)index\

$sdoc\

$(s$type)\

    !readproc adm/updatesequence.proc doc,$sdoc

    !readproc adm/updatesequence.proc $(type),$(s$type)