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