Subversion Repositories wimsdev

Rev

Rev 9631 | Rev 9667 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1406 bpr 1
 
9623 guerimand 2
!bound step within 0,1 default 0
9619 guerimand 3
 
9623 guerimand 4
!if $step=0
5
 !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot
6
    error=baddocnumber
7
    !exit
1406 bpr 8
 !endif
9623 guerimand 9
 sdoc=$doc
10
 sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex
9629 guerimand 11
 !distribute lines $sh into dir,param,title,desc,status,wksheet,autosheet
1406 bpr 12
 !exit
13
!endif
14
 
9623 guerimand 15
!if $step=1
16
 !if $update!=$empty
9650 guerimand 17
  job=deldoc
18
  step=0
19
  !changeto $job.proc
9623 guerimand 20
 !else
21
  desc=!singlespace $desc
22
  desc=!char 1 to $desc_limit of $desc
23
  title=!singlespace $title
24
  title=!char 1 to $title_limit of $title
25
  !bound wksheet between 0 and $nbsheet default 0
26
  !bound status within 0,1 default 0
27
  sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex
9631 guerimand 28
  !distribute lines $sh into dir,param,b,b,b,b,autosheet
9623 guerimand 29
  newsh=$dir\
30
$param\
31
$title\
32
$desc\
7270 bpr 33
$status\
9629 guerimand 34
$wksheet\
35
$autosheet
9623 guerimand 36
  !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
37
$sdoc\
38
$empty\
39
$newsh
40
 message=$name_savemodif
41
 !endif
42
!endif