Subversion Repositories wimsdev

Rev

Rev 17352 | 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.       !!\
  68.       !![qualite] $S_\
  69.       !! :$source
  70. !! --- direct use of sendbug module
  71.       !set wims_ref_class=wims_button
  72.       !href module=adm/sendbug&+job=sendbug&+checkuser=$checkuser&+logcheck=$l_ $name_sendmail
  73. !! --- old technic user mail manager
  74. !!      !set msg=Please join the file source in the attachment
  75. !!      <a class="wims_button" href="mailto:$M_?subject=[qualite] $S__ $E_&body=$msg&cc=$CC_">$name_sendmail</a>.
  76.     !endif
  77.   !endif
  78.   !if $checkuser=$wims_user
  79.     !set wims_ref_class=wims_button wims_warning
  80.     !href cmd=reply&job=erase&source=exolog/$checkuser/$l_ $wims_name_erase
  81.   !endif
  82.   </td></tr>
  83. !next i
  84. $table_end
  85.  
  86. !if $checkuser!=supervisor
  87.   !set wims_menu_items=!append line myscore,1,module=adm/class/userscore&job=getuser&getuser=$checkuser\
  88. to $wims_menu_items
  89.   !if $wims_user=supervisor
  90.     !set wims_menu_items=!append line SE_mod,1,module=adm/class/motd&+listuser=_CHECK_,$checkuser&+action=Modifier&+job=groupe\
  91. to $wims_menu_items
  92.   !endif
  93. !endif
  94.