Subversion Repositories wimsdev

Rev

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

Rev 9623 Rev 9646
Line 1... Line 1...
1 
!! delete doc $sdoc
 1 
!! delete doc $sdoc
- 
 
 2 
 
- 
 
 3 
!if $sdoc=$empty
- 
 
 4 
 !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot
- 
 
 5 
    error=baddocnumber
- 
 
 6 
    !exit
- 
 
 7 
 !endif
- 
 
 8 
 sdoc=$doc
- 
 
 9 
!endif
2 
!if $sdoc>=1 and $sdoc<=$doctot
 10 
!if $sdoc>=1 and $sdoc<=$doctot
3 
    !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
 11 
    !read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
4 
$sdoc\
 12 
$sdoc\
5 
delete\
 13 
delete\
6 
 
 14