Subversion Repositories wimsdev

Rev

Rev 9646 | Rev 9654 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9646 Rev 9650
Line 4... Line 4...
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
- 
 
 10 
 title=!line 4 of $tmp
9 
!endif
 11 
!endif
- 
 
 12 
!bound step within 0,1 default 0
- 
 
 13 
 
- 
 
 14 
!if $step=1
10 
!if $sdoc>=1 and $sdoc<=$doctot
 15 
 !if $sdoc>=1 and $sdoc<=$doctot
11 
    !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
 16 
    !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
12 
$sdoc\
 17 
$sdoc\
13 
delete\
 18 
delete\
14 
 
 19 
 
15 
 
 20 
 !endif
- 
 
 21 
 !restart module=home
16 
!endif
 22 
!endif
17 
!restart module=home
 -