Subversion Repositories wimsdev

Rev

Rev 17553 | 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. <caption>$name_contentsuper</caption>
  7. $table_hdtr
  8.  !for k=1 to 7
  9.    !if $mode=1
  10.      !if $k notwordof 5 7
  11.        <th>$(name_extab[$k])</th>
  12.      !endif
  13.    !else
  14.      <th>$(name_extab[$k])</th>
  15.    !endif
  16.  !next k
  17.  !if $activetest=0
  18.    <th colspan="2">$(name_extab[8])</th>
  19.  !endif
  20.  </tr>
  21. !for i=1 to $exocnt
  22.    !set ex=!record $i of wimshome/log/classes/$wims_class/exams/.exam$exam
  23.    !distribute lines $ex into poids,content,title,dep,option,com
  24.    !if $mode=1
  25.      !set dep_=!record $exam of wimshome/log/classes/$wims_class/exams/.exams
  26.      !set dep_=!line 3 of $dep_
  27.      !set dep_=!word 3 of $dep_
  28.      !if $dep_!= and $i>1
  29.        !set dep=$[$i-1]:$dep_
  30.      !endif
  31.    !endif
  32.    $table_tr
  33.    <td>$i</td>
  34.    <td>$title</td>
  35.    <td>
  36.    !for k in $content
  37.      !let t=!replace internal . by , in $k
  38.      !distribute item $t into s_,e_
  39.      !let t=!record $e_ of wimshome/log/classes/$wims_class/sheets/.sheet$s_
  40.      !distribute line $t into di,pa,bl,bl,bl,bl,bl
  41.      !href target=wims_new module=$di&cmd=new&$pa $s_.$e_
  42.      &nbsp;
  43.    !next k
  44.    </td>
  45.    <td>$poids</td>
  46.    !if $mode iswordof 0 or $mode=
  47.      <td>$dep</td>
  48.    !endif
  49.    <td>$com</td>
  50.    !if $mode iswordof 0 or $mode=
  51.      <td>$option</td>
  52.    !endif
  53.    !if $activetest=0
  54.      <td>
  55.       !set wims_ref_class=wims_button
  56.       !href cmd=reply&job=exo&exo=$i $wims_name_change
  57.       &nbsp;
  58.       !set wims_ref_class=wims_button wims_warning
  59.       !href cmd=reply&job=delete&delete=$i#list $wims_name_erase
  60.      </td>
  61.      <td>
  62.       !read adm/sheet/moveafterform.phtml $(name_extab[9])
  63.      </td>
  64.    !endif
  65.  </tr>
  66.  !next i
  67. $table_end
  68. </div>
  69.