Subversion Repositories wimsdev

Rev

Rev 13062 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13062 Rev 14332
Line 2... Line 2...
2
 
2
 
3
wims_prefix=class user tmp n sharing sharable
3
wims_prefix=class user tmp n sharing sharable
4
 
4
 
5
test=!defof class_defined in wimshome/log/classes/$wims_class/.def
5
test=!defof class_defined in wimshome/log/classes/$wims_class/.def
6
!if $wims_class=$empty or $test!=yes
6
!if $wims_class=$empty or $test!=yes
7
 error=bad_class
7
  error=bad_class
8
 !reset job
8
  !reset job
9
 !exit
9
  !exit
10
!endif
10
!endif
11
 
11
 
12
!readproc tabletheme
12
!readproc tabletheme
13
!if $wims_user!=supervisor
13
!if $wims_user!=supervisor
14
 !bound job within hide,readen default hide
14
  !bound job within hide,readen default hide
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
 !readproc adm/vfilter/listvarfilter.proc
20
  !readproc adm/vfilter/listvarfilter.proc
21
 !readproc adm/vfilter/varfilter proc
21
  !readproc adm/vfilter/varfilter proc
22
 !if $varfilterclear!=$empty
22
  !if $varfilterclear!=$empty
23
  !reset varfilterclear,job
23
    !reset varfilterclear,job
24
 !endif
24
  !endif
25
 !bound job within modif,delete,reactivate,write,groupe default $empty
25
  !bound job within modif,delete,reactivate,write,groupe default $empty
26
 !if $listuser=__CLASS__
26
  !if $listuser=__CLASS__
27
  !reset listuser
27
    !reset listuser
28
 !endif
28
  !endif
29
 !if $job=groupe
29
  !if $job=groupe
30
    !if __ALL__ isitemof $listuser
30
    !if __ALL__ isitemof $listuser
31
	listuser=$listiduser
31
      listuser=$listiduser
32
    !else
32
    !else
33
	!if __FILTER__ isitemof $listuser
33
      !if __FILTER__ isitemof $listuser
34
	    !readproc varfilter
34
        !readproc varfilter
35
	!else
35
      !else
36
            listuser=!listintersect $listuser and $listiduser
36
        listuser=!listintersect $listuser and $listiduser
37
	!endif
37
      !endif
38
    !endif
38
    !endif
39
    !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
40
    !if $n!=$empty and $listuser!=$empty
40
    !if $n!=$empty and $listuser!=$empty
41
	job=!item $n of reactivate,modif,delete,write
41
      job=!item $n of reactivate,modif,delete,write
42
    !else
42
    !else
43
        !reset job
43
      !reset job
44
    !endif
44
    !endif
45
 !else
45
  !else
46
  listuser=!listintersect $listuser and $listiduser
46
    listuser=!listintersect $listuser and $listiduser
47
 !endif
47
  !endif
48
 !readproc adm/whoconnect 1
48
  !readproc adm/whoconnect 1
49
!endif
49
!endif
50
!if $job!=$empty
50
!if $job!=$empty
51
 !read $job.proc
51
  !read $job.proc
52
!endif
52
!endif
-
 
53