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 |