Subversion Repositories wimsdev

Rev

Rev 9563 | Rev 12481 | 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.   !read proc/legend.proc legend
  18.   $table_header
  19.   $table_hdtr<th>$wims_name_Sheet</th><th>$wims_name_Exercise</th><th>$wims_name_title</th><th>&nbsp;</th></tr>
  20.   !for l in $eold
  21.     !let t=!replace internal . by , in $l
  22.     !if $(t[1]) notitemof $livret_nonactivesheet
  23.       $table_tr
  24.        <td>
  25.       !if $(t[1]) isitemof $nssheets
  26.         $(t[1])
  27.       !else
  28.         !href module=adm/sheet&sh=$(t[1]) $(t[1])
  29.       !endif
  30.       </td><td>
  31.       !if $(t[1]) notitemof $nssheets
  32.         !set ex=!record $(t[2]) of wimshome/log/classes/$wims_class/sheets/.sheet$(t[1])
  33.         !distribute lines $ex into di,pa,require,we,ti,de
  34.         !if $(deps_$(l[1]))=$empty
  35.           !let requires=!getscorerequire sheet=$(t[1])
  36.           !let scores=!getscore sheet=$(t[1])
  37.           !let means=!getscoremean sheet=$(t[1])
  38.           !readproc adm/mkdepsheet.proc $(t[1])
  39.           !let deps_$(t[1])=$deps
  40.         !endif
  41.         !set dep=!row $(t[2]) of $(deps_$(t[1]))
  42.         !set dep=!trim $dep
  43.         !if $dep=$empty
  44.           !href module=$di&cmd=new&worksheet=$(t[1])&$pa $(t[2])
  45.         !else
  46.           $(t[2])
  47.         !endif
  48.       !else
  49.         $(t[2])
  50.       !endif
  51.       </td><td>
  52.       !line $(t[2]) of $(sheet$(t[1]))
  53.       </td>
  54.       !let t=!word $(t[2]) of $(score[$(t[1]);])
  55.       !readproc adm/class/colors $t,livret
  56.       <td style=$style_note>
  57.        $output_note
  58.       </td>
  59.       </tr>
  60.     !endif
  61.   !next l
  62.   $table_end
  63. !endif
  64.  </li>
  65. </ul>
  66. !set wims_menu_items=!append line back2,1,cmd=renew\
  67. to $wims_menu_items
  68.