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