Subversion Repositories wimsdev

Rev

Rev 7697 | Rev 7704 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7697 Rev 7698
Line -... Line 1...
- 
 
 1 
!set test_radio=$wims_read_parm
- 
 
 2 
 
1 
  !set dir=wimshome/public_html/bases/sys/domain/domain
 3 
  !set dir=wimshome/public_html/bases/sys/domain/domain
2 
  !set dom=!lookup domain in 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
3 
<ul class="tree">
 10 
<ul class="tree">
4 
  !for a in $dom
 11 
  !for a in $dom
5 
  <li class="closed">
 12 
  <li class="closed">
6 
    !set t_dom=!lookup $a in $dir
 13 
    !set t_dom=!lookup $a in $dir
7 
    !lookup $a in $dir.$lang
 14 
    !lookup $a in $dir.$lang
8 
    ($a)
 15 
    ($a)
9 
    <ul>
 16 
    <ul>
10 
       !for t in $t_dom
 17 
       !for t in $t_dom
11 
       <li class="closed">
 18 
       <li class="closed">
- 
 
 19 
!set tid=$(t)
- 
 
 20 
       $radio
12 
        !lookup $t in $dir.$lang
 21 
        !lookup $t in $dir.$lang
13 
$ ($t)
 22 
$ ($t)
14 
        !set t2=!lookup $t in $dir
 23 
        !set t2=!lookup $t in $dir
15 
        !if $t2!=$empty
 24 
        !if $t2!=$empty
16 
          <ul>
 25 
          <ul>
17 
          !for t3 in $t2
 26 
          !for t3 in $t2
18 
           <li class="closed">
 27 
           <li class="closed">
- 
 
 28 
!set tid=$(t3)
- 
 
 29 
       $radio
19 
           !lookup $t3 in $dir.$lang
 30 
           !lookup $t3 in $dir.$lang
20 
$ ($t3)
 31 
$ ($t3)
21 
           !set t4=!lookup $t3 in $dir
 32 
           !set t4=!lookup $t3 in $dir
22 
           !if $t4!=$empty
 33 
           !if $t4!=$empty
23 
            <ul>
 34 
            <ul>
24 
            !for t5 in $t4
 35 
            !for t5 in $t4
25 
              <li class="closed">
 36 
              <li class="closed">
- 
 
 37 
!set tid=$(t5)
- 
 
 38 
       $radio
26 
                !lookup $t5 in $dir.$lang
 39 
                !lookup $t5 in $dir.$lang
27 
$ ($t5)
 40 
$ ($t5)
28 
               !set t6=!lookup $t5 in $dir
 41 
               !set t6=!lookup $t5 in $dir
29 
               !if $t6!=empty
 42 
               !if $t6!=empty
30 
                 <ul>
 43 
                 <ul>
31 
                 !for t7 in $t6
 44 
                 !for t7 in $t6
32 
                   <li class="closed">
 45 
                   <li class="closed">
- 
 
 46 
!set tid=$(t7)
- 
 
 47 
       $radio
33 
                  !lookup $t7 in $dir.$lang
 48 
                  !lookup $t7 in $dir.$lang
34 
$ ($t7)
 49 
$ ($t7)
35 
                  !set t8=!lookup $t7 in $dir
 50 
                  !set t8=!lookup $t7 in $dir
36 
                  !if $t8!=empty
 51 
                  !if $t8!=empty
37 
                     <ul>
 52 
                     <ul>
38 
                      !for t9 in $t8
 53 
                      !for t9 in $t8
39 
                     <li class="closed">
 54 
                     <li class="closed">
- 
 
 55 
!set tid=$(t9)
- 
 
 56 
       $radio
40 
                   !lookup $t9 in $dir.$lang
 57 
                   !lookup $t9 in $dir.$lang
41 
$ ($t9)
 58 
$ ($t9)
42 
                     </li>
 59 
                     </li>
43 
                     !next
 60 
                     !next
44 
                     </ul>
 61 
                     </ul>