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=userlist
 5 
  job=userlist
6 
 !read userlist.proc
 6 
  !read userlist.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 
 
 12 
 
13 
!if $cf_set!=$empty
 13 
!if $cf_set!=$empty
14 
 donnees=$empty
 14 
  donnees=$empty
15 
 !for k=1 to $livret_nbcomp
 15 
  !for k=1 to $livret_nbcomp
16 
  d=!record $k of $livret_dir/.comps
 16 
    d=!record $k of $livret_dir/.comps
17 
  !if $k!=$comp
 17 
    !if $k!=$comp
18 
   donnees=!append line :$d to $donnees
 18 
      donnees=!append line :$d to $donnees
19 
  !endif
 19 
    !endif
20 
  !if $k>$comp
 20 
    !if $k>$comp
21 
   !sh cp $Livret_dir/.comp$k $Livret_dir/.comp$[$k-1];
 21 
      !sh cp $Livret_dir/.comp$k $Livret_dir/.comp$[$k-1];
22 
  !endif
 22 
    !endif
23 
 !next k
 23 
  !next k
24 
 !writefile $livret_dir/.comps $donnees
 24 
  !writefile $livret_dir/.comps $donnees
25 
 livret_nbcomp=$[$livret_nbcomp-1]
 25 
  livret_nbcomp=$[$livret_nbcomp-1]
26 
 job=userlist
 26 
  job=userlist
27 
 !reset cf_set
 27 
  !reset cf_set
28 
 !read mkindexsheet.proc
 28 
  !read mkindexsheet.proc
29 
 !read userlist.proc
 29 
  !read userlist.proc
30 
!endif
 30 
!endif