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.

!read adm/class/classlang names.phtml
!read tabletheme

class=$wims_class
!if $wims_user!=supervisor
  error=not_supervisor
  !exit
!endif
glossarytot=!recordcnt wimshome/log/classes/$wims_class/tool/.glossaryindex
!read getparm $module_init_parm iniparm gl
!set iniparm=$get_iniparm
!default gl=$get_gl
!set gl_title=!getdef gl_title in $data_dir/$iniparm
!if $gl_title=$empty
  !set tmp=!replace internal / by , in $iniparm
  !default gl_title=!lookup $(tmp[4]) in bases/sys/domain/domain.$(tmp[3])
  !default gl_title=$(tmp[4])
!endif

!bound job within add,mod,chstatus default mod
!!if $job=mod and $cmd=reply

!if $gl>0
  !set wims_ariane=!append line Glossary $gl,1,module=adm/tool/glossary&gl=$gl\
to $wims_ariane
!endif

!!endif

!set wims_ariane_self=no

!changeto $job.proc