Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
9361 guerimand 1
!! change participant registration in subclasses of groupement
2
!! this job is actually limited to groupement type when user=supervisor (at the groupement level)
3
 
4
!! TODO : reflexion sur l'usage des variables techniques dans ce job ( pour sélectionner ou simplement afficher)
5
 
6
 
7
!if $varfilter!=$empty
8
   !reset varfilter_
9
   !set varfilter_cnt=!linecnt $varfilter
10
   !for v=1 to $varfilter_cnt
11
    var_line=!singlespace $(varfilter[$v;])
12
    var_line =!replace $ $ by , in $var_line
13
    varfilter_=!append line $var_line to $varfilter_
14
   !next v
15
!endif
16
 
17
usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
18
 
19
!! generate list of subclasses
20
nbsubclasses=!recordcnt wimshome/log/classes/$wims_class/.subclasses
21
!reset ltsubclasses,ltnamesubclasses,ltsupsubclasses
22
!if $nbsubclasses>0
23
    !for k=1 to $nbsubclasses
24
	tmp=!record $k of wimshome/log/classes/$wims_class/.subclasses
25
	!distribute item $tmp into num,b,b,title,b,b,b,b,sup,b
26
	ltsubclasses=!append item $num to $ltsubclasses
27
	ltnamesubclasses=!append item $title to $ltnamesubclasses
28
	ltsupsubclasses=!append item $sup to $ltsupsubclasses
29
    !next k
30
!endif
31
 
32
!if $action=$name_reguser or $action=$name_unreguser
33
    listlogin=$empty
34
    !for k=1 to $usercnt
35
	tmp=!record $k of wimshome/log/classes/$wims_class/.userlist
36
	listlogin=!append item $(tmp[3]) to $listlogin
37
    !next k
38
    !if __ALL__=$listuserchoice
39
	listuser=$listlogin
40
    !else
41
	listuser=!listintersect $listlogin and $listuser
42
    !endif
43
    listsclassch=!listintersect $listsclassch and $ltsubclasses
44
    !if $listsclassch!=$empty and $listuser!=$empty
45
	!if $action=$name_reguser
46
	    !for login in $listuser
47
		tmp=!defof user_participate in wimshome/log/classes/$wims_class/.users/$login
48
		tmp=!listunion $tmp and $listsclassch
49
		!setdef !set user_participate=$tmp in wimshome/log/classes/$wims_class/.users/$login
50
	    !next login
51
	!else
52
	    !for login in $listuser
53
		tmp=!defof user_participate in wimshome/log/classes/$wims_class/.users/$login
54
		tmp=!listcomplement $listsclassch in $tmp
55
		!setdef !set user_participate=$tmp in wimshome/log/classes/$wims_class/.users/$login
56
	    !next login
57
    !endif
58
    !reset action,listuser,listuserchoice,listsclassch
59
!endif