Subversion Repositories wimsdev

Rev

Rev 12569 | Rev 12836 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12569 Rev 12594
Line 10... Line 10...
10
  !exit
10
  !exit
11
!endif
11
!endif
12
glossarytot=!recordcnt wimshome/log/classes/$wims_class/tool/.glossaryindex
12
glossarytot=!recordcnt wimshome/log/classes/$wims_class/tool/.glossaryindex
13
!read getparm $module_init_parm iniparm gl
13
!read getparm $module_init_parm iniparm gl
14
!set iniparm=$get_iniparm
14
!set iniparm=$get_iniparm
15
!set gl_title=!getdef gl_title in $data_dir/$iniparm
-
 
16
!default gl=$get_gl
15
!default gl=$get_gl
-
 
16
!set gl_title=!getdef gl_title in $data_dir/$iniparm
-
 
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
17
 
22
 
18
!bound job within add,mod,chstatus default mod
23
!bound job within add,mod,chstatus default mod
19
!!if $job=mod and $cmd=reply
24
!!if $job=mod and $cmd=reply
20
 
25
 
21
!set wims_ariane=!append line Glossary,1,module=adm/tool/glossary\
26
!set wims_ariane=!append line Glossary,1,module=adm/tool/glossary\