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 |
|
31 | listuser=$listiduser |
32 | !else |
32 | !else |
33 |
|
33 | !if __FILTER__ isitemof $listuser |
34 |
|
34 | !readproc varfilter |
35 |
|
35 | !else |
36 |
|
36 | listuser=!listintersect $listuser and $listiduser |
37 |
|
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 |
|
41 | job=!item $n of reactivate,modif,delete,write |
42 | !else |
42 | !else |
43 |
|
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 |