Subversion Repositories wimsdev

Rev

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