Subversion Repositories wimsdev

Rev

Rev 8451 | Rev 9470 | 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><th rowspan="2">$name_Start</th></tr>
  28.   $table_hdtr
  29.    !for i=1 to $maxexo
  30.     <th>$i</th>
  31.    !next i
  32.   </tr>
  33.   !for ses in $checksessions
  34.    !for x in $(exam$ses)
  35.     $table_tr<td class="small">$ses</td>
  36.     <td>$x</td>
  37.     <td>$[rint($(score$(ses)$x)*$scoremax)/10]</td>
  38.     !let nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$x
  39.     !for i=1 to $nbx
  40.       <td>
  41.       !if $i isitemof $(exo$(ses)$x)
  42.        !let s=!defof w_module_score in wimshome/log/classes/$wims_class/examlog/$checkuser/$ses/$x.$i
  43.        !!if $s=$empty
  44.         !!perhaps the file is too long
  45.         !!let s=!record 0 of wimshome/log/classes/$wims_class/examlog/$checkuser/$ses/$x.$i
  46.         !!let s=!getopt w_module_score in $s
  47.         !!! if $module_score is empty, $s can be the line after, so we test there is only numbers and .
  48.         !!let s0=!text select 0123456789. in $s
  49.         !!if $s0!=$s
  50.         !! !reset s
  51.         !!!endif
  52.        !!!endif
  53.       !if $s!=$empty
  54.         !set s=$[rint($s*$scoremax)/10]
  55.       !else
  56.         !set s=??
  57.       !endif
  58.        !href target=wims_check module=$module&cmd=new&job=examcheck&checkuser=$checkuser&checksession=$ses&checkexo=$x.$i&checkstep=1 $s
  59.       !else
  60.         &nbsp;
  61.       !endif
  62.      </td>
  63.     !next i
  64.     !if $nbx<$maxexo
  65.      !for i=$[$nbx+1] to $maxexo
  66.       <td style="background-image:url(gifs/bg/crossgrey.gif)">&nbsp;</td>
  67.      !next i
  68.     !endif
  69.    !next x
  70.    <td class="small">
  71.     !read date.phtml $(start$(ses)$x)
  72.    </td>
  73.    </tr>
  74.   !next sess
  75.   $table_end
  76.  !endif
  77. !endif
  78.  
  79. !set wims_menu_items=!append line scores,1,cmd=reply&job=getuser&getuser=$checkuser\
  80. to $wims_menu_items
  81. !if $wims_user=supervisor
  82.   !read adm/class/getnextuser $wims_class,$checkuser,examcheck,checkuser
  83.  
  84.  !set wims_menu_items=!append line ,0,\
  85.  part_list,1,cmd=resume\
  86.  to $wims_menu_items
  87. !endif
  88.