Subversion Repositories wimsdev

Rev

Rev 9936 | Rev 14950 | Go to most recent revision | 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" value="$jj"
  16.     !if $jj=$(choice$i)
  17.       checked="checked"
  18.     !endif
  19.     />
  20.     !item $jj of $choicelist1
  21.     </td>
  22.     </tr>
  23.   !next jj
  24.  
  25.   !if $idontknow>0 and noidontknow notwordof $(choiceoption$i)
  26.     <tr><td><input type="radio" name="choice1" value="$[$choiceitems1+1]" /> $ch_noidea
  27.     </td></tr>
  28.   !endif
  29.   !if $qcmgood<=0
  30.     <tr><td><input type="radio" name="choice1" value="$[$choiceitems1+2]" /> $ch_none
  31.     </td></tr>
  32.   !endif
  33. !else
  34.   <tr><td><label for="choice$i">$(choicename$i)</label></td><td>:
  35.   !set p_=$ch_choose,$(choicelist$i)
  36.   !if $idontknow>0 and noidontknow notwordof $(choiceoption$i)
  37.     !set p_=$p_,$ch_noidea
  38.   !endif
  39.   !if $qcmgood<1
  40.     !set p_=$p_,$ch_none
  41.   !endif
  42.   !set N_=!itemcnt $p_
  43.   !if debug iswordof $m_oefenv
  44.     !set replydefaulted=yes
  45.     !if $oef_default=yes
  46.       !set T_=!positionof item $(choicegood$i[1]) in $(choicelist$i)
  47.       !default choice$i=$(T_[1])
  48.     !endif
  49.   !endif
  50.   !formselect choice$i from 0 to $[$N_-1] prompt $p_
  51.   </td></tr>
  52. !endif
  53. !set choice$i=$C_
  54.