Subversion Repositories wimsdev

Rev

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