Subversion Repositories wimsdev

Rev

Rev 9654 | 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
12330 bpr 4 
  !if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot
9646 guerimand 5 
    error=baddocnumber
6 
    !exit
12330 bpr 7 
  !endif
8 
  sdoc=$doc
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
12330 bpr 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
12330 bpr 21 
    !readproc adm/updatesequence.proc doc,$sdoc
9654 guerimand 22 
 
12330 bpr 23 
  !endif
24 
  !restart module=home
9623 guerimand 25 
!endif