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 |