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 proc/mkindexsheet.proc
!endif

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