Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
1319 guerimand 1
 
2
!bound comp between 1 and $livret_nbcomp+1 default $empty
3
!if $cf_abandon!=$empty or $comp=$empty
4
 !reset cf_abandon
5
 job=userlist
6
 !read userlist.proc
7
 !exit
8
!endif
9
 
10
!if $comp>$maxcomp
11
 error=toomanycomp
12
 !exit
13
!endif 
14
 
15
tmp=!record $comp of wimshome/log/classes/$wims_class/livret/.comps
16
!distribute line $tmp into mem_title,mem_nbpalier
17
 
18
!if $cf_set!=$empty or ($cf_nbpalier!=$mem_nbpalier and $cf_nbpalier!=$empty)
19
 !bound cf_nbpalier between 1 and $maxpalier default $mem_palier
20
 !reset cf_set
21
 cf_title=!trim $cf_title
22
 !if $comp>$livret_nbcomp
23
  !appendfile wimshome/log/classes/$wims_class/livret/.comps :$cf_title\
24
$cf_nbpalier
25
 !else
26
  sortie=$empty
27
  !for k=1 to $livret_nbcomp
28
   !if $k=$comp
29
    sortie=!append line :$cf_title\
30
$cf_nbpalier to $sortie
31
   !else
32
    t=!record $k of wimshome/log/classes/$wims_class/livret/.comps
33
    sortie=!append line :$t to $sortie
34
   !endif
35
  !next k
36
  !writefile wimshome/log/classes/$wims_class/livret/.comps $sortie
37
 !endif
38
 !reset cf_set
39
 mem_nbpalier=$cf_nbpalier
40
 mem_title=$cf_title
41
!endif
42