Subversion Repositories wimsdev

Rev

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

  1. !! --------------------  affiche le contenu de la feuille $sheet de la classe $wims_class
  2. !! langage is defined in adm/class/sheet/lang/names.phtml.$lang
  3.  
  4. $table_header
  5. <caption>$name_content</caption>
  6. <thead>
  7.   $table_hdtr
  8.     !for k=1 to 5
  9.       <th>$(name_shtab[$k])</th>
  10.     !next k
  11.     <th>$name_qnum</th>
  12.     !for k=6 to 7
  13.       <th>$(name_shtab[$k])</th>
  14.     !next k
  15.     <th>$(name_shtab[10])</th>
  16.     !if $activetest>=0
  17.       <th>$(name_shtab[8])</th>
  18.       !if $activetest=0
  19.         <th>$(name_shtab[11])</th>
  20.       !endif
  21.     !endif
  22.   </tr>
  23. </thead>
  24. <tbody>
  25. !for i=1 to $exocnt
  26.   !set ex=!record $i of wimshome/log/classes/$wims_class/sheets/.sheet$sheet
  27.   !distribute lines $ex into di,pa,req,weig,ti,de,dep,com,feed,icone
  28.   $table_tr
  29.   <td id="td_exo_$i">$i</td>
  30.   <td>
  31.   !if $icone!=$empty
  32.     !set wims_ref_class=text_icon icon_$icone
  33.   !endif
  34.   !href cmd=new&module=$di&worksheet=$sheet&$pa $ti
  35.   </td>
  36.   <td>$de</td>
  37.   !if $activetest>0
  38.     <td>
  39.       !getscorerequire sheet=$sheet work=$i
  40.     </td>
  41.     <td>
  42.       !getscoreweight sheet=$sheet work=$i
  43.     </td>
  44.   !else
  45.     <td>
  46.      !row 1 of $req
  47.     </td>
  48.     <td>
  49.      !row 1 of $weig
  50.     </td>
  51.   !endif
  52.   !set pa=!replace internal & by $ $ in $pa
  53.   !reset qnum
  54.   !!oef exercises
  55.   !set qnum=!getopt qnum in $pa
  56.   !if $qnum=
  57.     !!J.E. exercises
  58.     !set qnum=!getopt total_exos in $pa
  59.   !endif
  60.    <td>$qnum</td>
  61.    <td>
  62.   !if $dep!=$empty
  63.     $dep
  64.   !else
  65.     $
  66.   !endif
  67.    </td>
  68.    <td>$com</td>
  69.   !set feedbr=!rows2lines $feed
  70.   !set feedbr=!replace internal $\
  71. $ by </li><li> in <ul><li>$feedbr</li></ul>
  72.    <td style="text-align:left" class="small">
  73.   !if $feed!=$empty
  74.       $feedbr
  75.   !endif
  76.   </td>
  77.   !if $activetest>=0
  78.     <td>
  79.     !set wims_ref_class=wims_button
  80.     !href cmd=reply&job=prep_modify&modif=$i $(seriesaction[1])
  81.     !if $activetest=0
  82.       $
  83.       !set wims_ref_class=wims_button wims_warning
  84.       !href cmd=reply&job=delete&delete=$i#list $(seriesaction[2])
  85.      </td><td>
  86.       !read adm/sheet/moveafterform.phtml
  87.     !endif
  88.     </td>
  89.   !endif
  90.   </tr>
  91. !next i
  92. </tbody>
  93. $table_end
  94.