Subversion Repositories wimsdev

!!##!! language independant

!read adm/class/classname.phtml $wims_classname\

$wims_institutionname

!read adm/title.phtml 1\

$classname\

$livret_title\

$name_job

<hr style="width:40%" />

!form reply

  <ul>

 <li>$name_info [

 !href cmd=reply&comp=$comp&job=delcomp $wims_name_delete

  ] :

  <ul>

   <li>$name_title_comp: <input size="50" name="cf_title" value="$mem_title" />.</li>

   <li>$name_cnt_palier:

    <select  name="cf_nbpalier" onchange="submit()">

    !for i=1 to $maxpalier

     !if $i=$mem_nbpalier

      <option value="$i" selected="selected">$i</option>

     !else

      <option value="$i">$i</option>

     !endif

    !next i

    </select>

   </li>

  </ul>

  <input type="submit" name="cf_set" value="$wims_name_tosave" />

 </li>

 !for k=1 to $mem_nbpalier

  !let eold=!record $k of wimshome/log/classes/$wims_class/livret/.comp$comp

  !distribute line $eold into name,eold

  <li>$name_n_Palier $k : <span class="wims_emph">$name</span><span class="small"> [

   !href cmd=reply&job=modpalier&comp=$comp&palier=$k $wims_name_change

    

   !href cmd=reply&job=delpalier&comp=$comp&palier=$k $wims_name_delete

   ] </span>

   !if $eold!=

   <ul>

    !for l in $eold

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

     <li> $l

      !line $(t[2]) of $(sheet$(t[1]))

     </li>

    !next l    

   </ul>

   !endif

  </li>

 !next k

</ul>

!formend

!set wims_menu_items=!append line back2,1,cmd=reply&job=home\

to $wims_menu_items

!reset cf_nbpalier