Subversion Repositories wimsdev

Rev

Rev 2926 | Blame | 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.  <p>
  14.  !read lang/msg.phtml.$moduclass_lang
  15.  <p>
  16. !else
  17.  !if $checksessions=$empty
  18.   $name_no_exampart
  19.   <p>
  20.  !else
  21.   $name_exampart
  22.   <p>$table_header
  23.   $table_hdtr<th rowspan="2">$name_Session</th><th rowspan="2">$name_Exam</th><th rowspan="2">$name_Score<small>/$scoremax</small></th>
  24.   <th colspan="$maxexo">$name_Exercise </th><th rowspan="2">$name_Start</th></tr>
  25.   $table_hdtr
  26.    !for i=1 to $maxexo
  27.     <th>$i</th>
  28.    !next i
  29.   </tr>
  30.   !for ses in $checksessions
  31.    !for x in $(exam$ses)
  32.     $table_tr<td><small>$ses</small></td>
  33.     <td align="center">$x</td>
  34.     <td align="center">$[rint($(score$(ses)$x)*$scoremax)/10]</td>
  35.     !let nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$x
  36.     !for i=1 to $nbx
  37.       <td align="center">
  38.       !if $i isitemof $(exo$(ses)$x)
  39.        !let s=!defof w_module_score in wimshome/log/classes/$wims_class/examlog/$checkuser/$ses/$x.$i
  40.        !href target=wims_check module=$module&cmd=new&job=examcheck&checkuser=$checkuser&checksession=$ses&checkexo=$x.$i&checkstep=1 $[rint($s*$scoremax)/10]
  41.       !else
  42.        &nbsp;
  43.       !endif
  44.      </td>
  45.     !next i
  46.     !if $nbx<$maxexo
  47.      !for i=$[$nbx+1] to $maxexo
  48.       <td align="center" style="background-image:url(gifs/bg/crossgrey.gif)">&nbsp;</td>
  49.      !next i
  50.     !endif
  51.    !next x
  52.    </td><td><small>
  53.     !read date.phtml $(start$(ses)$x)
  54.    </small></td>
  55.   !next t
  56.   $table_end <p>
  57.  !endif
  58. !endif
  59.  
  60. !set wims_menu_items=!append line scores,1,cmd=reply&job=getuser&getuser=$checkuser\
  61. to $wims_menu_items
  62. !if $wims_user=supervisor
  63.  !set wims_menu_items=!append line ,0,\
  64.  part_list,1,cmd=resume\
  65.  to $wims_menu_items
  66. !endif
  67.