Subversion Repositories wimsdev

Rev

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