Subversion Repositories wimsdev

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

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

!if $cf_set!=$empty
 donnees=$empty
 !for k=1 to $livret_nbcomp
  d=!record $k of $livret_dir/.comps
  !if $k!=$comp
   donnees=!append line :$d to $donnees
  !endif
  !if $k>$comp
   !sh cp $Livret_dir/.comp$k $Livret_dir/.comp$[$k-1];
  !endif
 !next k
 !writefile $livret_dir/.comps $donnees
 livret_nbcomp=$[$livret_nbcomp-1]
 job=userlist
 !reset cf_set
 !read mkindexsheet.proc
 !read userlist.proc
!endif