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 |