Subversion Repositories wimsdev

Rev

Rev 9629 | Rev 9650 | 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
17
  step=2
18
 !else
19
  desc=!singlespace $desc
20
  desc=!char 1 to $desc_limit of $desc
21
  title=!singlespace $title
22
  title=!char 1 to $title_limit of $title
23
  !bound wksheet between 0 and $nbsheet default 0
24
  !bound status within 0,1 default 0
25
  sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex
9631 guerimand 26
  !distribute lines $sh into dir,param,b,b,b,b,autosheet
9623 guerimand 27
  newsh=$dir\
28
$param\
29
$title\
30
$desc\
7270 bpr 31
$status\
9629 guerimand 32
$wksheet\
33
$autosheet
9623 guerimand 34
  !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
35
$sdoc\
36
$empty\
37
$newsh
38
 message=$name_savemodif
39
 !endif
40
!endif