Subversion Repositories wimsdev

Rev

Rev 15606 | Rev 16378 | 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.     <p class="exampart">$name_exampart</p>
  19.     $table_header
  20.     $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>
  21.     <th colspan="$maxexo">$name_Exercise </th>
  22.     <th rowspan="2">$name_Start</th>
  23.     <th rowspan="2">$name_Duration</th></tr>
  24.     $table_hdtr
  25.     !for i=1 to $maxexo
  26.       <th>$i</th>
  27.     !next i
  28.     </tr>
  29.     !for ses in $checksessions
  30.       !set pos_ses=!positionof item $ses in $checksessions
  31.       !for x in $(exam_$(pos_ses))
  32.         !set tmp=!record $x of wimshome/log/classes/$wims_class/exams/.exams
  33.         !! ------test if sheet is hidden for this user
  34.         !reset hidden_sheet
  35.         !if $wims_user!=supervisor
  36.           !set h_=!line 8 of $tmp
  37.           !if $h_!=$empty
  38.             !readproc adm/vfilter/ishiddensheet.proc $h_
  39.           !endif
  40.         !endif
  41.         !! -----end test
  42.         !if $hidden_sheet!=1
  43.           !!titre
  44.           !set tmp=!line 4 of $tmp
  45.           $table_tr<td class="small">$ses</td>
  46.           <td>$x: $tmp</td>
  47.           !reset tmp
  48.           !read adm/class/colors $[rint($(score$(pos_ses)_$x)*$scoremax)/10]
  49.           <td style=$style_note>$[rint(10*$(score$(pos_ses)_$x)*$scoremax)/100]</td>
  50.           !reset style_note
  51.           !let nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$x
  52.           !for i=1 to $nbx
  53.             !!calculate in adm/class/userscore
  54.             !if $(Exam_$(x)_$(pos_ses)[$i])!=$empty
  55.               !set s=$(Exam_$(x)_$(pos_ses)[$i])
  56.               !set s_color=$s
  57.               !if $s_color=0
  58.                 !set s_color=1
  59.               !endif
  60.               !read adm/class/colors $s_color
  61.             !else
  62.               !set s_color=""
  63.               !if $(duree$(pos_ses)_$x)=$empty
  64.                 !set s=&dagger;
  65.               !else
  66.                 !! ?? can ever be "exercice never tried" or just "exercice unfinished"
  67.                 !set s=??
  68.               !endif
  69.             !endif
  70.             <td style=$style_note>
  71.             !href target=wims_check module=$module&cmd=new&job=examcheck&checkuser=$checkuser&checksession=$ses&checkexo=$x.$i&checkstep=1 $s
  72.             !reset style_note
  73.             </td>
  74.           !next i
  75.           !if $nbx<$maxexo
  76.             !for i=$[$nbx+1] to $maxexo
  77.               <td style="background-image:url(gifs/bg/crossgrey.gif)">&nbsp;</td>
  78.             !next i
  79.           !endif
  80.           <td class="small">
  81.           !read date.phtml $(start$(pos_ses)_$x)
  82.           </td>
  83.           <td class="small">
  84.           !if $(duree$(pos_ses)_$x)!=$empty
  85.             !set tmp=!exec pari divrem($(duree$(pos_ses)_$x),60)~
  86.             !item 1 of $tmp
  87. $ $
  88.             !char 1 to 3 of $name_minutes
  89. $ $
  90.             !item 2 of $tmp
  91.           !endif
  92.           </td>
  93.           </tr>
  94.         !endif
  95.       !next x
  96.     !next sess
  97.     $table_end
  98.   !endif
  99. !endif
  100. !if $wims_user!=supervisor
  101.   !set wims_menu_items=!append line myscore,1,cmd=reply&job=getuser&getuser=$checkuser\
  102. to $wims_menu_items
  103. !else
  104.   !set wims_menu_items=!append line scores,1,cmd=reply&job=getuser&getuser=$checkuser\
  105. to $wims_menu_items
  106.   !read adm/class/getnextuser $wims_class,$checkuser,examcheck,checkuser
  107.   !set wims_menu_items=!append line itemsep,0,\
  108.  part_list,1,cmd=resume\
  109.  to $wims_menu_items
  110. !endif
  111.