Subversion Repositories wimsdev

Rev

Rev 12330 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12330 Rev 12338
Line 1... Line 1...
1 
!! delete doc $sdoc
 1 
!! doc $sdoc
2 
 
 2 
 
3 
!if NaN isin $[$doc/10] or $doc<1 or $doc>$doctot
 3 
!if NaN isin $[$($type)/10] or $($type)<1 or $($type)>$($(type)tot)
4 
  error=baddocnumber
 4 
  error=bad$(type)number
5 
  !exit
 5 
  !exit
6 
!endif
 6 
!endif
7 
sdoc=$doc
 7 
s$type=$($type)
8 
tmp=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex
 8 
tmp=!record $(s$type) of wimshome/log/classes/$wims_class/$type/.$(type)index
9 
s=!line 5 of $tmp
 9 
s=!line 5 of $tmp
10 
tmp=!replace internal line number 5 by $[1-$s] in $tmp
 10 
tmp=!replace internal line number 5 by $[1-$s] in $tmp
11 
!read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
 11 
!read proc/updatefield.proc wimshome/log/classes/$wims_class/$(type)/.$(type)index\
12 
$sdoc\
 12 
$(s$type)\
13 
\
 13 
\
14 
$tmp
 14 
$tmp
15 
 
 15 
 
16 
!restart module=home
 16 
!restart module=home