1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
!! display list of participant with usual information
!reset table_center
!set typen=!defof class_typename in wimshome/log/classes/$wims_class/.def
!if $usercnt=0
<div class="wimscenter">
$name_noyetparticipant
</div>
!else
!! ------ manage ask for technical variable selection (use new varfilter variable)
!form reply
<input type="hidden" name="job" value="userlist" >
!read adm/vfilter/varfilter html
!formend
!! ----- displaying table of participant
!set table_id=TABLE_userlist
!set table_class=sortable
$table_header
<thead>
$table_hdtr
<th scope="col">$name_studentglo</th>
!for k in $tv_listname
<th scope="col">$k</th>
!next k
</tr>
</thead>
<tbody>
!for i=1 to $usercnt
!set uu=!record $i of wimshome/log/classes/$wims_class/.userlist
!distribute items $uu into bl,bl,uu
!if $varfilter_!=$empty
!read adm/vfilter/testfilter $uu\
$varfilter_
!endif
!if $(var_filter_test)=1 or $varfilter_=$empty
!reset user_exists,$lttechvarid
!readproc adm/class/userdef classes,$wims_class,$uu
!readdef $userdef
$table_tr
!reset css_connected
!if $uu isitemof $wims_connectedlogin
!set css_connected=class="wims_connected"
!set wims_ref_title=connected
!endif
<td $css_connected>
!if $tv_listlocal!=$empty
!href cmd=reply&job=userprop&user=$uu $name_studentloc
!else
$name_studentloc
!endif
</td>
!for k in $lttechvarid
<td>$($k)</td>
!next k
</tr>
!endif
!next i
</tbody>
$table_end
!read tablesort.phtml
!endif
|
