Rev 9654 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9654 | Rev 12330 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | 2 | ||
3 | !if $sdoc=$empty |
3 | !if $sdoc=$empty |
4 | !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot |
4 | !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot |
5 | error=baddocnumber |
5 | error=baddocnumber |
6 | !exit |
6 | !exit |
7 | !endif |
7 | !endif |
8 | sdoc=$doc |
8 | sdoc=$doc |
9 | tmp=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex |
9 | tmp=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex |
10 | title=!line 4 of $tmp |
10 | title=!line 4 of $tmp |
11 | !endif |
11 | !endif |
12 | !bound step within 0,1 default 0 |
12 | !bound step within 0,1 default 0 |
13 | 13 | ||
14 | !if $step=1 |
14 | !if $step=1 |
15 | !if $sdoc>=1 and $sdoc<=$doctot |
15 | !if $sdoc>=1 and $sdoc<=$doctot |
16 | !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\ |
16 | !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\ |
17 | $sdoc\ |
17 | $sdoc\ |
18 | delete\ |
18 | delete\ |
19 | 19 | ||
20 | !! update seq directory |
20 | !! update seq directory |
21 | !readproc adm/updatesequence.proc doc,$sdoc |
21 | !readproc adm/updatesequence.proc doc,$sdoc |
22 | 22 | ||
23 | !endif |
23 | !endif |
24 | !restart module=home |
24 | !restart module=home |
25 | !endif |
25 | !endif |