Subversion Repositories wimsdev

Rev

Rev 15804 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  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.  
  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])]
  16.   !increase k
  17. !endwhile
  18.  
  19. !if $cpt=0
  20.   !exit
  21. !endif
  22.  
  23. $name_clssrep
  24.  
  25. $table_header
  26.   <thead>
  27.     <tr>
  28.       <th>$name_level</th>
  29.       !for k=1 to $nb
  30.         !if $(cls[$k+1])!=0
  31.           <th>$(name_wims_listlevel[$k])</th>
  32.         !endif
  33.       !next k
  34.     </tr>
  35.   </thead>
  36.   <tbody>
  37.     <tr>
  38.       <th>$wims_name_Classes</th>
  39.       !for k=1 to $nb
  40.         !if $(cls[$k+1])!=0
  41.           <td>$(cls[$k+1])</td>
  42.         !endif
  43.       !next k
  44.     </tr>
  45.     <tr>
  46.       <th>$wims_name_student</th>
  47.       !for k=1 to $nb
  48.         !if $(cls[$k+1])!=0
  49.           <td>
  50.             !word $k+1 of $user
  51.           </td>
  52.         !endif
  53.       !next k
  54.     </tr>
  55.   </tbody>
  56. $table_end
  57.