Subversion Repositories wimsdev

Rev

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