Subversion Repositories wimsdev

!!! fichier de présentation de l'étape 4 !!!
<center>
  <b><font color="darkcyan" size="+1"> Etape $etape <u> saisie des valeurs des fonctions</u></font></b>
<table>
  <tr>
    <td>
      <p style="background-color:lightblue">
      Indiquez pour l'objet et la fonction 
      ci-dessous, la valeur de la fonction. 
      </p>
    </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 indictemp=!trim $(indicList_fonc[$[$chronobs+1];$[$chronfoncs+1]])
!set com=!char 4 to -2 of $indictemp
!set indictemp=!trim $com

!set foncsrep=!trim $(foncsrepList[$[$chronobs+1];$[$chronfoncs+1]])
!set foncsrep=!char 2 to -2 of $foncsrep

!set fonc=!line $[$chronfoncs+1] of $foncsrecord
!set fonc=!trim $fonc
!set fonc=!char 2 to -2 of $fonc

<center>
  <table border="3">
    <tr>
      <th align="center" bgcolor="lightblue">
       Objet
      </th>
      <th align="center" bgcolor="wheat">
       Fonction
      </th>
      </th>
      <th align="center">
       Valeur de la fonction
      </th>
    </tr>
    <tr>
      <td bgcolor="lightblue" align="center">
        <table>
          <tr>
            <td bgcolor="white"> 
              $obtemp 
            </td>
          </tr>
        </table>
      </td>
      <td bgcolor="wheat" align="center">
        <table>
          <tr>
            <td bgcolor="white"> 
              $fonc 
            </td>
          </tr>
        </table>
      </td>
      <td align="center" nowrap="nowrap">
        !if $(ftypList[$(foncstypList[$[$chronfoncs+1]]);])!=matrix
          <input size="20" name="foncsrep" value="$foncsrep" />
         !else
           !set foncsrep=!declosing $foncsrep
           !set foncsrep=!translate ; to $\
           $ in $foncsrep
           <textarea rows="6" cols="10" name="foncsrep">$foncsrep</textarea> 
        !endif
        &nbsp; type du résultat: <font color="magenta"><b> 
        $(typafList[$(foncstypList[$[$chronfoncs+1]]);]) </b></font>
      </td>
    </tr>
    <tr>
      <td colspan="3" 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>
</center>
<br />

!read comsDir/valideb