1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
!! see scripts/oef/special/glossary.phtml
!if $wims_read_parm!=$empty
!set parms=$wims_read_parm
!else
!if $parms=$empty
!exit
!endif
!endif
!set option=!item 2 of $parms
!set optrecord=!getopt content in $option
!set optrecord=!declosing $optrecord
!set parms=!item 1 of $parms
!set data_dir=data/glossary
!set data=$data_dir/$parms
!if $optrecord=abstract
!set optrecord=1
!else
!if $optrecord=$empty
!set recordcnt=!recordcnt $data
!set optrecord=!values x for x=4 to $[$recordcnt]
!else
!set optrecord=!values (x-1)+4 for x in $optrecord
!endif
!endif
!set gl_title=!getdef gl_title in $data
!set gl_keywords=!getdef gl_keywords in $data
!set gl_author=!getdef gl_author in $data
!set gl_type=!getdef gl_type in $data
!set tmp=!replace internal / by , in $data
!default gl_title=!lookup $(tmp[-1]) in bases/sys/domain/domain.$(tmp[-2])
<div class="wims_glossary">
!if $gl_type!=dynamic
!for j in $optrecord
!if $[$j%2]=0
!record $j of $data
!else
!set tmp=!record $j of $data
!read $data_dir/$tmp
!endif
!next
!else
!read $data
!endif
</div>
|
