Subversion Repositories wimsdev

Rev

Rev 23 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
!if $demo=oui
2
  <p> On entre une liste de fonctions avec lesquelles 
3
  on veut faire des calculs: 
4
  </p>
5
!endif
6
!if $foncsList!=$empty
7
  !set rowsnb=$[floor($foncsnb/2)]
8
  !set extrarow=$[$foncsnb%2]
9
  <center>
10
  <table border=1 bgcolor=moccasin>
11
      !for i=1 to $rowsnb
12
        !set c1=!item $i of $foncsList
13
	!set c2=!item $[($i+$rowsnb)] of $foncsList
14
	!set c1=!char 2 to -2 of $c1
15
	!set c2=!char 2 to -2 of $c2
16
	<tr>
17
	  <td bgcolor=azure>
18
	    $c1
19
	  </td>
20
	  <td bgcolor=azure>
21
	    $c2
22
	  </td>
23
	</tr>
24
      !next i
25
      !if $extrarow!=0
26
        !set c3=!item $foncsnb of $foncsList
27
	!set c3=!char 2 to -2 of $c3
28
	<tr>
3049 bpr 29
	  <td align="center" colspan=2 bgcolor=azure>
23 reyssat 30
	    $c3
31
	  </td>
32
	</tr>
33
      !endif
34
  </table>
35
  </center>
36
!endif