Subversion Repositories wimsdev

Rev

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

  1. !!!### language independant
  2. !! --------------------  affiche le contenu de l'exam $exam de la classe $wims_class
  3.  
  4. <div id="list">
  5. $table_header
  6.  
  7. <caption>$name_content</caption>
  8.  
  9. $table_hdtr
  10.  !for k=1 to 7
  11.   <th>$(name_extab[$k])</th>
  12.  !next k
  13.  !if $activetest=0
  14.   <th>$(name_extab[8])</th>
  15.  !endif
  16. </tr>
  17. !for i=1 to $exocnt
  18.  !set ex=!record $i of wimshome/log/classes/$wims_class/exams/.exam$exam
  19.  !distribute lines $ex into poids,content,title,dep,option,com
  20.  $table_tr
  21.   <td>$i</td>
  22.   <td>$title</td>
  23.   <td>
  24.    !for k in $content
  25.     !let t=!replace internal . by , in $k
  26.     !distribute item $t into s_,e_
  27.     !let t=!record $e_ of wimshome/log/classes/$wims_class/sheets/.sheet$s_
  28.     !distribute line $t into di,pa,bl,bl,bl,bl,bl
  29.     !href target=wims_new module=$di&cmd=new&$pa $s_.$e_
  30.     &nbsp;
  31.    !next k
  32.   </td>
  33.   <td>$poids</td>
  34.   <td>$dep</td>
  35.   <td>$com</td>
  36.   <td>$option</td>
  37.   !if $activetest=0
  38.    <td>
  39.    !set wims_ref_class=wims_button
  40.     !href cmd=reply&job=exo&exo=$i $wims_name_change
  41.     &nbsp;
  42.     !set wims_ref_class=wims_button wims_warning
  43.     !href cmd=reply&job=delete&delete=$i#list $wims_name_erase
  44.     !if $i>1
  45.      &nbsp;
  46.      !set wims_ref_class=wims_button
  47.      !href cmd=reply&job=moveup&moveup=$i#list $wims_name_up
  48.     !endif
  49.    </td>
  50.   !endif
  51.  </tr>
  52. !next i
  53. $table_end
  54. </div>
  55.