!!! fichier de prsentation de l'tape 3 !!!
<center>
  <b><font color=darkcyan size=+1> Etape $etape: <u>saisie des bonnes rponses</u> </font></b> 
  <br>
<table>
  <tr>
    <td bgcolor=lightblue>
      Indiquez pour la question ci-dessous, la liste des 
      rponses valides (c--d considres comme justes) pour cette question, en 
      cochant les bonnes cases.  
    </td> 
  </tr>
</table>
</center>
<br>
!set obtemp=!line $[$chronobs+1] of $obsrecord
!set obtemp=!trim $obtemp
!set obtemp=!char 2 to -2 of $obtemp

!set L=!line $[$chronobs+1] of $propsrepList
!for i=1 to $[$propsnb+1]
  !set prop=!line $i of $propsrecord
  !set prop=!trim $prop
  !if ; isin $prop
    !set p$(i)=!char 2 to -2 of $prop
   !else
    !set p$(i)=$prop
  !endif   
!next i

!set indictemp=!trim $(indicList[$[$chronobs+1];])
!set com=!char 4 to -2 of $indictemp
!set indictemp=!trim $com

  <table border=1>
    <tr>
      <th style="text-align:center;background-color:lightblue">
       Question
      </th>
      <th align=center bgcolor=wheat>
       Rponses
      </th>
    </tr>
    <tr>
      <td bgcolor=lightblue width=30%>
	  <table>
	    <tr>
	      <td bgcolor=white>
	        $obtemp 
	      </td>
	    </tr>
	  </table>
      </td>
      <td bgcolor=darkcyan align=center>
        <table cellpadding=4>
	 !for i=1 to $rowsnb
	 !set bg$(i)=$(coulors[$[((2*$i-1)%3)+1];])
         !set bg2$(i)=$(coulors[$[((2*$i)%3)+1];])
	  <tr>
	    <td bgcolor=$(bg$(i))>
	      <input type="checkbox" name=propsrep value=$i
	        !if $i isitemof $L
		  checked
		!endif
	      >
	    </td>
	    <td bgcolor=$(bg$(i))>
	      $(p$(i))
	    </td>
	    <td>
	      &nbsp;
	    </td>
	    <td bgcolor=$(bg2$(i)) >
	      <input type="checkbox" name=propsrep value=$[$i+$rowsnb]
	        !if $[$i+$rowsnb] isitemof $L
		  checked
		!endif
	      >
	    </td>
	    <td bgcolor=$(bg2$(i))>
	      $(p$[$i+$rowsnb])
	    </td>
	  </tr>
	 !next i
	 !if $extrarow!=0
	  <tr>
	    <td align=center bgcolor=$(coulors[$[($propsnb+1)%3+1];]) colspan=5>
	      <input type="checkbox" name=propsrep value=$[$propsnb+1]
	        !if [$propsnb+1] isitemof $L
		  checked
		!endif
	      >
		  &nbsp; $(p$[$propsnb+1])
	    </td>
	  </tr>
	 !endif
	</table>
      </td>
    </tr>
    <tr>
      <td colspan=2 bgcolor=white>
        <hr>
        Saisir ici si besoin, une indication pour cette question:
	<br>
	<center>
	  !set wims_backslash_insmath=no
	  !set indictemp=!reinput $indictemp
	  <textarea name=exo_indic rows=5 cols=60>$indictemp</textarea>
	  !set wims_backslash_insmath=yes
	</center>
      </td>
    </tr>
  </table>

!read comsDir/valideb
