Subversion Repositories wimsdev

!bound step within 0,1 default 0

!if $step=0
 !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot
    error=baddocnumber
    !exit
 !endif
 sdoc=$doc
 sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex
 !distribute lines $sh into dir,param,title,desc,status,wksheet,autosheet
 !reset update
 !exit
!endif

!if $step=1
 !if $update!=$empty
  job=deldoc
  step=0
  !changeto $job.proc
 !else
  desc=!singlespace $desc
  desc=!char 1 to $desc_limit of $desc
  title=!singlespace $title
  title=!char 1 to $title_limit of $title
  !bound wksheet between 0 and $nbsheet default 0
  !bound status within 0,1 default 0
  sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex
  !distribute lines $sh into dir,param,b,b,b,b,autosheet
  newsh=$dir\
$param\
$title\
$desc\
$status\
$wksheet\
$autosheet
  !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
$sdoc\
$empty\
$newsh
 message=$name_savemodif
 !endif
!endif