Subversion Repositories wimsdev

Rev

Rev 7697 | Rev 7704 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !set test_radio=$wims_read_parm
  2.  
  3.   !set dir=wimshome/public_html/bases/sys/domain/domain
  4.   !set dom=!lookup domain in wimshome/public_html/bases/sys/domain/domain
  5. !if $test_radio=radio
  6.  !set radio=!nosubst <input type="radio" name="taxon_keywords" id="$tid" value="$tid"/>
  7. !else
  8.   !reset radio
  9. !endif
  10. <ul class="tree">
  11.   !for a in $dom
  12.   <li class="closed">
  13.     !set t_dom=!lookup $a in $dir
  14.     !lookup $a in $dir.$lang
  15.     ($a)
  16.     <ul>
  17.        !for t in $t_dom
  18.        <li class="closed">
  19. !set tid=$(t)
  20.        $radio
  21.         !lookup $t in $dir.$lang
  22. $ ($t)
  23.         !set t2=!lookup $t in $dir
  24.         !if $t2!=$empty
  25.           <ul>
  26.           !for t3 in $t2
  27.            <li class="closed">
  28. !set tid=$(t3)
  29.        $radio
  30.            !lookup $t3 in $dir.$lang
  31. $ ($t3)
  32.            !set t4=!lookup $t3 in $dir
  33.            !if $t4!=$empty
  34.             <ul>
  35.             !for t5 in $t4
  36.               <li class="closed">
  37. !set tid=$(t5)
  38.        $radio
  39.                 !lookup $t5 in $dir.$lang
  40. $ ($t5)
  41.                !set t6=!lookup $t5 in $dir
  42.                !if $t6!=empty
  43.                  <ul>
  44.                  !for t7 in $t6
  45.                    <li class="closed">
  46. !set tid=$(t7)
  47.        $radio
  48.                   !lookup $t7 in $dir.$lang
  49. $ ($t7)
  50.                   !set t8=!lookup $t7 in $dir
  51.                   !if $t8!=empty
  52.                      <ul>
  53.                       !for t9 in $t8
  54.                      <li class="closed">
  55. !set tid=$(t9)
  56.        $radio
  57.                    !lookup $t9 in $dir.$lang
  58. $ ($t9)
  59.                      </li>
  60.                      !next
  61.                      </ul>
  62.                    !endif
  63.                    </li>
  64.                  !next
  65.                  </ul>
  66.                !endif
  67.               </li>
  68.             !next
  69.            </ul>
  70.            !endif
  71.          </li>
  72.           !next
  73.           </ul>
  74.         !endif
  75.         </li>
  76.      !next
  77.      </ul>
  78.     !endif
  79.     </li>
  80.   !next
  81.  </ul>
  82.  !exit
  83.  <pre>
  84.  !record 0 of wimshome/public_html/bases/sys/domain/domain.$modu_lang
  85.  </pre>
  86.