Subversion Repositories wimsdev

!set test_radio=$wims_read_parm

!set dir=wimshome/public_html/bases/sys/domain/domain

!set dom=!lookup domain in wimshome/public_html/bases/sys/domain/domain

!if $test_radio=radio

  !set radio=!nosubst <input type="radio" name="taxon_keywords" id="$tid" value="$tid">

!else

  !reset radio

!endif

<ul class="tree">

  !for a in $dom

    <li class="closed">

    !set t_dom=!lookup $a in $dir

    !set tid=$(a)

    $radio

    !lookup $a in $dir.$lang

    ($a)

    <ul>

    !for t in $t_dom

      <li class="closed">

      !set tid=$(t)

      $radio

      !lookup $t in $dir.$lang

$ ($t)

      !set t2=!lookup $t in $dir

      !if $t2!=$empty

        <ul>

        !for t3 in $t2

          <li class="closed">

          !set tid=$(t3)

          $radio

          !lookup $t3 in $dir.$lang

$ ($t3)

          !set t4=!lookup $t3 in $dir

          !if $t4!=$empty

            <ul>

            !for t5 in $t4

              <li class="closed">

              !set tid=$(t5)

              $radio

              !lookup $t5 in $dir.$lang

$ ($t5)

            !set t6=!lookup $t5 in $dir

            !if $t6!=empty

              <ul>

              !for t7 in $t6

                <li class="closed">

                !set tid=$(t7)

                $radio

                !lookup $t7 in $dir.$lang

$ ($t7)

                !set t8=!lookup $t7 in $dir

                !if $t8!=empty

                  <ul>

                  !for t9 in $t8

                    <li class="closed">

                    !set tid=$(t9)

                    $radio

                    !lookup $t9 in $dir.$lang

$ ($t9)

                    </li>

                    !next

                    </ul>

                  !endif

                  </li>

                !next

                </ul>

              !endif

              </li>

            !next

            </ul>

          !endif

          </li>

        !next

        </ul>

      !endif

      </li>

    !next

    </ul>

  !endif

  </li>

!next

 </ul>

 !exit

 <pre>

 !record 0 of wimshome/public_html/bases/sys/domain/domain.$modu_lang

 </pre>