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 |