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

!set wims_name_competence=$name_Competence

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

competence,1,cmd=reply&job=addcomp&comp=$comp\

to $wims_ariane