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