Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
23 reyssat 1
 
2
!read model/cut.proc
3
output=wimshome/sessions/$ses/submit2.oef
4
 
5
cnt=!recordcnt $input
6
 
7
all=$parms,$sps,$statementrec
8
 
9
!writefile $output $model_def
10
 
11
!for i=1 to $cnt
11781 obado 12
  !default reply$i=$(val$i)
13
  !if $i notitemof $all
14
    r=!record $i of $input
15
    !appendfile $output :$r\
23 reyssat 16
 
11781 obado 17
    !goto loopend
18
  !endif
19
  reply$i=!replace internal $\
23 reyssat 20
: by $\
21
 : in $(reply$i)
8515 obado 22
 
11781 obado 23
  !if $i isitemof $sps
24
    !appendfile $output :\$(name$i){$(reply$i)}
25
    !goto loopend
26
  !endif
27
 
28
  !if $i isitemof $parms
29
    !if $(menu$i)=$empty
30
      !set debut=!char 1..4 of $(reply$i)
31
      !if $(name$i) iswordof $model_asis and $debut notsametext asis
32
        param_value = asis($(reply$i))
33
      !else
34
        param_value = $(reply$i)
35
      !endif
36
      !appendfile $output :$(title$i)\
23 reyssat 37
$(help$i)\
8515 obado 38
\$(type$i){$(name$i)=$param_value}\
23 reyssat 39
 
11781 obado 40
    !else
41
      t_=!itemcnt $(menu$i)
42
      !bound reply$i between integer 1 and $t_ default 1
43
      !appendfile $output :$(title$i)\
23 reyssat 44
$(help$i)\
45
\$(type$i){$(name$i)=item($(reply$i),$(menu$i))}\
46
 
11781 obado 47
    !endif
48
    !goto loopend
23 reyssat 49
  !endif
11781 obado 50
  !if $i=$statementrec
51
    !appendfile $output :$helpst\
23 reyssat 52
\statement{$statement}\
53
 
11781 obado 54
    !goto loopend
55
  !endif
13626 bpr 56
  :loopend
23 reyssat 57
!next i
58
 
59
!sh cd $wims_home/sessions/$ses; mv -f submit2.oef submit.oef\
60
	cp -f submit.oef user-deposit