Rev 9667 | Rev 12338 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9667 | Rev 12330 | ||
|---|---|---|---|
| Line 4... | Line 4... | ||
| 4 | !if $step=0 |
4 | !if $step=0 |
| 5 | !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot |
5 | !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot |
| 6 | error=baddocnumber |
6 | error=baddocnumber |
| 7 | !exit |
7 | !exit |
| 8 | !endif |
8 | !endif |
| 9 | sdoc=$doc |
9 | sdoc=$doc |
| 10 | sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex |
10 | sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex |
| 11 | !distribute lines $sh into dir,param,title,desc,status,wksheet,autosheet |
11 | !distribute lines $sh into dir,param,title,desc,status,wksheet,autosheet |
| 12 | !reset update |
12 | !reset update |
| 13 | !exit |
13 | !exit |
| 14 | !endif |
14 | !endif |
| 15 | 15 | ||
| 16 | !if $step=1 |
16 | !if $step=1 |
| 17 | !if $update!=$empty |
17 | !if $update!=$empty |
| 18 | job=deldoc |
18 | job=deldoc |
| 19 | step=0 |
19 | step=0 |
| 20 | !changeto $job.proc |
20 | !changeto $job.proc |
| 21 | !else |
21 | !else |
| 22 | desc=!singlespace $desc |
22 | desc=!singlespace $desc |
| 23 | desc=!char 1 to $desc_limit of $desc |
23 | desc=!char 1 to $desc_limit of $desc |
| 24 | title=!singlespace $title |
24 | title=!singlespace $title |
| 25 | title=!char 1 to $title_limit of $title |
25 | title=!char 1 to $title_limit of $title |
| 26 | !bound wksheet between 0 and $nbsheet default 0 |
26 | !bound wksheet between 0 and $nbsheet default 0 |
| 27 | !bound status within 0,1 default 0 |
27 | !bound status within 0,1 default 0 |
| 28 | sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex |
28 | sh=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex |
| 29 | !distribute lines $sh into dir,param,b,b,b,b,autosheet |
29 | !distribute lines $sh into dir,param,b,b,b,b,autosheet |
| 30 | newsh=$dir\ |
30 | newsh=$dir\ |
| 31 | $param\ |
31 | $param\ |
| 32 | $title\ |
32 | $title\ |
| 33 | $desc\ |
33 | $desc\ |
| 34 | $status\ |
34 | $status\ |
| 35 | $wksheet\ |
35 | $wksheet\ |
| 36 | $autosheet |
36 | $autosheet |
| 37 | !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\ |
37 | !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\ |
| 38 | $sdoc\ |
38 | $sdoc\ |
| 39 | $empty\ |
39 | $empty\ |
| 40 | $newsh |
40 | $newsh |
| 41 | message=$name_savemodif |
41 | message=$name_savemodif |
| 42 | !endif |
42 | !endif |
| 43 | !endif |
43 | !endif |