Rev 15804 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
15786 | guerimand | 1 | !! generate a table of user and class repartition in different level. |
2 | !let test=!fileexists wimshome/log/stat/stat.user |
||
3 | !if $test!=yes |
||
4 | !exit |
||
5 | !endif |
||
6 | |||
15804 | guerimand | 7 | !readproc adm/lang/levelname.phtml.$lang |
8 | !let nb=!itemcnt $wims_listlevel |
||
9 | !set user=!record -1 of wimshome/log/stat/stat.user |
||
10 | !set cls=!record -1 of wimshome/log/stat/stat.class |
||
11 | !set cls=!words2items $cls |
||
12 | !set cpt=0 |
||
13 | !set k=1 |
||
14 | !while $cpt=0 and $k<=$nb |
||
15 | !let cpt=$[$cpt+$(cls[$k+1])] |
||
15805 | guerimand | 16 | !increase k |
15804 | guerimand | 17 | !endwhile |
18 | |||
19 | !if $cpt=0 |
||
20 | !exit |
||
21 | !endif |
||
22 | |||
15786 | guerimand | 23 | $name_clssrep |
24 | |||
25 | $table_header |
||
26 | <thead> |
||
27 | <tr> |
||
28 | <th>$name_level</th> |
||
29 | !for k=1 to $nb |
||
15804 | guerimand | 30 | !if $(cls[$k+1])!=0 |
31 | <th>$(name_wims_listlevel[$k])</th> |
||
32 | !endif |
||
15786 | guerimand | 33 | !next k |
34 | </tr> |
||
35 | </thead> |
||
36 | <tbody> |
||
37 | <tr> |
||
38 | <th>$wims_name_Classes</th> |
||
39 | !for k=1 to $nb |
||
15804 | guerimand | 40 | !if $(cls[$k+1])!=0 |
41 | <td>$(cls[$k+1])</td> |
||
42 | !endif |
||
15786 | guerimand | 43 | !next k |
44 | </tr> |
||
45 | <tr> |
||
46 | <th>$wims_name_student</th> |
||
47 | !for k=1 to $nb |
||
15804 | guerimand | 48 | !if $(cls[$k+1])!=0 |
49 | <td> |
||
50 | !word $k+1 of $user |
||
51 | </td> |
||
52 | !endif |
||
15786 | guerimand | 53 | !next k |
54 | </tr> |
||
55 | </tbody> |
||
56 | $table_end |