Subversion Repositories wimsdev

Rev

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

Rev 10462 Rev 10464
Line 19... Line 19...
19 
 
 19 
 
20 
!if $action=$name_reguser or $action=$name_unreguser
 20 
!if $action=$name_reguser or $action=$name_unreguser
21 
    listlogin=$empty
 21 
    listlogin=$empty
22 
    !for k=1 to $usercnt
 22 
    !for k=1 to $usercnt
23 
	tmp=!record $k of wimshome/log/classes/$wims_class/.userlist
 23 
	tmp=!record $k of wimshome/log/classes/$wims_class/.userlist
- 
 
 24 
        !if $varfilter_!=$empty
- 
 
 25 
        	!read adm/vfilter/testfilter $(tmp[3])\
- 
 
 26 
$varfilter_
- 
 
 27 
     	!endif
- 
 
 28 
     	!if $(var_filter_test)=1 or $varfilter_=$empty
24 
	listlogin=!append item $(tmp[3]) to $listlogin
 29 
	 listlogin=!append item $(tmp[3]) to $listlogin
- 
 
 30 
        !endif
25 
    !next k
 31 
    !next k
26 
    !if __ALL__=$listuserchoice
 32 
    !if __ALL__ isin $listuser
27 
	listuser=$listlogin
 33 
	listuser=$listlogin
28 
    !else
 34 
    !else
29 
	listuser=!listintersect $listlogin and $listuser
 35 
	listuser=!listintersect $listlogin and $listuser
30 
    !endif
 36 
    !endif
31 
    listsclassch=!listintersect $listsclassch and $ltsubclasses
 37 
    listsclassch=!listintersect $listsclassch and $ltsubclasses
32 
    !if $listsclassch!=$empty and $listuser!=$empty
 38 
    !if $listsclassch!=$empty and $listuser!=$empty
33 
	!if $action=$name_reguser
 39 
	!if $action=$name_reguser
34 
	    !for login in $listuser
 40 
	    !for login in $listuser
35 
		tmp=!defof user_participate in wimshome/log/classes/$wims_class/.users/$login
 41 
		 tmp=!defof user_participate in wimshome/log/classes/$wims_class/.users/$login
36 
		tmp=!listunion $tmp and $listsclassch
 42 
		 tmp=!listunion $tmp and $listsclassch
37 
		!setdef !set user_participate=$tmp in wimshome/log/classes/$wims_class/.users/$login
 43 
		 !setdef !set user_participate=$tmp in wimshome/log/classes/$wims_class/.users/$login
38 
	    !next login
 44 
	    !next login
39 
	!else
 45 
	!else
40 
	    !for login in $listuser
 46 
	    !for login in $listuser
41 
		tmp=!defof user_participate in wimshome/log/classes/$wims_class/.users/$login
 47 
		 tmp=!defof user_participate in wimshome/log/classes/$wims_class/.users/$login
42 
		tmp=!listcomplement $listsclassch in $tmp
 48 
		 tmp=!listcomplement $listsclassch in $tmp
43 
		!setdef !set user_participate=$tmp in wimshome/log/classes/$wims_class/.users/$login
 49 
		 !setdef !set user_participate=$tmp in wimshome/log/classes/$wims_class/.users/$login
44 
	    !next login
 50 
	    !next login
45 
    !endif
 51 
    !endif
46 
    !reset action,listuser,listuserchoice,listsclassch
 52 
    !reset action,listuser,listuserchoice,listsclassch
47 
!endif
 53 
!endif