Subversion Repositories wimsdev

!read model/cut.proc
output=wimshome/sessions/$ses/submit2.oef

cnt=!recordcnt $input

all=$parms,$sps,$statementrec

!writefile $output $model_def

!for i=1 to $cnt
 !default reply$i=$(val$i)
 !if $i notitemof $all
  r=!record $i of $input
  !appendfile $output :$r\

  !goto loopend
 !endif
 reply$i=!replace internal $\
: by $\
 : in $(reply$i)
 !if $i isitemof $sps
  !appendfile $output :\$(name$i){$(reply$i)}
  !goto loopend
 !endif

 !if $i isitemof $parms
  !if $(menu$i)=$empty
    !set debut=!char 1..4 of $(reply$i)
    !if $(name$i) iswordof $model_asis and $debut notsametext asis
      param_value = asis($(reply$i))
    !else
      param_value = $(reply$i)
    !endif
   !appendfile $output :$(title$i)\
$(help$i)\
\$(type$i){$(name$i)=$param_value}\

  !else
   t_=!itemcnt $(menu$i)
   !bound reply$i between integer 1 and $t_ default 1
   !appendfile $output :$(title$i)\
$(help$i)\
\$(type$i){$(name$i)=item($(reply$i),$(menu$i))}\

  !endif
  !goto loopend
 !endif
 !if $i=$statementrec
  !appendfile $output :$helpst\
\statement{$statement}\

  !goto loopend
 !endif
 :loopend
!next i

!sh cd $wims_home/sessions/$ses; mv -f submit2.oef submit.oef\
        cp -f submit.oef user-deposit