Subversion Repositories wimsdev

Rev

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

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