Subversion Repositories wimsdev

Rev

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

  1. !! display list of participant with usual information
  2.  
  3. !reset table_center
  4. !set typen=!defof class_typename in wimshome/log/classes/$wims_class/.def
  5. !if $usercnt=0
  6.   <div class="wimscenter">
  7.   $name_noyetparticipant
  8.   </div>
  9.   !exit
  10. !endif
  11. !! ------ manage ask for technical variable selection (use new varfilter variable)
  12. !form reply
  13.   <input type="hidden" name="job" value="userlist" >
  14.   !read adm/vfilter/varfilter html
  15. !formend
  16. !! ----- displaying table of participant
  17. <div>
  18.   $name_userlistdesc
  19. </div>
  20. !set table_id=TABLE_userlist
  21. !set table_class=sortable
  22. $table_header
  23. <thead>
  24.   $table_hdtr
  25.     <th scope="col">$name_studentglo</th>
  26.     <th scope="col">$name_date</th>
  27.     <th scope="col">$name_modtitle</th>
  28.     <th scope="col"> </th>
  29.   </tr>
  30. </thead>
  31. <tbody>
  32.   !for i=1 to $usercnt
  33.     !set uu=!record $i of wimshome/log/classes/$wims_class/.userlist
  34.     !distribute items $uu into bl,bl,uu
  35.     !if $varfilter_!=$empty
  36.       !read adm/vfilter/testfilter $uu\
  37. $varfilter_
  38.     !endif
  39.     !if $(var_filter_test)=1 or $varfilter_=$empty
  40.       !reset user_exists,$lttechvarid
  41.       !readproc adm/class/userdef classes,$wims_class,$uu
  42.       !readdef $userdef
  43.       $table_tr
  44.         !reset css_connected
  45.         !if $uu isitemof $wims_connectedlogin
  46.           !set css_connected=class="wims_connected"
  47.           !set wims_ref_title=connected
  48.         !endif
  49.         <td $css_connected>
  50.           $name_studentloc
  51.         </td>
  52.         <td>
  53.           !let r=!record 0 of wimshome/log/classes/$wims_class/swork/averagescore.$uu
  54.           !if $r!=$empty
  55.             !let r=!word 2 of $r
  56.             !readproc date.phtml $r,noprint
  57.             !replace internal - by $name_at in $slib_out
  58.           !endif
  59.         </td>
  60.         !readproc proc/listwork.proc $uu
  61.         !let nb=!linecnt $exolist
  62.         <td>
  63.           !if $nb>0
  64.             <table border="0"><tr>
  65.             !for k=1 to $swork_nbexo
  66.               !let t=!line $k of $exolist
  67.               <td>
  68.                 !if $t!=$empty
  69.                   $(t[1]).$(t[2])
  70.                   !readproc proc/exoscore.proc $(t[1]),$(t[2]),$uu
  71.                   !if $(t[3])/100<=$score_out
  72.                     &#x2705;
  73.                  !else
  74.                     !if $(t[4])=0
  75.                       &#x274C;
  76.                    !endif
  77.                   !endif
  78.                 !endif
  79.               </td>
  80.             !next k
  81.             </tr></table>
  82.           !endif
  83.         </td>
  84.         <td>
  85.           !if $r!=$empty
  86.             !set wims_ref_class=wims_button
  87.             !href cmd=reply&job=userlist&duser=$uu&refresh=1 $wims_name_delete
  88.           !endif
  89.           !set test=!fileexists wimshome/log/classes/$wims_class/swork/log.$uu
  90.           !if $test=yes
  91.             !set wims_ref_class=wims_button
  92.             !href cmd=reply&job=log&duser=$uu $wims_name_logwork
  93.           !endif
  94.         </td>
  95.       </tr>
  96.     !endif
  97.   !next i
  98.   </tbody>
  99.   $table_end
  100.   <div class="wimscenter">
  101.    &#x2705; $(name_legendtab[1])
  102.   &#x274C; $(name_legendtab[2])
  103.  </div>
  104.   !read tablesort.phtml
  105. !endif
  106.  
  107.