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 $wims_class=$empty or $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

  !readproc adm/vfilter/listvarfilter.proc

  !readproc adm/vfilter/varfilter proc

  !if $varfilterclear!=$empty

    !reset varfilterclear,job

  !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