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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
!! affiche le contenu de la feuille $sheet de la classe $wims_class
!! langage is defined in adm/class/sheet/lang/names.phtml.$lang
$table_header
<caption>$name_content</caption>
<thead>
$table_hdtr
!for k=1 to 5
<th>$(name_shtab[$k])</th>
!next k
<th>$name_qnum</th>
!for k=6 to 7
<th>$(name_shtab[$k])</th>
!next k
<th>$(name_shtab[10])</th>
!if $activetest>=0
<th
!if $activetest=0 and $exocnt>1
colspan="2"
!endif
>$(name_shtab[8])</th>
!endif
</tr>
</thead>
<tbody>
!for i=1 to $exocnt
!set ex=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sheet
!distribute lines $ex into di,pa,req,weig,ti,de,dep,com,feed,icone
!set testdep=!getdef deprecated in wimshome/public_html/modules/$di/INDEX
$table_tr
<td id="td_exo_$i">$i</td>
<td>
!if $icone!=$empty
!set wims_ref_class=text_icon icon_$icone
!endif
!href cmd=new&module=$di&worksheet=$sheet&$pa $ti
!if $testdep=yes
(deprecated)
!endif
</td>
<td>$de</td>
!if $activetest>0
<td>
!getscorerequire sheet=$sheet work=$i
</td>
<td>
!getscoreweight sheet=$sheet work=$i
</td>
!else
<td>
!row 1 of $req
</td>
<td>
!row 1 of $weig
</td>
!endif
!set pa=!replace internal & by $ $ in $pa
!reset qnum
!!oef exercises
!set qnum=!getopt qnum in $pa
!if $qnum=
!!J.E. exercises
!set qnum=!getopt total_exos in $pa
!endif
<td>$qnum</td>
<td>
!if $dep!=$empty
$dep
!else
$
!endif
</td>
<td>$com</td>
!set feedbr=!rows2lines $feed
!set feedbr=!replace internal $\
$ by </li><li> in <ul><li>$feedbr</li></ul>
<td style="text-align:left" class="small">
!if $feed!=$empty
$feedbr
!endif
</td>
!if $activetest>=0
<td>
!set wims_ref_class=wims_button
!href cmd=reply&job=prep_modify&modif=$i $(seriesaction[1])
!if $activetest=0
$
!set wims_ref_class=wims_button wims_warning
!href cmd=reply&job=delete&delete=$i#list $(seriesaction[2])
!if $exocnt>1
</td>
<td>
!read adm/sheet/moveafterform.phtml $(name_shtab[11])
!endif
!endif
</td>
!endif
</tr>
!next i
</tbody>
$table_end
|
