Subversion Repositories wimsdev

Rev

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

Rev 9927 Rev 9988
Line 15... Line 15...
15 
 !if $job=readen
 15 
 !if $job=readen
16 
  !setdef wims_alertmsg=$empty in wimshome/sessions/$wims_session/var.stat
 16 
  !setdef wims_alertmsg=$empty in wimshome/sessions/$wims_session/var.stat
17 
  !restart module=home
 17 
  !restart module=home
18 
 !endif
 18 
 !endif
19 
!else
 19 
!else
20 
!! !if $varfilter=$empty
 - 
 
21 
!!	varfilter=!record 0 of wimshome/s2/$wims_session/varfilter
 - 
 
22 
!! !else
 - 
 
23 
!!	!writefile wimshome/s2/$wims_session/varfilter $varfilter
 20 
 !readproc adm/vfilter/uservarfilter.proc
24 
!! !endif
 - 
 
25 
 !read adm/varfilter proc
 21 
 !readproc adm/vfilter/varfilter proc
26 
 !if $varfilterclear!=$empty
 22 
 !if $varfilterclear!=$empty
27 
  !reset varfilterclear,job
 23 
  !reset varfilterclear,job
28 
 !endif
 24 
 !endif
29 
 !bound job within modif,delete,reactivate,write,groupe default $empty
 25 
 !bound job within modif,delete,reactivate,write,groupe default $empty
30 
 !if $listuser=__CLASS__
 26 
 !if $listuser=__CLASS__
Line 33... Line 29...
33 
 !if $job=groupe
 29 
 !if $job=groupe
34 
    !if __ALL__ isitemof $listuser
 30 
    !if __ALL__ isitemof $listuser
35 
	listuser=$listiduser
 31 
	listuser=$listiduser
36 
    !else
 32 
    !else
37 
	!if __FILTER__ isitemof $listuser
 33 
	!if __FILTER__ isitemof $listuser
38 
	    !readproc varfilter
 34 
	    !readproc varfilter
39 
	!else
 35 
	!else
40 
            listuser=!listintersect $listuser and $listiduser
 36 
            listuser=!listintersect $listuser and $listiduser
41 
	!endif
 37 
	!endif
42 
    !endif
 38 
    !endif
43 
    !let n=!positionof item $action in $name_reactive,$name_change,$name_erase,$name_walertmsg
 39 
    !let n=!positionof item $action in $name_reactive,$name_change,$name_erase,$name_walertmsg