Subversion Repositories wimsdev

Rev

Rev 1224 | Rev 2006 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !if $error!=$empty
  2.  <p>
  3.  !read msg.phtml
  4.  <p>
  5.  !href module=home $name_homeback
  6. . <p>
  7.  !goto end
  8. !endif
  9. !readproc var.activity.proc
  10. !if $usercnt==0
  11. $name_noparticipant
  12. !else
  13.  <p>$table_header
  14.  $table_hdtr<th>$name_lastname, $name_firstname</th>
  15.  <th>$name_lastconnexion</th><th>$name_nbsessions</th><th><small>$name_cnt_exo
  16.  <br> ($nbexototal $name_exo)</small></th><th>$name_total</th>
  17.  !for j=1 to $sheetcnt
  18.  !if $(activ[$j])>0
  19.   <th colspan=2><small>$name_sheet $j <br>($(nbexo$j) $name_exo)</small></th>
  20.  !endif
  21.  !next j
  22.  </tr>
  23.  $table_hdtr
  24.  <th></th><th></th><th></th><th></th><th></th>
  25.  !for j=1 to $sheetcnt
  26.  !if $(activ[$j])>0
  27.   <th><small>$name_cnt_exo</small></th><th><small>$name_time</small></th>
  28.  !endif
  29.  !next j
  30.   </tr>
  31.  !for m=1 to $usercnt
  32.   !set uu=!record $m of wimshome/log/classes/$wims_class/.userlist
  33.   !distribute items $uu into lastname,firstname,uu
  34.   !set getraw=$uu
  35.   !readproc raw.proc
  36.   $table_tr
  37.   <td>
  38.    !href module=adm/class/userlist&job=getuser&getuser=$uu $lastname, $firstname
  39.   </td>
  40.   !for h = 1 to 2*$sheetcnt + 4
  41.     !set h1=$[($h+$h%2)/2-2]
  42.  !if $h <=4 or ($h>4 and $(activ[$h1])>0)
  43.   <td align="center">$(data[$h])</td>
  44. !endif
  45.   !next
  46.   </tr>
  47. !next
  48. $table_end
  49.  <p>$name_click
  50. !! !href cmd=reply $name_refresh
  51. !! =<p>
  52. !! !href module=adm/class/userlist&job_affi=notes $name_notes
  53. !!.
  54. !set wims_menu_items=!append line "$name_refresh",1,cmd=reply\
  55. "$name_notes",1,module=adm/class/userlist&job_affi=notes\
  56. to $wims_menu_items
  57.  
  58. :end
  59. !tail
  60.