Subversion Repositories wimsdev

Rev

Rev 17176 | Details | Compare with Previous | Last modification | View Log | RSS feed

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