Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
12569 bpr 1
# Variable calculations should be done in this file.
2
# It is read and interpreted by wims for all valid calls to the module.
3
 
4
!read adm/class/classlang names.phtml
5
!read tabletheme
6
 
7
class=$wims_class
8
!if $wims_user!=supervisor
9
  error=not_supervisor
10
  !exit
11
!endif
12
glossarytot=!recordcnt wimshome/log/classes/$wims_class/tool/.glossaryindex
13
!read getparm $module_init_parm iniparm gl
14
!set iniparm=$get_iniparm
12594 bpr 15
!default gl=$get_gl
12569 bpr 16
!set gl_title=!getdef gl_title in $data_dir/$iniparm
12594 bpr 17
!if $gl_title=$empty
18
  !set tmp=!replace internal / by , in $iniparm
19
  !default gl_title=!lookup $(tmp[4]) in bases/sys/domain/domain.$(tmp[3])
20
  !default gl_title=$(tmp[4])
21
!endif
12569 bpr 22
 
23
!bound job within add,mod,chstatus default mod
24
!!if $job=mod and $cmd=reply
25
 
26
!if $gl>0
27
  !set wims_ariane=!append line Glossary $gl,1,module=adm/tool/glossary&gl=$gl\
28
to $wims_ariane
29
!endif
30
 
31
!!endif
32
 
33
!set wims_ariane_self=no
34
 
35
!changeto $job.proc