Subversion Repositories wimsdev

Rev

Rev 13062 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2368 bpr 1
!read adm/class/classlang names.phtml
23 reyssat 2
 
3
wims_prefix=class user tmp n sharing sharable
1227 guerimand 4
 
5
test=!defof class_defined in wimshome/log/classes/$wims_class/.def
13062 guerimand 6
!if $wims_class=$empty or $test!=yes
14332 bpr 7
  error=bad_class
8
  !reset job
9
  !exit
23 reyssat 10
!endif
11
 
1227 guerimand 12
!readproc tabletheme
13
!if $wims_user!=supervisor
14332 bpr 14
  !bound job within hide,readen default hide
15
  !if $job=readen
16
    !setdef wims_alertmsg=$empty in wimshome/sessions/$wims_session/var.stat
17
    !restart module=home
18
  !endif
1227 guerimand 19
!else
14332 bpr 20
  !readproc adm/vfilter/listvarfilter.proc
21
  !readproc adm/vfilter/varfilter proc
22
  !if $varfilterclear!=$empty
23
    !reset varfilterclear,job
24
  !endif
25
  !bound job within modif,delete,reactivate,write,groupe default $empty
26
  !if $listuser=__CLASS__
27
    !reset listuser
28
  !endif
29
  !if $job=groupe
8969 guerimand 30
    !if __ALL__ isitemof $listuser
14332 bpr 31
      listuser=$listiduser
8969 guerimand 32
    !else
14332 bpr 33
      !if __FILTER__ isitemof $listuser
34
        !readproc varfilter
35
      !else
36
        listuser=!listintersect $listuser and $listiduser
37
      !endif
8969 guerimand 38
    !endif
8952 guerimand 39
    !let n=!positionof item $action in $name_reactive,$name_change,$name_erase,$name_walertmsg
8964 guerimand 40
    !if $n!=$empty and $listuser!=$empty
14332 bpr 41
      job=!item $n of reactivate,modif,delete,write
8952 guerimand 42
    !else
14332 bpr 43
      !reset job
8952 guerimand 44
    !endif
14332 bpr 45
  !else
46
    listuser=!listintersect $listuser and $listiduser
47
  !endif
48
  !readproc adm/whoconnect 1
949 guerimand 49
!endif
863 guerimand 50
!if $job!=$empty
14332 bpr 51
  !read $job.proc
23 reyssat 52
!endif
14332 bpr 53