Subversion Repositories wimsdev

!bound comp between 1 and $livret_nbcomp+1 default $empty

!if $cf_abandon!=$empty or $comp=$empty

 !reset cf_abandon

 job=userlist

 !read userlist.proc

 !exit

!endif

!if $comp>$maxcomp

 error=toomanycomp

 !exit

!endif

tmp=!record $comp of $livret_dir/.comps

!distribute line $tmp into mem_title,mem_nbpalier

!if $cf_set!=$empty or ($cf_nbpalier!=$mem_nbpalier and $cf_nbpalier!=$empty)

 !bound cf_nbpalier between 1 and $maxpalier default $mem_palier

 !reset cf_set

 cf_title=!trim $cf_title

 !if $comp>$livret_nbcomp

  !appendfile $livret_dir/.comps :$cf_title\

$cf_nbpalier

 !else

  sortie=$empty

  !for k=1 to $livret_nbcomp

   !if $k=$comp

    sortie=!append line :$cf_title\

$cf_nbpalier to $sortie

   !else

    t=!record $k of $livret_dir/.comps

    sortie=!append line :$t to $sortie

   !endif

  !next k

  !writefile $livret_dir/.comps $sortie

 !endif

 !reset cf_set

 mem_nbpalier=$cf_nbpalier

 mem_title=$cf_title

 !read mkindexsheet.proc

!endif

!set wims_ariane=!append line configb,1,cmd=renew&job=config\

to $wims_ariane