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> |