Subversion Repositories wimsdev

Rev

Rev 16846 | Rev 18144 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

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