Subversion Repositories wimsdev

Rev

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

  1. !!##!! language independant
  2. !read adm/class/classname.phtml $wims_classname\
  3. $wims_institutionname
  4.  
  5. !read adm/title.phtml 1\
  6. $classname\
  7. $livret_title\
  8. $name_job
  9.  
  10. <hr style="width:40%" />
  11. <ul>
  12.  <li>$name_title_comp : <span style="color:green;" class="bold">$(title_$comp)</span>.</li>
  13.  !let eold=!record $palier of wimshome/log/classes/$wims_class/livret/.comp$comp
  14.  !distribute line $eold into name,eold
  15.  <li>$name_n_Palier $palier : <span style="color:green;" class="bold">$name</span>.</li>
  16.  !if $eold!=
  17.   $table_header
  18.    $table_hdtr<th>$wims_name_Sheet</th><th>$wims_name_Exercise</th><th>$wims_name_title</th><th>&nbsp;</th></tr>
  19.    !for l in $eold
  20.     !let t=!replace internal . by , in $l
  21.     !if $(t[1]) notitemof $livret_nonactivesheet
  22.      $table_tr
  23.        <td>
  24.         !if $(t[1]) isitemof $nssheets
  25.           $(t[1])
  26.         !else
  27.          !href module=adm/sheet&sh=$(t[1]) $(t[1])
  28.         !endif
  29.        </td><td>
  30.         !if $(t[1]) notitemof $nssheets
  31.          !set ex=!record $(t[2]) of wimshome/log/classes/$wims_class/sheets/.sheet$(t[1])
  32.          !distribute lines $ex into di,pa,require,we,ti,de
  33.          !if $(deps_$(l[1]))=$empty
  34.           !let requires=!getscorerequire sheet=$(t[1])
  35.           !let scores=!getscore sheet=$(t[1])
  36.           !let means=!getscoremean sheet=$(t[1])
  37.           !readproc adm/mkdepsheet.proc $(t[1])
  38.           !let deps_$(t[1])=$deps
  39.          !endif
  40.          !set dep=!row $(t[2]) of $(deps_$(t[1]))
  41.          !set dep=!trim $dep
  42.          !if $dep=$empty
  43.           !href module=$di&cmd=new&worksheet=$(t[1])&$pa $(t[2])
  44.          !else
  45.           $(t[2])
  46.          !endif
  47.         !else
  48.          $(t[2])
  49.         !endif
  50.        </td><td>
  51.         !line $(t[2]) of $(sheet$(t[1]))
  52.        </td>
  53.        !let t=!word $(t[2]) of $(score[$(t[1]);])
  54.        !readproc adm/class/colors $t,livret
  55.        <td style=$style_note>
  56.         $output_note
  57.        </td>
  58.       </tr>
  59.      !endif
  60.     !next l
  61.    $table_end
  62.   !endif
  63.  </li>
  64. </ul>
  65. !set wims_menu_items=!append line back2,1,cmd=renew\
  66. to $wims_menu_items
  67.  
  68.