Subversion Repositories wimsdev

Rev

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
 :loopend
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