Rev 9623 | Rev 9650 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
!! delete doc $sdoc
!if $sdoc=$empty
!if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot
error=baddocnumber
!exit
!endif
sdoc=$doc
!endif
!if $sdoc>=1 and $sdoc<=$doctot
!read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
$sdoc\
delete\
!endif
!restart module=home