Subversion Repositories wimsdev

Rev

Rev 1028 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1023 bpr 1 
!!<html><head>
2 
!!$wims_html_header
3 
!!</head>
4 
!!<body $wims_htmlbody>
5 
!!!headmenu
6 
 
1051 bpr 7 
!header1
8 
 
23 reyssat 9 
!read names.phtml
10 
 
11 
!if $cmd=help
12 
 !read help.phtml
13 
 !goto end
14 
!endif
15 
 
16 
!if $job!=$empty and $job!=sheets
17 
 !read $job.phtml
18 
 !goto end
19 
!endif
20 
 
21 
<center>$classname
22 
<h1>Liste de participants
1028 bpr 23 
 <font size="-1">[
23 reyssat 24 
!href cmd=reply&job=csv liaison tableur
25 
 ]</font>
26 
</h1></center>
27 
 
28 
!if $error!=$empty
29 
 <p>
30 
 !read msg.phtml
31 
 <p>
32 
 !href module=home Retourner à la page d'accueil
33 
. <p>
34 
 !goto end
35 
!endif
36 
 
37 
!if $usercnt==0
38 
 Cette classe n'a pas encore de participant.
39 
 [
40 
 !href module=adm/class/reguser&step=1 Ajouter un participant
41 
 ]
42 
!else
43 
 <center>
44 
 !set deleted=!sh cd $wims_home/log/classes/$wims_class/.users; ls .[0-9a-zA-Z]* 2>/dev/null
45 
 !set deleted=!trim $deleted
46 
 [
47 
 !href module=adm/class/reguser&step=1 Ajouter un participant
48 
 ]
49 
 !if $deleted!=$empty
50 
  &nbsp;[
51 
  !href cmd=reply&job=recover Participants supprimés
52 
  ]
53 
 !endif
54 
 </center>
55 
 <p>$table_header
56 
 !if $job_affi=notes
57 
  <caption>Notes calculées sur un maximum de $scoremax</caption>
58 
 !else
59 
  !let tmp=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
60 
  !let tmp=!values v for v=1 to $tmp
61 
  !let showsheet=!listintersect $showsheet and $tmp
62 
  !if $job_affi=qualite
63 
   <caption>Qualit&eacute; du travail calculée sur un maximum de 10</caption>
64 
  !else
65 
   <caption>Pourcentage de travail effectu&eacute;</caption>
66 
  !endif
67 
 !endif
68 
 !if $manual>0 and $job_affi=notes
69 
  $table_hdtr<th rowspan=2>Nom, prénom</th>
70 
   <th colspan=3>Moyenne</th>
71 
  !for j in $showsheet
72 
   !if E isin $j
73 
    !set k=!char 2 to -1 of $j
74 
    <th rowspan=2><small>examen $k</small></th>
75 
   !else
76 
    <th rowspan=2>
77 
    <small>
111 bpr 78 
     !href cmd=reply&job=showsheet&numshowsheet=$j feuille $j
23 reyssat 79 
    </small></th>
80 
   !endif
81 
  !next j
82 
  $table_hdtr<th><small>globale<th><small>enseign.<th><small>auto
83 
 !else
84 
  $table_hdtr<th>Nom, prénom</th>
85 
  !if $job_affi=notes
86 
   <th>Moyenne</th>
87 
  !endif
88 
  !for j in $showsheet
89 
   !if E isin $j
90 
    !set k=!char 2 to -1 of $j
91 
    <th><small>examen $k</small></th>
92 
   !else
93 
    <th><small>
111 bpr 94 
     !href cmd=reply&job=showsheet&numshowsheet=$j feuille $j
23 reyssat 95 
    </small></th>
96 
   !endif
97 
  !next j
98 
 !endif
99 
 !distribute item 0,0,0 into mean_tea,mean_auto,mean_glob
100 
 !distribute item 0,0,0 into cnt_tea,cnt_auto,cnt_glob
101 
 !for i=1 to $usercnt
102 
  !set uu=!record $i of wimshome/log/classes/$wims_class/.userlist
103 
  !distribute items $uu into lastname,firstname,uu
