Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
7698 bpr 1 
!set test_radio=$wims_read_parm
2 
 
6412 bpr 3 
  !set dir=wimshome/public_html/bases/sys/domain/domain
4 
  !set dom=!lookup domain in wimshome/public_html/bases/sys/domain/domain
7698 bpr 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
7696 bpr 10 
<ul class="tree">
6412 bpr 11 
  !for a in $dom
7696 bpr 12 
  <li class="closed">
6412 bpr 13 
    !set t_dom=!lookup $a in $dir
6908 bpr 14 
    !lookup $a in $dir.$lang
15 
    ($a)
16 
    <ul>
6412 bpr 17 
       !for t in $t_dom
7696 bpr 18 
       <li class="closed">
7698 bpr 19 
!set tid=$(t)
20 
       $radio
6908 bpr 21 
        !lookup $t in $dir.$lang
7661 bpr 22 
$ ($t)
6412 bpr 23 
        !set t2=!lookup $t in $dir
24 
        !if $t2!=$empty
6908 bpr 25 
          <ul>
6412 bpr 26 
          !for t3 in $t2
7696 bpr 27 
           <li class="closed">
7698 bpr 28 
!set tid=$(t3)
29 
       $radio
6908 bpr 30 
           !lookup $t3 in $dir.$lang
7661 bpr 31 
$ ($t3)
6908 bpr 32 
           !set t4=!lookup $t3 in $dir
33 
           !if $t4!=$empty
34 
            <ul>
35 
            !for t5 in $t4
7696 bpr 36 
              <li class="closed">
7698 bpr 37 
!set tid=$(t5)
38 
       $radio
6908 bpr 39 
                !lookup $t5 in $dir.$lang
7661 bpr 40 
$ ($t5)
41 
               !set t6=!lookup $t5 in $dir
42 
               !if $t6!=empty
43 
                 <ul>
44 
                 !for t7 in $t6
7696 bpr 45 
                   <li class="closed">
7698 bpr 46 
!set tid=$(t7)
47 
       $radio
7661 bpr 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
7696 bpr 54 
                     <li class="closed">
7698 bpr 55 
!set tid=$(t9)
56 
       $radio
7661 bpr 57 
                   !lookup $t9 in $dir.$lang
58 
$ ($t9)
59 
                     </li>
60 
                     !next
61 
                     </ul>
62 
                   !endif
7697 bpr 63 
                   </li>
7661 bpr 64 
                 !next
65 
                 </ul>
66 
               !endif
6908 bpr 67 
              </li>
7661 bpr 68 
            !next
6908 bpr 69 
           </ul>
70 
           !endif
7661 bpr 71 
         </li>
6412 bpr 72 
          !next
6908 bpr 73 
          </ul>
6412 bpr 74 
        !endif
7697 bpr 75 
        </li>
6412 bpr 76 
     !next
6908 bpr 77 
     </ul>
7697 bpr 78 
    !endif
79 
    </li>
80 
  !next
6412 bpr 81 
 </ul>
7696 bpr 82 
 !exit
7085 bpr 83 
 <pre>
84 
 !record 0 of wimshome/public_html/bases/sys/domain/domain.$modu_lang
85 
 </pre>