Subversion Repositories wimsdev

Rev

Rev 9936 | Rev 14807 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9936 Rev 12324
Line 1... Line 1...
1 
!set i=$wims_read_parm
 1 
!set i=$wims_read_parm
2 
!if c$i isitemof $embedded
 2 
!if c$i isitemof $embedded
3 
 !exit
 3 
  !exit
4 
!endif
 4 
!endif
5 
 !set C_=$(choice$i)
 5 
!set C_=$(choice$i)
6 
 !if debug iswordof $m_oefenv
 6 
!if debug iswordof $m_oefenv
7 
  !set replydefaulted=yes
 7 
  !set replydefaulted=yes
8 
  !if $oef_default=yes
 8 
  !if $oef_default=yes
9 
   !set T_=!positionof item $(choicegood$i[1]) in $(choicelist$i)
 9 
    !set T_=!positionof item $(choicegood$i[1]) in $(choicelist$i)
10 
   !default choice$i=$(T_[1])
 10 
    !default choice$i=$(T_[1])
11 
  !endif
 11 
  !endif
12 
 !endif
 12 
!endif
13 
 !if $choicecnt<=1 and $replycnt<1
 13 
!if $choicecnt<=1 and $replycnt<1
14 
  !for jj=1 to $choiceitems1
 14 
  !for jj=1 to $choiceitems1
15 
   <tr><td><input type="radio" name="choice1" value="$jj"
 15 
    <tr><td><input type="radio" name="choice1" value="$jj"
16 
   !if $jj=$(choice$i)
 16 
    !if $jj=$(choice$i)
17 
    checked="checked"
 17 
      checked="checked"
18 
   !endif
 18 
    !endif
19 
   />
 19 
    />
20 
   !item $jj of $choicelist1
 20 
    !item $jj of $choicelist1
21 
   </td>
 21 
    </td>
22 
  </tr>
 22 
    </tr>
23 
  !next jj
 23 
  !next jj
24 
 
 24 
 
25 
  !if $idontknow>0 and noidontknow notwordof $(choiceoption$i)
 25 
  !if $idontknow>0 and noidontknow notwordof $(choiceoption$i)
26 
   <tr><td><input type="radio" name="choice1" value="$[$choiceitems1+1]" /> $ch_noidea
 26 
    <tr><td><input type="radio" name="choice1" value="$[$choiceitems1+1]" /> $ch_noidea
27 
   </td></tr>
 27 
    </td></tr>
28 
  !endif
 28 
  !endif
29 
  !if $qcmgood<=0
 29 
  !if $qcmgood<=0
30 
   <tr><td><input type="radio" name="choice1" value="$[$choiceitems1+2]" /> $ch_none
 30 
    <tr><td><input type="radio" name="choice1" value="$[$choiceitems1+2]" /> $ch_none
31 
   </td></tr>
 31 
    </td></tr>
32 
  !endif
 32 
  !endif
33 
 !else
 33 
!else
34 
  <tr><td><label for="choice$i">$(choicename$i)</label></td><td>:
 34 
  <tr><td><label for="choice$i">$(choicename$i)</label></td><td>:
35 
  !set p_=$ch_choose,$(choicelist$i)
 35 
  !set p_=$ch_choose,$(choicelist$i)
36 
  !if $idontknow>0 and noidontknow notwordof $(choiceoption$i)
 36 
  !if $idontknow>0 and noidontknow notwordof $(choiceoption$i)
37 
   !set p_=$p_,$ch_noidea
 37 
    !set p_=$p_,$ch_noidea
38 
  !endif
 38 
  !endif
39 
  !if $qcmgood<1
 39 
  !if $qcmgood<1
40 
   !set p_=$p_,$ch_none
 40 
    !set p_=$p_,$ch_none
41 
  !endif
 41 
  !endif
42 
  !set N_=!itemcnt $p_
 42 
  !set N_=!itemcnt $p_
43 
  !if debug iswordof $m_oefenv
 43 
  !if debug iswordof $m_oefenv
44 
   !set replydefaulted=yes
 44 
    !set replydefaulted=yes
45 
   !if $oef_default=yes
 45 
    !if $oef_default=yes
46 
    !set T_=!positionof item $(choicegood$i[1]) in $(choicelist$i)
 46 
      !set T_=!positionof item $(choicegood$i[1]) in $(choicelist$i)
47 
    !default choice$i=$(T_[1])
 47 
      !default choice$i=$(T_[1])
48 
   !endif
 48 
    !endif
49 
  !endif
 49 
  !endif
50 
  !formselect choice$i from 0 to $[$N_-1] prompt $p_
 50 
  !formselect choice$i from 0 to $[$N_-1] prompt $p_
51 
  </td></tr>
 51 
  </td></tr>
52 
 !endif
 52 
!endif
53 
 !set choice$i=$C_
 53 
!set choice$i=$C_
54 
 
 -