Subversion Repositories wimsdev

!bound comp between integer 1 and $livret_nbcomp default 1

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

!distribute line $t into name_comp,nbpalier_comp

!bound palier between 1 and $nbpalier_comp default 1

t=!record $palier of $livret_dir/.comp$comp

!distribute lines $t into name_palier,eold

ltsheets=!listintersect $asheets and $ltsheets

!if $ltsheets=$empty

 ltsheets=$asheets

!endif

!if $cf_set!=$empty

 !if $echoose=$empty

  echoose=$eold

 !endif

 eopt=!listintersect $eopt and $optionlist

 cf_title=!trim $cf_title

 !default cf_title=$name_palier

 donnees=$empty

 !for k=1 to $nbpalier_comp

  !if $k!=$palier

   d=!record $k of $livret_dir/.comp$comp

  !else

   d=$cf_title\

$echoose

  !endif 

  donnees=!append line :$d to $donnees

 !next k

 !writefile $livret_dir/.comp$comp $donnees

 !reset cf_set

 job=addcomp

 !read $job.proc

!endif