Subversion Repositories wimsdev

!!! fichier de présentation de l'étape 3 !!!

<center>

  <b><font color=darkcyan size=+1> Etape $etape: <u>saisie des bonnes réponses</u> </font></b> 

  <br>

<table>

  <tr>

    <td bgcolor=lightblue>

      Indiquez pour la question ci-dessous, la liste des 

      réponses valides (c-à-d considérées 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>

       Réponses

      </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>

	       

	    </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

	      >

		    $(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