Subversion Repositories wimsdev

Rev

Rev 2854 | Rev 5603 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2854 Rev 2861
Line 18... Line 18...
18 
  d=!record $k of $livret_dir/.comp$comp
 18 
  d=!record $k of $livret_dir/.comp$comp
19 
  !if $k!=$palier
 19 
  !if $k!=$palier
20 
   donnees=!append line :$d to $donnees
 20 
   donnees=!append line :$d to $donnees
21 
  !endif
 21 
  !endif
22 
 !next k
 22 
 !next k
23 
 !writefile $livret_dir/.comp$comp $d
 23 
 !writefile $livret_dir/.comp$comp $donnees
24 
 donnees=$empty
 24 
 donnees=$empty
25 
 !for k=1 to $livret_nbcomp
 25 
 !for k=1 to $livret_nbcomp
26 
  d=!record $k of $livret_dir/.comps
 26 
  d=!record $k of $livret_dir/.comps
27 
  !if $k=$comp
 27 
  !if $k=$comp
28 
   d=!replace line number 2 by $[$mem_nbpalier-1] in $d
 28 
   d=!replace line number 2 by $[$mem_nbpalier-1] in $d