Subversion Repositories wimsdev

Rev

Rev 6355 | Rev 9936 | 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>$(choicename$i)</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.  
  55.