Subversion Repositories wimsdev

Rev

Rev 9719 | Rev 15049 | 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.  !goto msg
  9. !endif
  10.  
  11. !if $error!=$empty
  12.  :msg
  13.  <div class="msg">
  14.   !read lang/msg.phtml.$moduclass_lang
  15.  </div>
  16. !else
  17.  !if $checksessions=$empty
  18.   <p class="no_exampart">
  19.    $name_no_exampart
  20.   </p>
  21.  !else
  22.   <p class="exampart">
  23.    $name_exampart
  24.   </p>
  25.   $table_header
  26.   $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>
  27.   <th colspan="$maxexo">$name_Exercise </th>
  28.   <th rowspan="2">$name_Start</th>
  29.   <th rowspan="2">$name_Duration</th></tr>
  30.   $table_hdtr
  31.    !for i=1 to $maxexo
  32.     <th>$i</th>
  33.    !next i
  34.   </tr>
  35.   !for ses in $checksessions
  36.    !set pos_ses=!positionof item $ses in $checksessions
  37.    !for x in $(exam_$(pos_ses))
  38.     $table_tr<td class="small">$ses</td>
  39.     <td>$x</td>
  40.     <td>$[rint($(score$(pos_ses)_$x)*$scoremax)/10]</td>
  41.     !let nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$x
  42.     !for i=1 to $nbx
  43.       <td>
  44.       !!calculate in adm/class/userscore
  45.       !if $(Exam_$(x)_$(pos_ses)[$i])!=$empty
  46.         !set s=$(Exam_$(x)_$(pos_ses)[$i])
  47.       !else
  48.         !if $(duree$(pos_ses)_$x)=$empty
  49.          !set s=&dagger;
  50.         !else
  51.          !set s=??
  52.         !endif
  53.       !endif
  54.       !href target=wims_check module=$module&cmd=new&job=examcheck&checkuser=$checkuser&checksession=$ses&checkexo=$x.$i&checkstep=1 $s
  55.      </td>
  56.     !next i
  57.     !if $nbx<$maxexo
  58.      !for i=$[$nbx+1] to $maxexo
  59.       <td style="background-image:url(gifs/bg/crossgrey.gif)">&nbsp;</td>
  60.      !next i
  61.     !endif
  62.    <td class="small">
  63.     !read date.phtml $(start$(pos_ses)_$x)
  64.    </td>
  65.    <td class="small">
  66.     !if $(duree$(pos_ses)_$x)!=$empty
  67.       !set tmp=!exec pari divrem($(duree$(pos_ses)_$x),60)~
  68.       !item 1 of $tmp
  69. $ $
  70.       !char 1 to 3 of $name_minutes
  71. $ $
  72.       !item 2 of $tmp
  73.     !endif
  74.    </td>
  75.   </tr>
  76.     !next x
  77.   !next sess
  78.   $table_end
  79.  !endif
  80. !endif
  81. !if $wims_user!=supervisor
  82.  !set wims_menu_items=!append line myscore,1,cmd=reply&job=getuser&getuser=$checkuser\
  83. to $wims_menu_items
  84. !else
  85.  !set wims_menu_items=!append line scores,1,cmd=reply&job=getuser&getuser=$checkuser\
  86. to $wims_menu_items
  87.  !read adm/class/getnextuser $wims_class,$checkuser,examcheck,checkuser
  88.  !set wims_menu_items=!append line itemsep,0,\
  89.  part_list,1,cmd=resume\
  90.  to $wims_menu_items
  91. !endif
  92.