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