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

 !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