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