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