104 
  !set UU=!hex $uu
105 
  $table_tr<td>
106 
  !href cmd=reply&job=getuser&getuser=$uu $lastname, $firstname
107 
  !read userscore
108 
  !if $manual>0 and $job_affi=notes
109 
   !set glob=$[rint($manual*$(manual_$UU)+(100-$manual)*($per))/100]
110 
   <td align=center>$glob</td>
111 
   <td align=center>$(manual_$UU)</td>
112 
   <td align=center>$per</td>
113 
   !distribute item $[$mean_glob+$glob],$[$mean_tea+$(manual_$UU)] into mean_glob,mean_tea
114 
   !if $glob>0
115 
    !advance cnt_glob
116 
    !if $(manual_$UU)>0
117 
     !advance cnt_tea
118 
    !endif
119 
    !if $per>0
120 
     !advance cnt_auto
121 
    !endif
122 
   !endif
123 
  !else
124 
   !if $job_affi=notes
125 
    <td align=center>$per</td>
126 
    !if $per>0
127 
     !advance cnt_auto
128 
     !advance cnt_glob
129 
    !endif
130 
   !endif
131 
  !endif
132 
  !set mean_auto=$[$mean_auto+$per]
133 
  !for j in $showsheet
134 
   !if E isin $j
135 
    !set k=!char 2 to -1 of $j
136 
    !set p_=$[rint(10*$scoremax*$(es_$k))/100]
137 
    !if NaN isin $p_
138 
     !set p_=0
139 
    !endif
140 
    <td align=center>$p_</td>
141 
   !else
142 
    !set p_=!line $j of $percents
143 
    !distribute words $p_ into p1,p2
144 
    !if $job_affi=notes
145 
     !if $p2!=$empty
146 
      !distribute item $[$p1/100],$[$p2/10] into x_,y_
147 
      !set p_=$[rint(100*$scoremax*$(f_$j))/100]
148 
     !else
149 
      !set p_=0
150 
     !endif
151 
     <td align=center>$p_</td>
152 
    !else
153 
     !if qualite iswordof $job_affi
154 
      !set p_=$p2
155 
      <td align=center>$p_</td>
156 
     !else
157 
      !set p_=$p1
158 
      <td align=center>$p_ %</td>
159 
     !endif
160 
     !if $p2=$empty
161 
      !set $p_=0
162 
     !endif
163 
    !endif
164 
   !endif
165 
   !set per_$j=$[$(per_$j)+$p_]
166 
   !if $p_>0
167 
    !advance cnt_$j
168 
   !endif
169 
  !next j
170 
 !next i
171 
 !distribute item $[rint(100*$mean_auto/$usercnt)/100],\
172 
        $[rint(100*$mean_tea/$usercnt)/100],\
173 
        $[rint(100*$mean_glob/$usercnt)/100] into m_auto,m_tea,m_glob
174 
 $table_hdtr<td align=center><b>Moyenne de la classe</b></td>
175 
 !if $job_affi=notes
176 
 !if $manual>0
177 
  <td align=center>$m_glob</td>
178 
  <td align=center>$m_tea</td>
179 
  <td align=center>$m_auto</td>
180 
 !else
181 
  <td align=center>$m_auto</td>
182 
 !endif
183 
 !endif
184 
 !for j in $showsheet
185 
  <td align=center>$[rint(100*$(per_$j)/max(1,$usercnt))/100]</td>
186 
 !next j
187 
 !if $cnt_glob>0
188 
  !distribute item $[rint(100*$mean_auto/max(1,$cnt_auto))/100],\
189 
        $[rint(100*$mean_tea/max(1,$cnt_tea))/100],\
190 
        $[rint(100*$mean_glob/max(1,$cnt_glob))/100] into m_auto,m_tea,m_glob
191 
  $table_hdtr<td align=center><b>Moyenne des notes positives</b></td>
192 
  !if $manual>0
193 
   <td align=center>$m_glob</td>
194 
   <td align=center>$m_tea</td>
195 
   <td align=center>$m_auto</td>
196 
  !else
197 
   <td align=center>$m_auto</td>
