Subversion Repositories wimsdev

Rev

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

Rev 12466 Rev 14334
Line 7... Line 7...
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
 27 
    !endif
28 
    !if $(var_filter_test)=1 or $varfilter_=$empty
 28 
    !if $(var_filter_test)=1 or $varfilter_=$empty
29 
	    listlogin=!append item $(tmp[3]) to $listlogin
 29 
      listlogin=!append item $(tmp[3]) to $listlogin
30 
    !endif
 30 
    !endif
31 
  !next k
 31 
  !next k
32 
  !if __ALL__ isin $listuser
 32 
  !if __ALL__ isin $listuser
33 
	  listuser=$listlogin
 33 
    listuser=$listlogin
34 
  !else
 34 
  !else
35 
	  listuser=!listintersect $listlogin and $listuser
 35 
    listuser=!listintersect $listlogin and $listuser
36 
  !endif
 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
 54 
!endif