Subversion Repositories wimsdev

Rev

Rev 9650 | Rev 12330 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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