198 
  !endif
199 
  !for j in $showsheet
200 
   <td align=center>$[rint(100*$(per_$j)/max(1,$(cnt_$j)))/100]</td>
201 
  !next j
202 
 !endif
203 
 $table_end
923 bpr 204 
<p>Cliquez sur un nom pour voir le détail de son travail.</p>
205 
!if $activecnt>1
23 reyssat 206 
  <p>
207 
  !form reply
208 
  <input type=hidden name=job value=sheets>
209 
  !set wims_formselect_switch=multiple size=$[min($activecnt,6)]
210 
  <table border=0>
211 
  <tr><td>Sélectionnez les feuilles pour<br>
212 
  montrer les r&eacute;sultats par feuille&nbsp;:
923 bpr 213 
  </td><td>&nbsp;&nbsp;
23 reyssat 214 
  !reset tmp
215 
  !for i=1 to $activecnt
216 
   !set sh=!line $i of $activesheets
217 
   !set se=!item 1 of $sh
218 
   !set ti=!item 3 of $sh
219 
   !set tmp=!append item $se: $ti to $tmp
220 
  !next i
221 
  !set ash=$activesh
222 
  !for i=1 to $eactivecnt
223 
   !set tt=!item $i of $activexams
224 
   !set l=!record $tt of wimshome/log/classes/$wims_class/exams/.exams
225 
   !set l=!line 4 of $l
226 
   !set tmp=!append item Examen $tt: $l to $tmp
227 
   !set ash=!append item E$tt to $ash
228 
  !next i
229 
  !formselect showsheet list $ash prompt $tmp
923 bpr 230 
  </td>
231 
  <td><input type=submit value="Montrer"></td>
232 
  </tr></table>
23 reyssat 233 
  </form>
923 bpr 234 
 </p>
23 reyssat 235 
 !endif
923 bpr 236 
<p>
237 
   Afficher
238 
   !if $job_affi=notes
239 
    !href cmd=reply&job_affi=qualite la qualité
240 
    ou
241 
    !href cmd=reply&job_affi=points le travail effectué
242 
   !else
243 
    !if $job_affi=qualite
244 
     !href cmd=reply&job_affi=notes les notes
245 
     ou
246 
     !href cmd=reply&job_affi=points le travail effectué
247 
    !else
248 
     !href cmd=reply&job_affi=notes les notes
249 
     ou
250 
     !href cmd=reply&job_affi=qualite la qualité
251 
    !endif
252 
   !endif
253 
   des feuilles de travail.
254 
 </p>
255 
 
23 reyssat 256 
!endif (usercnt=0?)
923 bpr 257 
<p>
258 
 !href cmd=reply&job=formula&formula=prep Changer les niveaux de sévérité
259 
.
260 
 !href module=adm/class/grades Notes manuellement attribuées
261 
.
262 
</p>
932 bpr 263 
!if $usercnt!=0
923 bpr 264 
<p>
265 
 !href module=adm/class/stat Statistiques d'activité
266 
.
267 
!href module=adm/class/activity Activités globales des participants
268 
.
932 bpr 269 
</p>
270 
!endif
271 
 
23 reyssat 272 
!if $manual>0
923 bpr 273 
<p> <b>Explications.</b> Dans les colonnes <tt>moyenne</tt>,  <tt>auto</tt> veut dire moyenne
23 reyssat 274 
 des notes calculées à partir des scores obtenus dans les feuilles de travail,
923 bpr 275 
  <tt>enseign.</tt> veut dire moyenne des notes attribuées manuellement par
276 
 l'enseignant. La note <tt>globale</tt> est calculée à partir des deux autres par la
23 reyssat 277 
 formule
932 bpr 278 
</p>
23 reyssat 279 
 <p><center>
280 
  globale = $[$manual/100]*enseign. + $[1-$manual/100]*auto.
932 bpr 281 
 </center> </p><p>
23 reyssat 282 
!endif
283 
 
284 
:end
285 
!tail
286 
 
287 
!reset job,showsheet,getuser,getraw,delprep,deluser,formula,abandon,reg,\
233 bpr 288 
        passcheck