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\