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>