Subversion Repositories wimsdev

Rev

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