Subversion Repositories wimsdev

Rev

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

Rev 10464 Rev 12466
Line 6... Line 6...
6 
 
 6 
 
7 
!! generate list of subclasses
 7 
!! generate list of subclasses
8 
nbsubclasses=!recordcnt wimshome/log/classes/$wims_class/.subclasses
 8 
nbsubclasses=!recordcnt wimshome/log/classes/$wims_class/.subclasses
9 
!reset ltsubclasses,ltnamesubclasses,ltsupsubclasses
 9 
!reset ltsubclasses,ltnamesubclasses,ltsupsubclasses
10 
!if $nbsubclasses>0
 10 
!if $nbsubclasses>0
11 
    !for k=1 to $nbsubclasses
 11 
  !for k=1 to $nbsubclasses
12 
	tmp=!record $k of wimshome/log/classes/$wims_class/.subclasses
 12 
	  tmp=!record $k of wimshome/log/classes/$wims_class/.subclasses
13 
	!distribute item $tmp into num,b,b,title,b,b,b,b,sup,b
 13 
	  !distribute item $tmp into num,b,b,title,b,b,b,b,sup,b
14 
	ltsubclasses=!append item $num to $ltsubclasses
 14 
	  ltsubclasses=!append item $num to $ltsubclasses
15 
	ltnamesubclasses=!append item $title to $ltnamesubclasses
 15 
	  ltnamesubclasses=!append item $title to $ltnamesubclasses
16 
	ltsupsubclasses=!append item $sup to $ltsupsubclasses
 16 
	  ltsupsubclasses=!append item $sup to $ltsupsubclasses
17 
    !next k
 17 
  !next k
18 
!endif
 18 
!endif
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
 24 
    !if $varfilter_!=$empty
25 
        	!read adm/vfilter/testfilter $(tmp[3])\
 25 
      !read adm/vfilter/testfilter $(tmp[3])\
26 
$varfilter_
 26 
$varfilter_
27 
     	!endif
 - 
 
28 
     	!if $(var_filter_test)=1 or $varfilter_=$empty
 - 
 
29 
	 listlogin=!append item $(tmp[3]) to $listlogin
 - 
 
30 
        !endif
 - 
 
31 
    !next k
 - 
 
32 
    !if __ALL__ isin $listuser
 - 
 
33 
	listuser=$listlogin
 - 
 
34 
    !else
 - 
 
35 
	listuser=!listintersect $listlogin and $listuser
 - 
 
36 
    !endif
 27 
    !endif
- 
 
 28 
    !if $(var_filter_test)=1 or $varfilter_=$empty
- 
 
 29 
	    listlogin=!append item $(tmp[3]) to $listlogin
- 
 
 30 
    !endif
- 
 
 31 
  !next k
- 
 
 32 
  !if __ALL__ isin $listuser
- 
 
 33 
	  listuser=$listlogin
- 
 
 34 
  !else
- 
 
 35 
	  listuser=!listintersect $listlogin and $listuser
- 
 
 36 
  !endif
37 
    listsclassch=!listintersect $listsclassch and $ltsubclasses
 37 
  listsclassch=!listintersect $listsclassch and $ltsubclasses
38 
    !if $listsclassch!=$empty and $listuser!=$empty
 38 
  !if $listsclassch!=$empty and $listuser!=$empty
39 
	!if $action=$name_reguser
 39 
	  !if $action=$name_reguser
40 
	    !for login in $listuser
 40 
	    !for login in $listuser
41 
		 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
42 
		 tmp=!listunion $tmp and $listsclassch
 42 
		    tmp=!listunion $tmp and $listsclassch
43 
		 !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
44 
	    !next login
 44 
	    !next login
45 
	!else
 45 
	  !else
46 
	    !for login in $listuser
 46 
	    !for login in $listuser
47 
		 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
48 
		 tmp=!listcomplement $listsclassch in $tmp
 48 
		    tmp=!listcomplement $listsclassch in $tmp
49 
		 !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
50 
	    !next login
 50 
	    !next login
51 
    !endif
 51 
    !endif
52 
    !reset action,listuser,listuserchoice,listsclassch
 52 
    !reset action,listuser,listuserchoice,listsclassch
- 
 
 53 
  !endif
53 
!endif
 54 
!endif