Subversion Repositories wimsdev

Rev

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

Rev 5603 Rev 12429
Line 2... Line 2...
2
!bound comp between 1 and $livret_nbcomp default $empty
2
!bound comp between 1 and $livret_nbcomp default $empty
3
!if $comp=$empty
3
!if $comp=$empty
4
 !reset cf_abandon
4
  !reset cf_abandon
5
 job=addcomp
5
  job=addcomp
6
 !read addcomp.proc
6
  !read addcomp.proc
7
 !exit
7
  !exit
8
!endif
8
!endif
9
 
9
 
10
tmp=!record $comp of $livret_dir/.comps
10
tmp=!record $comp of $livret_dir/.comps
11
!distribute line $tmp into mem_title,mem_nbpalier
11
!distribute line $tmp into mem_title,mem_nbpalier
12
mem_palier=!record $palier of $livret_dir/.comp$comp
12
mem_palier=!record $palier of $livret_dir/.comp$comp
13
!distribute line $mem_palier into mem_palier,bla
13
!distribute line $mem_palier into mem_palier,bla
14
 
14
 
15
!if $cf_set!=$empty
15
!if $cf_set!=$empty
16
 donnees=$empty
16
  donnees=$empty
17
 !for k=1 to $mem_nbpalier
17
  !for k=1 to $mem_nbpalier
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 $donnees
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
29
  !endif
29
    !endif
30
  donnees=!append line :$d to $donnees
30
    donnees=!append line :$d to $donnees
31
 !next k
31
  !next k
32
 !writefile $livret_dir/.comps $donnees
32
  !writefile $livret_dir/.comps $donnees
33
 job=addcomp
33
  job=addcomp
34
 !reset cf_set
34
  !reset cf_set
35
 !read addcomp.proc
35
  !read addcomp.proc
36
 !read mkindexsheet.proc
36
  !read mkindexsheet.proc
37
!endif
37
!endif