Subversion Repositories wimsdev

Rev

Rev 9361 | Rev 9987 | Go to most recent revision | Details | Compare with Previous | 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
usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
8
 
9
!! generate list of subclasses
10
nbsubclasses=!recordcnt wimshome/log/classes/$wims_class/.subclasses
11
!reset ltsubclasses,ltnamesubclasses,ltsupsubclasses
12
!if $nbsubclasses>0
13
    !for k=1 to $nbsubclasses
14
	tmp=!record $k of wimshome/log/classes/$wims_class/.subclasses
15
	!distribute item $tmp into num,b,b,title,b,b,b,b,sup,b
16
	ltsubclasses=!append item $num to $ltsubclasses
17
	ltnamesubclasses=!append item $title to $ltnamesubclasses
18
	ltsupsubclasses=!append item $sup to $ltsupsubclasses
19
    !next k
20
!endif
21
 
22
!if $action=$name_reguser or $action=$name_unreguser
23
    listlogin=$empty
24
    !for k=1 to $usercnt
25
	tmp=!record $k of wimshome/log/classes/$wims_class/.userlist
26
	listlogin=!append item $(tmp[3]) to $listlogin
27
    !next k
28
    !if __ALL__=$listuserchoice
29
	listuser=$listlogin
30
    !else
31
	listuser=!listintersect $listlogin and $listuser
32
    !endif
33
    listsclassch=!listintersect $listsclassch and $ltsubclasses
34
    !if $listsclassch!=$empty and $listuser!=$empty
35
	!if $action=$name_reguser
36
	    !for login in $listuser
37
		tmp=!defof user_participate in wimshome/log/classes/$wims_class/.users/$login
38
		tmp=!listunion $tmp and $listsclassch
39
		!setdef !set user_participate=$tmp in wimshome/log/classes/$wims_class/.users/$login
40
	    !next login
41
	!else
42
	    !for login in $listuser
43
		tmp=!defof user_participate in wimshome/log/classes/$wims_class/.users/$login
44
		tmp=!listcomplement $listsclassch in $tmp
45
		!setdef !set user_participate=$tmp in wimshome/log/classes/$wims_class/.users/$login
46
	    !next login
47
    !endif
48
    !reset action,listuser,listuserchoice,listsclassch
49
!endif