Subversion Repositories wimsdev

Rev

Rev 8515 | Rev 11781 | Go to most recent revision | 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
12
 !default reply$i=$(val$i)
13
 !if $i notitemof $all
14
  r=!record $i of $input
15
  !appendfile $output :$r\
16
 
17
  !goto loopend
18
 !endif
19
 reply$i=!replace internal $\
20
: by $\
21
 : in $(reply$i)
22
 !if $i isitemof $sps
23
  !appendfile $output :\$(name$i){$(reply$i)}
24
  !goto loopend
25
 !endif
8515 obado 26
 
23 reyssat 27
 !if $i isitemof $parms
28
  !if $(menu$i)=$empty
11776 bpr 29
    !set debut=!char 1..4 of $(reply$i)
30
    !if $(name$i) iswordof $model_asis and $debut notsametext asis
8515 obado 31
      param_value = asis($(reply$i))
32
    !else
33
      param_value = $(reply$i)
34
    !endif
23 reyssat 35
   !appendfile $output :$(title$i)\
36
$(help$i)\
8515 obado 37
\$(type$i){$(name$i)=$param_value}\
23 reyssat 38
 
39
  !else
40
   t_=!itemcnt $(menu$i)
41
   !bound reply$i between integer 1 and $t_ default 1
42
   !appendfile $output :$(title$i)\
43
$(help$i)\
44
\$(type$i){$(name$i)=item($(reply$i),$(menu$i))}\
45
 
46
  !endif
47
  !goto loopend
48
 !endif
49
 !if $i=$statementrec
50
  !appendfile $output :$helpst\
51
\statement{$statement}\
52
 
53
  !goto loopend
54
 !endif
55
 :loopend
56
!next i
57
 
58
!sh cd $wims_home/sessions/$ses; mv -f submit2.oef submit.oef\
59
	cp -f submit.oef user-deposit
60
 
61