Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
11105 bpr 1
!set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
12558 bpr 2
!distribute words $tmp into tmp_w,tmp_s,tmp_ss
1587 bpr 3
!read adm/title.phtml 1\
1607 bpr 4
$classname\
10277 bpr 5
$name_workdetail $name_studentloc
23 reyssat 6
 
10277 bpr 7
<div class="center"><span class="wims_emph">
14132 obado 8
  !if $wims_user=supervisor
9
    !reset css_connected
10
    !if $getuser isitemof $wims_connectedlogin
11
      !set css_connected=class="wims_connected"
12
      !set wims_ref_title=connected
13
    !endif
14
    <span $css_connected>
15
      !href module=adm/class/usermanage/&job=userprop&getuser=$getuser $name_studentloc
16
    </span>
9602 bpr 17
  !endif
14132 obado 18
  </span><br /><span class="small">$wims_name_Login: <span class="tt">$getuser</span>
19
  !if $user_external_auth!=$empty
20
    (<span class="tt">$user_external_auth</span>)
21
  !endif
22
  !if $user_email!=$empty
23
    <br />
24
    $wims_name_email: <a href="mailto:$user_email">$user_email</a>
25
  !endif
26
</span></div>
27
 
13220 bpr 28
!let testphoto=!filexists wimshome/sessions/$wims_session/getfile/photoboard/$getuser
29
!if $testphoto=yes
30
  <div id="userlogo" class="float_right">
31
    <img src="$wims_ref_name?session=$wims_session&cmd=getfile&special_parm=photoboard/$getuser" style="position:absolute;top:50px;right:5%;" alt="$name_student2" />
32
  </div>
33
  !reset testphoto
34
!else
35
  !if $user_photourl!=
14132 obado 36
    <img src="$user_photourl" style="width:100px;position:absolute;top:50px;right:5%;" alt="$name_student2" />
13220 bpr 37
  !endif
12301 bpr 38
!endif
23 reyssat 39
!if $eremain>0
12712 bpr 40
  <br class="spacer" />
41
  $name_activesession:
42
  !href cmd=reply&job=userexam&getuser=$getuser $esession
43
  !!!else
