Subversion Repositories wimsdev

!!##!! language independant

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

$wims_institutionname

!read adm/title.phtml 1\

$classname\

$livret_title\

$name_job

<p><hr width="40%"> <p>

!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>$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 : <font color="green"><b>$name</b></font><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

   ] </small>

   !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>

</form>

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

to $wims_menu_items

!reset cf_nbpalier