Subversion Repositories wimsdev

Rev

Rev 12330 | Details | Compare with Previous | Last modification | View Log | RSS feed

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