Subversion Repositories wimsdev

Rev

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

Rev 14807 Rev 14950
Line 34... Line 34...
34 
    </td></tr>
 34 
    </td></tr>
35 
  !endif
 35 
  !endif
36 
!else
 36 
!else
37 
  <tr><td><label for="choice$i">$(choicename$i)</label></td><td>:
 37 
  <tr><td><label for="choice$i">$(choicename$i)</label></td><td>:
38 
  !set p_=$ch_choose,$(choicelist$i)
 38 
  !set p_=$ch_choose,$(choicelist$i)
- 
 
 39 
  !set N_=!itemcnt $p_
- 
 
 40 
  !set listchoices=!makelist x for x=0 to $[$N_-1]
39 
  !if $idontknow>0 and noidontknow notwordof $(choiceoption$i)
 41 
  !if $idontknow>0 and noidontknow notwordof $(choiceoption$i)
40 
    !set p_=$p_,$ch_noidea
 42 
    !set p_=$p_,$ch_noidea
- 
 
 43 
    !set listchoices=$listchoices,$N_
41 
  !endif
 44 
  !endif
42 
  !if $qcmgood<1
 45 
  !if $qcmgood<1
43 
    !set p_=$p_,$ch_none
 46 
    !set p_=$p_,$ch_none
- 
 
 47 
    !set listchoices=$listchoices,$[$N_+1]
44 
  !endif
 48 
  !endif
45 
  !set N_=!itemcnt $p_
 - 
 
46 
  !if debug iswordof $m_oefenv
 49 
  !if debug iswordof $m_oefenv
47 
    !set replydefaulted=yes
 50 
    !set replydefaulted=yes
48 
    !if $oef_default=yes
 51 
    !if $oef_default=yes
49 
      !set T_=!positionof item $(choicegood$i[1]) in $(choicelist$i)
 52 
      !set T_=!positionof item $(choicegood$i[1]) in $(choicelist$i)
50 
      !default choice$i=$(T_[1])
 53 
      !default choice$i=$(T_[1])
51 
    !endif
 54 
    !endif
52 
  !endif
 55 
  !endif
53 
  !formselect choice$i from 0 to $[$N_-1] prompt $p_
 56 
  !formselect choice$i list $listchoices prompt $p_
54 
  </td></tr>
 57 
  </td></tr>
55 
!endif
 58 
!endif
56 
!set choice$i=$C_
 59 
!set choice$i=$C_