Subversion Repositories wimsdev

Rev

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

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