Subversion Repositories wimsdev

Rev

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