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_ |