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
  Dans cette démo, on entre la liste des objets sur lesquels on veut 
2
  poser des questions:
3
  !set rowsnb=$[floor($obsnb/2)]
4
  !set extrarow=$[$obsnb%2]
5
  <center>
6
  <table border=2 bgcolor=lightblue>
7
      !for i=1 to $rowsnb
8
        !set c1=!item $i of $obsList
9
	!set c2=!item $[($i+$rowsnb)] of $obsList
10
	!set c1=!char 2 to -2 of $c1
11
	!set c2=!char 2 to -2 of $c2
12
	<tr>
13
	  <td>
14
	    $c1
15
	  </td>
16
	  <td>
17
	    $c2
18
	  </td>
19
	</tr>
20
      !next i
21
      !if $extrarow!=0
22
        !set c3=!item $obsnb of $obsList
23
	!set c3=!char 2 to -2 of $c3
24
	<tr>
3049 bpr 25
	  <td align="center" colspan=2>
23 reyssat 26
	    $c3
27
	  </td>
28
	</tr>
29
      !endif
30
  </table>
31
  </center>