Subversion Repositories wimsdev

!bound comp between 1 and $livret_nbcomp default $empty
!if $comp=$empty
  !reset cf_abandon
  job=addcomp
  !read addcomp.proc
  !exit
!endif

tmp=!record $comp of $livret_dir/.comps
!distribute line $tmp into mem_title,mem_nbpalier
mem_palier=!record $palier of $livret_dir/.comp$comp
!distribute line $mem_palier into mem_palier,bla

!if $cf_set!=$empty
  donnees=$empty
  !for k=1 to $mem_nbpalier
    d=!record $k of $livret_dir/.comp$comp
    !if $k!=$palier
      donnees=!append line :$d to $donnees
    !endif
  !next k
  !writefile $livret_dir/.comp$comp $donnees
  donnees=$empty
  !for k=1 to $livret_nbcomp
    d=!record $k of $livret_dir/.comps
    !if $k=$comp
      d=!replace line number 2 by $[$mem_nbpalier-1] in $d
    !endif
    donnees=!append line :$d to $donnees
  !next k
  !writefile $livret_dir/.comps $donnees
  job=addcomp
  !reset cf_set
  !read addcomp.proc
  !read proc/mkindexsheet.proc
!endif