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 |