Subversion Repositories wimsdev

!! 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>