Subversion Repositories wimsdev

Rev

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

  1.  
  2. !if $exologcnt<1
  3.  $name_noexercise2 $(names[1]) $(names[2]).
  4.  !exit
  5. !endif
  6.  
  7. $name_click
  8. !if $wims_user=supervisor
  9.  $name_bug
  10. !endif
  11.  
  12. !read tabletheme
  13.  
  14. $table_header
  15. $table_hdtr
  16. <th class="small">$wims_name_date</th>
  17. !if $checkuser!=supervisor
  18.   <th class="small">$wims_name_Sheet</th>
  19. !else
  20.   <th class="small">$wims_name_Module</th>
  21. !endif
  22. <th class="small">$wims_name_Exercise</th>
  23. <th class="small">$name_Step</th>
  24. <th class="small">$wims_name_Score1</th>
  25. <th>$wims_name_title</th>
  26. <th>$wims_name_action</th>
  27. </tr>
  28. !for i=1 to $exologcnt
  29.  !set l=!line $i of $exolog2
  30.  !set l_=!line $i of $exologs
  31.  !distribute item $l into d_,s_,n_
  32.  !set n_=!translate . to , in $n_
  33.  !distribute item $n_ into S_,E_
  34.  !set s_=!getdef w_module_score in wimshome/log/classes/$wims_class/exolog/$checkuser/$l_
  35.  !default s_=-
  36.  !set p_=!recordcnt wimshome/log/classes/$wims_class/exolog/$checkuser/$l_
  37.  !set V_=!record $E_ of wimshome/log/classes/$wims_class/sheets/.sheet$S_
  38.  !distribute lines $V_ into a,a,a,a,T_,D_
  39.  !default T_=!getdef w_title in wimshome/log/classes/$wims_class/exolog/$checkuser/$l_
  40.  !if $wims_user=supervisor
  41.    !set S__=!getdef w_module in wimshome/log/classes/$wims_class/exolog/$checkuser/$l_
  42.    !set E_=!getdef w_exo in wimshome/log/classes/$wims_class/exolog/$checkuser/$l_
  43.    !set M_=!getdef w_email in wimshome/log/classes/$wims_class/exolog/$checkuser/$l_
  44.    !if xiao isin $M_
  45.      !set M_=$DEBUG_MODULE
  46.    !else
  47.      !set CC_=$DEBUG_MODULE
  48.    !endif
  49.  !endif
  50.  !default T_=$S_
  51.  !if $T_!=$empty
  52.   $table_tr<td>
  53.   !href target=wims_check module=$module&job=check&checkuser=$checkuser&logcheck=$l_&checkstep=1 $d_
  54.   </td>
  55.   <td>$S_</td><td>$E_</td>
  56.   <td>$p_</td>
  57.   <td>$s_</td>
  58.   <td>$T_ <span class="small">$D_
  59.   !if $wims_user=supervisor
  60.    !getfile exolog/$l_ $name_source
  61.   !endif
  62.    </span>
  63.    </td><td>
  64.    !if $wims_user=supervisor
  65.    !!set source=!record 0 to -1 of $source
  66.    !!mailto $DEBUG_MODULE\
  67. !![qualite] $S_\
  68. !! :$source
  69. !set msg=Please join the file source in the attachment
  70.    <a class="wims_button" href="mailto:$M_?subject=[qualite] $S__ $E_&body=$msg&cc=$CC_">$name_sendmail</a>.
  71.     !endif
  72.    !endif
  73.    !if $checkuser=$wims_user
  74.      !set wims_ref_class=wims_button
  75.      !href cmd=reply&job=erase&source=exolog/$checkuser/$l_ $wims_name_erase
  76.    !endif
  77.   </td></tr>
  78.  !endif
  79. !next i
  80. $table_end
  81.  
  82. !if $checkuser!=supervisor
  83.   !set wims_menu_items=!append line myscore,1,module=adm/class/userscore&job=getuser&getuser=$checkuser\
  84. to $wims_menu_items
  85. !endif
  86.