44
  !! ----- transfere dans usermanage (il s'agit d'un lien de transfert de score pour deplacer des eleves d'une classe a l'autre (dans un portail ou un groupement)
45
  !! !if $wims_user=supervisor and $wims_supertype iswordof 2 4
46
  !!  !readproc adm/gateway/transfer $getuser test
47
  !!  !if $transfer_test>0
48
  !!   !href module=adm/class/usermanage&job=transfer&getuser=$getuser $name_transfer
49
  !!  !endif
50
  !! !endif
23 reyssat 51
!endif
8326 guerimand 52
 
12712 bpr 53
<br class="spacer" />
23 reyssat 54
 
55
!if $manual>0 and $gcnt>0 and $teacher!=$empty
12301 bpr 56
  $table_header
57
  <caption><span class="small">
58
  $name_minmax:
59
  $min_glob/$mean_glob/$max_glob</span></caption>
12716 bpr 60
  <thead>
12301 bpr 61
  $table_hdtr<th>$wims_name_name</th><th>$(wims_name_thsheet[6])</th><th>$(wims_name_thsheet[9])</th></tr>
12716 bpr 62
  </thead><tbody>
12301 bpr 63
  $table_tr<th>$name_manualscore</th>
5986 bpr 64
     <td>$manual%</td>
1887 bpr 65
     !read adm/class/colors $[ceil(10*$mav/$scoremax)]
5727 bpr 66
     <td style=$style_note>$mav</td></tr>
12301 bpr 67
  $table_tr<th>$name_autoscore</th>
5986 bpr 68
     <td>$[100-$manual]%</td>
1887 bpr 69
     !read adm/class/colors $[ceil(10*$per/$scoremax)]
5727 bpr 70
     <td style=$style_note>$per</td></tr>
12301 bpr 71
  $table_tr<th>$name_globalaverage / $scoremax</th>
5986 bpr 72
     <td>100%</td>
1887 bpr 73
     !read adm/class/colors $[ceil(10*$globalav/$scoremax)]
5727 bpr 74
     <td style=$style_note>$globalav</td></tr>
12716 bpr 75
  </tbody>
12301 bpr 76
  $table_end
14132 obado 77
 
12716 bpr 78
  !set table_id=TABLE_manual
79
  !set table_class=sortable
12301 bpr 80
  $table_header
12716 bpr 81
  <thead>
14132 obado 82
    <tr><th colspan="3">$name_manualscore
83
    !if $wims_user=supervisor
84
      <br />
85
      !href lang=$lang&module=adm/class/grades&method=user&un=$getuser $wims_name_change
86
    !endif
87
    </th></tr>
88
    $table_hdtr<th>$(wims_name_thsheet[2])</th><th>$(wims_name_thsheet[4])</th><th>$(wims_name_thsheet[9])</th></tr>
12716 bpr 89
  </thead>
12301 bpr 90
  !set v_=0
12716 bpr 91
  <tbody>
12301 bpr 92
  !for i=1 to $gcnt
93
    $table_tr<td>$(titles[2+$i])</td><td>$(w$i)</td>
94
    !read adm/class/colors $[10*ceil($(g_$i))/$scoremax]
95
    <td style=$style_note>$(g_$i)</td></tr>
96
  !next i
12716 bpr 97
  </tbody>
98
  <tfoot>
14132 obado 99
    $table_hdtr<th colspan="2">$name_Average</th>
100
    !read adm/class/colors $[ceil(10*$mav/$scoremax)]
101
    <td style=$style_note>$mav</td></tr>
12716 bpr 102
  </tfood>
12301 bpr 103
  $table_end
12716 bpr 104
  !read tablesort.phtml
23 reyssat 105
!else
12301 bpr 106
  <div class="wimscenter">
107
  $name_globalaverage: <b>$per</b> / $scoremax.
108
  !if $min_glob<$scoremax
109
    <br /><span class="small">$name_minmax:
110
    $min_glob/$mean_glob/$max_glob</span>
111
  !endif
112
  </div>
23 reyssat 113
!endif
114
 
1317 reyssat 115
 
116
!!readdef wimshome/log/classes/$wims_class/.def
117
!!default class_topscores=0
118
!if $class_topscores>0
3087 bpr 119
 
12301 bpr 120
  $table_header$table_hdtr<th colspan="2">$name_topten</td></tr>
121
  !for i=1 to $class_topscores
122
    !set L=!line $i of $TT
123
    !if $class_anonymtopscores=yes
124
      !set name=$i
125
    !else
126
      !set name=!item 1 of $L
127
      !set firstname=!item 2 of $L
128
      !set name=$name $firstname
129
    !endif
130
    !set avg=!item 4 of $L
14132 obado 131
    $table_tr
132
      <td class="small" style="text-align:right;font-weight:bold">
133
      $name &nbsp;</td>
134
      <td style="text-align:left" class="small">&nbsp;$avg</td>
135
    </tr>
12301 bpr 136
  !next i
12716 bpr 137
  $table_end
3087 bpr 138
 
1317 reyssat 139
!endif
140
 
12480 guerimand 141
!! ---------------- display table for each exam session
23 reyssat 142
!if $eactivecnt>0
12716 bpr 143
  !set table_id=TABLE_exam
14132 obado 144
  !set table_class=sortable
12716 bpr 145
  $table_header
146
  <thead>
15970 guerimand 147
  <caption>$name_examnote</caption>
12301 bpr 148
  $table_hdtr
14132 obado 149
    <th scope="col">$(wims_name_thsheet[1])</th>
150
    <th scope="col">$(wims_name_thsheet[2])</th>
151
    <th scope="col">$(wims_name_thsheet[9])/$scoremax</th>
12301 bpr 152
  </tr>
12716 bpr 153
  </thead>
154
  <tbody>
12301 bpr 155
  !for i in $activexams
156
    !set l=!record $i of wimshome/log/classes/$wims_class/exams/.exams
157
    !set t=!line 4 of $l
12791 bpr 158
    !set st=!line 1 of $l
159
    !set ew=!line $i of $examweights
16006 guerimand 160
    !! ------test if sheet is hidden for this user
161
    !reset hidden_sheet
162
    !if $wims_user!=supervisor
163
      !set h_=!line 8 of $l
164
      !if $h_!=$empty
165
        !readproc adm/vfilter/ishiddensheet.proc $h_
166
      !endif
167
    !endif
168
    !! -----end test
169
    !if ($st<=2 or $ew>0) and $hidden_sheet!=1
14132 obado 170
     $table_tr
171
      <td>$i</td>
12791 bpr 172
      <td>$t</td>
173
      !if $[rint(10*$(es_$i)*$scoremax)/100]>0
174
        !read adm/class/colors $[ceil($(es_$i))]
175
        <td style=$style_note>$[rint(10*$(es_$i)*$scoremax)/100]</td>
176
      !else
177
        <td>--</td>
178
      !endif
14132 obado 179
     </tr>
12301 bpr 180
    !endif
181
  !next i
12716 bpr 182
  </tbody>
12301 bpr 183
  $table_end
12716 bpr 184
  !read tablesort.phtml
12301 bpr 185
!endif
14132 obado 186
 
12480 guerimand 187
!! ------------------ display table for each sheet
12550 bpr 188
!set tmp=!defof DF_SEVERITY in wimshome/public_html/bases/sys/define.conf
12554 bpr 189
!distribute words $tmp into tmp_w,tmp_s,tmp_ss
12301 bpr 190
!for i=1 to $activecnt
15763 guerimand 191
  !set exonumber=0
12301 bpr 192
  !set l_=!line $i of $activesheets
15763 guerimand 193
  !distribute items $l_ into n_,e_,indtechvar
12301 bpr 194
  !set L_=!line $n_ of $defaultformula
195
  !reset A_ B_ C_
196
  !distribute word $L_ into A_,B_,C_
12550 bpr 197
  !default A_=$tmp_w
198
  !default B_=$tmp_s
13045 bpr 199
  !default C_=$tmp_ss
15763 guerimand 200
  !set t_=!item 4 to -1 of $l_
12301 bpr 201
  !set t_=!char 1 to $title_limit of $t_
202
  !set v_=!getscorerequire sheet=$n_ user=$getuser
203
  !set w_=!wordcnt $v_
204
  !set S_=0
205
  !for k=1 to $w_
206
    !set a_=!word $k of $v_
207
    !set S_=$[$S_+$a_]
208
  !next k
12791 bpr 209
  !if $S_<=0
210
    !goto next
211
  !endif
12301 bpr 212
  !set sw=!line $[$n_+1] of $shweights
213
  !set q=!word 2 of $sw
214
  !set sw=!word 3 of $sw
215
  !bound sw between integer 0 and 2 default $tmp_ss
216
  !bound q between integer 0 and 6 default $tmp_s
217
  !set seq_open=!defof sequence_open in wimshome/log/classes/$wims_class/seq/.def
15937 guerimand 218
  !if $indtechvar!=$empty
15963 guerimand 219
    !let pos_=!positionof item $indtechvar in $tv_listcode
220
    !let nametechvar=!item $pos_ of $tv_listname
221
    !set pos=!positionof item $nametechvar in $(user_vars[;1])
222
    !set indtechvarvalue=!item $pos of $(user_vars[;2])
223
    !set listvalue=!record $n_ of wimshome/log/classes/$wims_class/sheets/.vars
224
    !set listvalue=!word 3 to -1 of $listvalue
225
    !set listvalue=!words2items $listvalue
226
    !bound indtechvarvalue within $empty,$listvalue default $empty
15937 guerimand 227
    !if $indtechvarvalue=$empty
15949 guerimand 228
        !reset tmp
15937 guerimand 229
    !else
15963 guerimand 230
        !set tmp= - $nametechvar $indtechvarvalue
15937 guerimand 231
    !endif
232
  !else
233
   !reset tmp
234
  !endif
12301 bpr 235
  !if $seq_open!=yes
15949 guerimand 236
    !set hat=$name_Sheet $n_$(tmp)&nbsp; : $t_
1895 bpr 237
  !else
15963 guerimand 238
    !set hat=$wims_name_sequence $(t_[1])$tmp&nbsp; : $(t_[2..-1])
1895 bpr 239
  !endif
14132 obado 240
 
12301 bpr 241
  <br class="spacer" />
7901 bpr 242
  !if $wims_user=supervisor
243
    !set nb_indic=5
244
  !else
11108 bpr 245
    !set nb_indic=3
7901 bpr 246
  !endif
7664 bpr 247
  !set P_=!line $n_ of $percents
12301 bpr 248
  !distribute words $P_ into p1,p2,p3,p4
7664 bpr 249
  !if $p2!=$empty
12301 bpr 250
    !distribute item $[$p1/100],$[$p2/10],$[$p3/100],$[$p4/100] into x0_,y_,x1_,x2_
251
    !set ff_$n_=!mathsubst Q=$y_ in $(f_$n_)
252
    !for sev=0 to 2
253
      !set ff_$n_=!mathsubst I$sev=$(x$(sev)_) in $(ff_$n_)
254
    !next
16198 bpr 255
    !! home/sequence.phtml
256
    !! adm/class/userscore/csv/download.proc
257
    !! themes/_widgets/usersheet.phtml
258
    !set p_=$[rint(100*$scoremax*$(ff_$n_))/100]
7664 bpr 259
  !endif
12480 guerimand 260
  !set table_id=TABLE_sheet$i
261
  !set table_class=sortable
262
  $table_header
14132 obado 263
  <thead id="sheet$n_">
12714 bpr 264
  <tr><th colspan="$[$nb_indic+5]" style="text-align:left">
12301 bpr 265
  !if $p2!=$empty
14132 obado 266
    <div class="float_left">
267
      !href module=adm/sheet&sh=$n_ $hat
268
      <ul>
269
        <li>$(wims_name_thsheet[4]): $A_</li>
270
        !if $wims_user=supervisor
271
          <li>$(wims_name_thsheet[8]):
272
            !lowercase $(f_$n_)
273
            !set wims_ref_class=wims_button_help
274
            !href cmd=help&special_parm=$n_ $(wims_name_help)
275
          </li>
276
        !endif
277
        !!global note
278
        !if $(min_$n_)<$scoremax
15763 guerimand 279
             <li>$name_minmax: $(min_$n_)/$(mean_$n_)/$(max_$n_)</li>
14132 obado 280
        !endif
281
      </ul>
282
    </div>
12712 bpr 283
    !reset tmp_ss
14132 obado 284
    <ul class="float_right">
14133 obado 285
      !! score
15844 bpr 286
      <li>$(wims_name_thsheet[9]):
15763 guerimand 287
             $p_
288
      / $scoremax.</li>
14133 obado 289
      !! quality
14132 obado 290
      !if $wims_user=supervisor or $q!=1
15844 bpr 291
        <li>$(wims_name_thsheet[7]):
15763 guerimand 292
             $p2
293
        /10</li>
14132 obado 294
      !endif
14133 obado 295
      !! Cumul
14132 obado 296
      !if $wims_user=supervisor or $sw=0
15844 bpr 297
        <li>$(wims_name_thsheet[5]):
15763 guerimand 298
             $p1
299
         %</li>
14132 obado 300
      !endif
14133 obado 301
      !! Best score
14132 obado 302
      !if $wims_user=supervisor or $sw=1
15844 bpr 303
        <li>$(wims_name_thsheet[10]):
15763 guerimand 304
             $p3
305
        %</li>
14132 obado 306
      !endif
14133 obado 307
      !! Acquired
14132 obado 308
      !if $wims_user=supervisor or $sw=2
15844 bpr 309
        <li>$(wims_name_thsheet[13]):
15763 guerimand 310
             $[$p4/10]
311
        /10</li>
14132 obado 312
      !endif
313
    </ul>
12301 bpr 314
  !else
315
    !href module=adm/sheet&sh=$n_ $hat
316
  !endif
10887 bpr 317
  </div>
12301 bpr 318
  </th></tr>
319
  $table_hdtr
12480 guerimand 320
    <th scope="col" data-sort-method="number">$(wims_name_thsheet[1])</th>
321
    <th scope="col">$(wims_name_thsheet[2])</th>
322
    <th scope="col" data-sort-method="number">$(wims_name_thsheet[3])</th>
323
    <th scope="col" data-sort-method="number">$(wims_name_thsheet[4])</th>
14132 obado 324
    !!qualite
12480 guerimand 325
    <th scope="col" data-sort-method="number">$(wims_name_thsheet[7])</th>
14132 obado 326
    !if $wims_user=supervisor or $sw=0
327
      !!I0: percentage work (related to cumul)
328
      <th scope="col" data-sort-method="number">$(wims_name_thsheet[5])</th>
329
    !endif
330
    !if $wims_user=supervisor or $sw=1
331
      !!I1: best percentage
332
      <th scope="col" data-sort-method="number">$(wims_name_thsheet[10])</th>
333
    !endif
334
    !if $wims_user=supervisor or $sw=2
335
      !!I2: level
336
      <th scope="col" data-sort-method="number">$(wims_name_thsheet[13])</th>
337
    !endif
12468 bpr 338
    !!last
12480 guerimand 339
    <th scope="col" data-sort-method="number">$(wims_name_thsheet[12])</th>
12468 bpr 340
    !!number try
12992 bpr 341
    <th scope="col" data-sort-method="number">
14132 obado 342
      <div class="wims_tooltip">$(wims_name_thsheet[11])
343
        <div class="wims_tooltiptext left" style="width:50em">
344
          $name_tryhelp
345
        </div>
12992 bpr 346
      </div>
14132 obado 347
    </th>
12480 guerimand 348
  </tr>
349
  </thead>
350
  <tbody>
12301 bpr 351
  !for j=1 to $e_
352
    !let d=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$n_
15820 guerimand 353
    !distribute line $d into t,t,t,t,title_,t,t,t,t,t,indiv_
15763 guerimand 354
    !if $indtechvar=$empty or $(user_techvar_$indtechvar)=$empty or $(user_techvar_$indtechvar) isitemof $indiv_
355
      !increase exonumber
356
      $table_tr
357
        <td>$exonumber</td>
358
        <td>$(title_)</td>
15820 guerimand 359
        <td>
360
          !let req_=!getscorerequire user=$getuser sheet=$n_ work=$j
361
          $(req_)
15844 bpr 362
        </td><td>
15820 guerimand 363
          !getscoreweight user=$getuser sheet=$n_ work=$j
364
        </td>
15763 guerimand 365
        !set try=!getscoretry user=$getuser sheet=$n_ work=$j
366
        !set alltry=!getscorealltries user=$getuser sheet=$n_ work=$j
367
        !if $alltry<=0
368
          !set makelist=!makelist <td>--</td> for j=1 to $nb_indic+1
369
          !replace , by in $makelist
12301 bpr 370
        !else
15763 guerimand 371
          !!!quality in exercise will always appear.
372
          !set d_=!getscorequality user=$getuser sheet=$n_ work=$j
373
          !default d_=0
374
          !read adm/class/colors $[ceil($d_)]
375
          <td style=$style_note>$d_</td>
376
          !!cumul
377
          !if $wims_user=supervisor or $sw=0
378
            !set d_=!getscore user=$getuser sheet=$n_ work=$j
379
            !default d_=0
380
            !!percentage
381
            !if $(req_)>0
382
              !read adm/class/colors $[ceil(10*$d_/$(req_))]
383
              <td style=$style_note>$[ceil(100*$d_/$(req_))]%</td>
384
            !else
385
              <td>--</td>
386
            !endif
387
          !endif
388
          !if $wims_user=supervisor or $sw=1
389
            !!best percentage
390
            !set best=!getscorebest user=$getuser sheet=$n_ work=$j
391
            !read adm/class/colors $[ceil(10*$best/$req_)]
392
            <td style=$style_note>$[ceil($[$best*100/$req_])]%</td>
393
          !endif
394
          !if $wims_user=supervisor or $sw=2
395
            !!level
396
            !set level=!getscorelevel user=$getuser sheet=$n_ work=$j
397
            !read adm/class/colors $[min(ceil($level+0.1),10)]
398
            <td style=$style_note>$level</td>
399
          !endif
14132 obado 400
 
15763 guerimand 401
          !!last
402
          !set last=!getscorelast user=$getuser sheet=$n_ work=$j
403
          !read adm/class/colors $[ceil($last)]
404
          <td style=$style_note>$last</td>
14132 obado 405
 
15763 guerimand 406
          !!try
407
          <td>
408
            !set tmp=!record $j of wimshome/log/classes/$wims_class/sheets/.sheet$n_
409
            !distribute lines $tmp into di,pa
410
            !read getparm $pa, seedrepeat, exotrymax
411
            !set tmp=!getseedscores user=$getuser sheet=$n_ work=$j
412
            !set tmp=!declosing $tmp
413
            !set tmp=!select $tmp where column 2 > -2
414
            !set tmp_cnt=!itemcnt $(tmp[;1])
415
            !if $get_seedrepeat>0
416
              !set tmp_width=width:$[ceil($tmp_cnt/$get_seedrepeat)+1]em;
417
            !else
418
              !set tmp_width=width:$[$tmp_cnt+1]em;
419
            !endif
420
            <div class="wims_tooltip">
421
              !if $get_exotrymax=$empty
422
                $try + $[$alltry-$try]
423
              !else
424
                ($try + $[$alltry-$try]) | $get_exotrymax
425
              !endif
426
              <div class="wims_tooltiptext left" style="$tmp_width">
427
                !read adm/class/seedscore.phtml [$tmp],$get_seedrepeat
428
              </div>
429
            </div>
430
            !reset tmp get_seedrepeat tmp_width
431
          </td>
432
        !endif try
433
      </tr>
434
    !endif
12301 bpr 435
  !next j
12480 guerimand 436
  </tbody>
12301 bpr 437
  $table_end
12638 obado 438
  !read tablesort.phtml
12791 bpr 439
  :next
23 reyssat 440
!next i
12638 obado 441
 
9809 bpr 442
!read wimshome/public_html/themes/_widgets/topback.phtml
1607 bpr 443
 
23 reyssat 444
!if $exologs!=$empty
12301 bpr 445
  !set wims_menu_items=!append line itemsep,0,\
9809 bpr 446
 reg_ex,1,module=adm/class/exolog&cmd=new&job=list&checkuser=$getuser\
1791 bpr 447
 to $wims_menu_items
23 reyssat 448
!endif
14132 obado 449
!set wims_menu_items=!append line rawdata,1,cmd=reply&job=getraw&getraw=$getuser\
9351 bpr 450
to $wims_menu_items
15970 guerimand 451
!if $wims_user=supervisor or $class_examshow!=no
15972 bpr 452
  !set wims_name_title_examdetail=$name_exam_expl
15970 guerimand 453
  !set wims_menu_items=!append line examdetail,1,cmd=reply&job=examcheck&checkuser=$getuser\
454
to $wims_menu_items
455
!endif
1607 bpr 456
 
14132 obado 457
!if $wims_user=supervisor
458
  !set wims_menu_items=!append line \
459
account,1,module=adm/class/usermanage&job=userprop&getuser=$getuser\
1336 bpr 460
to $wims_menu_items
14132 obado 461
  !if (($wims_supertype<3 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename=course)) and $wims_showlivret!=no
462
    !set wims_menu_items=!append line livret1,1,module=adm/class/livret&job=user&user=$getuser\
463
to $wims_menu_items
464
    !set wims_menu_items=!append line activity1,1,module=adm/class/activity&job=exobyday&user=$getuser\
465
to $wims_menu_items
466
  !endif
467
  !set wims_menu_items=!append line itemsep,0, \
468
part_list,1,cmd=resume\
469
to $wims_menu_items
470
  !read adm/class/getnextuser $wims_class,$getuser,getuser,getuser
471
!else
12301 bpr 472
  !if $wims_showlivret!=no
473
    !set livret_nbcomp=!recordcnt wimshome/log/classes/$wims_class/livret/.comps
474
    !if $livret_nbcomp >0
475
      !set wims_menu_items=!append line livret,1,module=adm/class/livret to $wims_menu_items
476
    !endif
3095 guerimand 477
  !endif
23 reyssat 478
!endif
14132 obado 479
<br class="spacer" />
11105 bpr 480
 
12550 bpr 481
!reset tmp tmp_w tmp_s tmp_ss