Subversion Repositories wimsdev

!!!### language independant

!! ---- affiche le contenu de l'exam $exam de la classe $wims_class

<div id="list">

$table_header

 <caption>$name_contentsuper</caption>

 $table_hdtr

  !for k=1 to 7

    !if $mode=1

      !if $k notwordof 4 5 6 7

        <th>$(name_extab[$k])</th>

      !endif

    !else

      <th>$(name_extab[$k])</th>

    !endif

  !next k

  !if $activetest=0

    <th colspan="2">$(name_extab[8])</th>

  !endif

  </tr>

 !for i=1 to $exocnt

    !set ex=!record $i of wimshome/log/classes/$wims_class/exams/.exam$exam

    !distribute lines $ex into poids,content,title,dep,option,com

    !if $mode=1

      !set dep_=!record $exam of wimshome/log/classes/$wims_class/exams/.exams

      !set dep_=!line 3 of $dep_

      !set dep_=!word 3 of $dep_

      !if $dep_!= and $i>1

        !set dep=$[$i-1]:$dep_

      !endif

    !endif

    $table_tr

    <td>$i</td>

    <td>$title</td>

    <td>

    !for k in $content

      !let t=!replace internal . by , in $k

      !distribute item $t into s_,e_

      !let t=!record $e_ of wimshome/log/classes/$wims_class/sheets/.sheet$s_

      !distribute line $t into di,pa,bl,bl,bl,bl,bl

      !href target=wims_new module=$di&cmd=new&$pa $s_.$e_

       

    !next k

    </td>

    !if $mode iswordof 0

      <td>$poids</td>

      <td>$dep</td>

      <td>$com</td>

      <td>$option</td>

    !endif

    !if $activetest=0

      <td>

       !set wims_ref_class=wims_button

       !href cmd=reply&job=exo&exo=$i $wims_name_change

        

       !set wims_ref_class=wims_button wims_warning

       !href cmd=reply&job=delete&delete=$i#list $wims_name_erase

      </td>

      <td>

       !read adm/sheet/moveafterform.phtml $(name_extab[9])

      </td>

    !endif

  </tr>

  !next i

$table_end

</div>