Subversion Repositories wimsdev

Rev

Rev 12448 | Go to most recent revision | 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. !else
  10. !! ------ manage ask for technical variable selection (use new varfilter variable)
  11.     !form reply
  12.         <input type="hidden" name="job" value="userlist">
  13.         !read adm/vfilter/varfilter html
  14.     !formend
  15. !! ----- displaying table of participant
  16.     $table_header
  17.     $table_hdtr
  18.         <th>$name_studentglo</th>
  19.         !for k in $tv_listname
  20.             <th>$k</th>
  21.         !next k
  22.    </tr>
  23.    !for i=1 to $usercnt
  24.     !set uu=!record $i of wimshome/log/classes/$wims_class/.userlist
  25.     !distribute items $uu into bl,bl,uu
  26.     !if $varfilter_!=$empty
  27.        !read adm/vfilter/testfilter $uu\
  28. $varfilter_
  29.     !endif
  30.     !if $(var_filter_test)=1 or $varfilter_=$empty
  31.           !reset user_exists,$lttechvarid
  32.           !readproc adm/class/userdef classes,$wims_class,$uu
  33.           !readdef $userdef
  34.       $table_tr
  35.         !reset css_connected
  36.         !if $uu isitemof $wims_connectedlogin
  37.         !set css_connected=class="wims_connected"
  38.        !set wims_ref_title=connected
  39.       !endif
  40.       <td $css_connected>
  41.       !if $tv_listlocal!=$empty
  42.           !href cmd=reply&job=userprop&user=$uu $name_studentloc
  43.       !else
  44.           $name_studentloc
  45.       !endif
  46.       </td>
  47.       !for k in $lttechvarid
  48.             <td>$($k)</td>
  49.       !next k
  50.       </tr>
  51.     !endif
  52.    !next i
  53. </table>
  54. !endif
  55.  
  56.