Subversion Repositories wimsdev

!read adm/class/classlang names.phtml

wims_prefix=class user tmp n sharing sharable

test=!defof class_defined in wimshome/log/classes/$wims_class/.def
!if $test!=yes
 error=bad_class
 !reset job
 !exit
!endif

!readproc tabletheme
!if $wims_user!=supervisor
 !bound job within hide,readen default hide
 !if $job=readen
  !setdef wims_alertmsg=$empty in wimshome/sessions/$wims_session/var.stat
  !restart module=home
 !endif
!else
 !if $varfilter=$empty
        varfilter=!record 0 of wimshome/s2/$wims_session/varfilter
 !else
        !writefile wimshome/s2/$wims_session/varfilter $varfilter
 !endif
 !bound job within modif,delete,reactivate,write,groupe default $empty
 !if $listuser=__CLASS__
  !reset listuser
 !endif
 !if $job=groupe
    !if __ALL__ isitemof $listuser
        listuser=$listiduser
    !else
        !if __FILTER__ isitemof $listuser
            !readproc varfilter
        !else
            listuser=!listintersect $listuser and $listiduser
        !endif
    !endif
    !let n=!positionof item $action in $name_reactive,$name_change,$name_erase,$name_walertmsg
    !if $n!=$empty and $listuser!=$empty
        job=!item $n of reactivate,modif,delete,write
    !else
        !reset job
    !endif
 !else
  listuser=!listintersect $listuser and $listiduser
 !endif
 !readproc adm/whoconnect 1
!endif
!if $job!=$empty
 !read $job.proc
!endif