Subversion Repositories wimsdev

Rev

Rev 18144 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
1587 bpr 2
!read adm/title.phtml 1\
3
$classname\
4
$name_title_examcheck
23 reyssat 5
 
6
!if _check isin $session
12465 bpr 7
  !set error=bad_op
23 reyssat 8
!endif
9
 
10
!if $error!=$empty
15049 obado 11
  <div class="wims_msg alert">
12
    !read lang/msg.phtml.$moduclass_lang
12465 bpr 13
  </div>
23 reyssat 14
!else
12465 bpr 15
  !if $checksessions=$empty
15049 obado 16
    <p class="no_exampart">$name_no_exampart</p>
12465 bpr 17
  !else
16378 guerimand 18
 
19
    !if $class_examscore_withoutip!=yes and $scorereducedbyip=1
20
      <div class="wims_msg info">$name_msg_exam_withip</div>
21
    !endif
22
 
15049 obado 23
    <p class="exampart">$name_exampart</p>
12465 bpr 24
    $table_header
25
    $table_hdtr<th rowspan="2">$name_Session</th><th rowspan="2">$name_Exam</th><th rowspan="2">$name_Score<span class="small">/$scoremax</span></th>
26
    <th colspan="$maxexo">$name_Exercise </th>
27
    <th rowspan="2">$name_Start</th>
16386 guerimand 28
    <th rowspan="2">$name_Duration</th>
16846 guerimand 29
    !if $wims_user=supervisor
30
      <th rowspan="2">$wims_name_sendbug</th>
31
    !endif
16386 guerimand 32
    </tr>
12465 bpr 33
    $table_hdtr
34
    !for i=1 to $maxexo
35
      <th>$i</th>
36
    !next i
37
    </tr>
38
    !for ses in $checksessions
39
      !set pos_ses=!positionof item $ses in $checksessions
40
      !for x in $(exam_$(pos_ses))
15559 bpr 41
        !set tmp=!record $x of wimshome/log/classes/$wims_class/exams/.exams
18148 bpr 42
        !! ------test if exam is hidden for this user
18144 bpr 43
        !if $wims_user!=supervisor
18148 bpr 44
          !set tmp_exam_status=!getsheetstatus exam=$(pos_ses)
18144 bpr 45
        !endif
16006 guerimand 46
        !! -----end test
18148 bpr 47
        !if $tmp_exam_status!=3
16006 guerimand 48
          !!titre
49
          !set tmp=!line 4 of $tmp
50
          $table_tr<td class="small">$ses</td>
51
          <td>$x: $tmp</td>
52
          !reset tmp
16378 guerimand 53
          !! ----- manage of examscorewithoutip or not
54
          !if $class_examscore_withoutip=yes
55
            !let tsco=$(score$(pos_ses)_$x)
56
            !let star=$empty
57
          !else
58
            !let tsco=$(scoreip$(pos_ses)_$x)
59
            !if $(score$(pos_ses)_$x)!=$(scoreip$(pos_ses)_$x)
60
              !let realtsco=$[rint(10*$(score$(pos_ses)_$x)*$scoremax)/100]
61
              !let star=<div class="wims_tooltip">&ast;<div class="wims_tooltiptext">$name_real_score</div></div>
62
            !endif
63
          !endif
64
          !! ----
16773 czzmrn 65
          !read adm/class/colors $tsco
16378 guerimand 66
          !let tsco=$[rint(10*$tsco*$scoremax)/100]
67
          <td style=$style_note>$tsco$star</td>
16006 guerimand 68
          !reset style_note
69
          !let nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$x
70
          !for i=1 to $nbx
16383 guerimand 71
            !!calculate in adm/class/userscore1
16006 guerimand 72
            !if $(Exam_$(x)_$(pos_ses)[$i])!=$empty
73
              !set s=$(Exam_$(x)_$(pos_ses)[$i])
16771 czzmrn 74
              !set s_color=$[rint(10*$s/$scoremax)]
16006 guerimand 75
              !if $s_color=0
76
                !set s_color=1
77
              !endif
16772 czzmrn 78
              !read adm/class/colors $s_color,htmlcolor
12465 bpr 79
            !else
16006 guerimand 80
              !set s_color=""
81
              !if $(duree$(pos_ses)_$x)=$empty
82
                !set s=&dagger;
83
              !else
84
                !! ?? can ever be "exercice never tried" or just "exercice unfinished"
85
                !set s=??
86
              !endif
12465 bpr 87
            !endif
16772 czzmrn 88
            <td class="wims_sheet_score">
16383 guerimand 89
              !if $i isitemof $(exo$(ses)$x)
16772 czzmrn 90
                <span style="border-color:$note_color">
16383 guerimand 91
                !href target=wims_check module=$module&cmd=new&job=examcheck&checkuser=$checkuser&checksession=$ses&checkexo=$x.$i&checkstep=1 $s
16772 czzmrn 92
                </span>
16383 guerimand 93
              !endif
16867 czzmrn 94
              !reset note_color
16006 guerimand 95
            </td>
96
          !next i
97
          !if $nbx<$maxexo
98
            !for i=$[$nbx+1] to $maxexo
99
              <td style="background-image:url(gifs/bg/crossgrey.gif)">&nbsp;</td>
100
            !next i
12465 bpr 101
          !endif
16006 guerimand 102
          <td class="small">
103
          !read date.phtml $(start$(pos_ses)_$x)
12465 bpr 104
          </td>
16006 guerimand 105
          <td class="small">
106
          !if $(duree$(pos_ses)_$x)!=$empty
107
            !set tmp=!exec pari divrem($(duree$(pos_ses)_$x),60)~
108
            !item 1 of $tmp
9470 bpr 109
$ $
16006 guerimand 110
            !char 1 to 3 of $name_minutes
9470 bpr 111
$ $
16006 guerimand 112
            !item 2 of $tmp
113
          !endif
114
          </td>
16846 guerimand 115
          !if $wims_user=supervisor
116
            <td>
16386 guerimand 117
             !! link for sendbug
118
             !reset t
119
             !for exo in $(exo$(ses)$x)
120
               !let l=module=adm/sendbug&+logcheck=$x.$exo&+checkuser=$checkuser&+checksession=$ses&+logtype=exam $wims_name_Exercise $exo
121
               !let t=!append line $l to $t
122
             !next exo
123
             !read js/dropdownbutton.phtml dropbutton_$(ses)_$x\
124
$wims_name_sendbug\
125
$t
16846 guerimand 126
            </td>
127
          !endif
16006 guerimand 128
          </tr>
12465 bpr 129
        !endif
130
      !next x
16386 guerimand 131
    !next ses
12465 bpr 132
    $table_end
133
  !endif
23 reyssat 134
!endif
9351 bpr 135
!if $wims_user!=supervisor
12465 bpr 136
  !set wims_menu_items=!append line myscore,1,cmd=reply&job=getuser&getuser=$checkuser\
1587 bpr 137
to $wims_menu_items
9351 bpr 138
!else
12465 bpr 139
  !set wims_menu_items=!append line scores,1,cmd=reply&job=getuser&getuser=$checkuser\
9351 bpr 140
to $wims_menu_items
12465 bpr 141
  !read adm/class/getnextuser $wims_class,$checkuser,examcheck,checkuser
142
  !set wims_menu_items=!append line itemsep,0,\
1643 bpr 143
 part_list,1,cmd=resume\
144
 to $wims_menu_items
145
!endif