Subversion Repositories wimsdev

# Variable calculations should be done in this file.

# It is read and interpreted by wims for all valid calls to the module.

!if $notallowed=1

  error=notallowedmodule

  !exit

!endif

!! check access

!if $statuttchat!=open

  !restart module=home

!endif

wims_prefix=class user tchat

!read adm/language lang/names.phtml

!read tabletheme

!if $tchat_open!=yes

  !if $wims_user!=supervisor

    warning=notopen

    job=close

  !else

    job=config

  !endif

!endif

!! create list of living for the user (all for supervisor)

!reset livinglist livingfile

dt=!record 0 of wimshome/log/classes/$wims_class/tchat/.livings

livingst_0=!line 1 of $dt

!if $(livingst_0)=1

  livinglist=0

!endif

livingname_0=!line 2 of $dt

!default livingname_0=!nosubst $wims_name_class

livingusers_0=all

livingnb_0=$[$nbuser+1]

nbliving=!recordcnt wimshome/log/classes/$wims_class/tchat/.livings

!for k=1 to $nbliving

  dt=!record $k of wimshome/log/classes/$wims_class/tchat/.livings

  !distribute line $dt into livingst_$k,livingname_$k,livingusers_$k

  !default livingname_$k=$name_living $k

  livingusers_$k=!append item supervisor to $(livingusers_$k)

  livingnb_$k=!itemcnt $(livingusers_$k)

  !if $(livingst_$k)=1 and $wims_user isitemof $(livingusers_$k)

    livinglist=!append item $k to $livinglist

  !endif

!next k

livingfile=!makelist .living k for k in $livinglist

livingfile=!nospace $livingfile

!! ------ use math in message

!let insmath_rawmath=yes

!let wims_backslash_insmath=yes

!if $cmd=help

  !exit

!endif

!if $class_expiration=$empty

  !defread wimshome/log/classes/$wims_class/.def

  !if $wims_superclass!=$empty

    class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def

  !endif

!endif

!if $class_expiration=$empty

  error=bad_class

  !exit

!endif

!readproc linkmodule/tchat.proc

!if $wims_allowlink_tchat!=yes

  error=badright

  notallowed=1

  !exit

!endif

!if $wims_user=supervisor

  !readproc adm/whoconnect

  listjob=userlistliving,edit,viewpage,listliving,addliving,config,showhide

  defjob=userlist

!else

  listjob=edit,close,sharescreen,uploadfile

  defjob=edit

!endif

!bound job within $listjob default $defjob

!if $job=sharescreen

  !if $wims_sharescreen=yes

    wims_sharescreen=$empty

  !else

    wims_sharescreen=yes

  !endif

  ses=!replace internal _ by , in $wims_session

  ses=!item 1 of $ses

  !setdef wims_sharescreen=$wims_sharescreen in wimshome/sessions/$ses/var.stat

  job=edit

!endif

!if $wims_user!=supervisor

  !set page_name=*

!else

  !if $job isitemof listliving,addliving,userlistliving

    !set page_name=$(wims_name_$(job))

  !else

    !default page_name=$(name_$(job))

    !if $job isitemof config

      !set page_name=$name_configuration

    !endif

  !endif

  !default page_name=$wims_name_userlistliving

!endif

!if $wims_user=supervisor

!! ariane only for supervisor.

  !set wims_ariane=!append line tchat,1,module=adm/class/tchat to $wims_ariane

  !set wims_ariane=!append line "$page_name",8, to $wims_ariane

  !set wims_ariane_self=no

!endif

!read lang.phtml.$lang

!changeto $job.proc