Rev 7704 | Rev 17172 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7704 | Rev 13915 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !set test_radio=$wims_read_parm |
1 | !set test_radio=$wims_read_parm |
2 | 2 | ||
3 |
|
3 | !set dir=wimshome/public_html/bases/sys/domain/domain |
4 |
|
4 | !set dom=!lookup domain in wimshome/public_html/bases/sys/domain/domain |
5 | !if $test_radio=radio |
5 | !if $test_radio=radio |
6 | !set radio=!nosubst <input type="radio" name="taxon_keywords" id="$tid" value="$tid"/> |
6 | !set radio=!nosubst <input type="radio" name="taxon_keywords" id="$tid" value="$tid"/> |
7 | !else |
7 | !else |
8 | !reset radio |
8 | !reset radio |
9 | !endif |
9 | !endif |
10 | <ul class="tree"> |
10 | <ul class="tree"> |
11 | !for a in $dom |
11 | !for a in $dom |
12 | <li class="closed"> |
12 | <li class="closed"> |
13 | !set t_dom=!lookup $a in $dir |
13 | !set t_dom=!lookup $a in $dir |
14 | !set tid=$(a) |
14 | !set tid=$(a) |
15 |
|
15 | $radio |
16 | !lookup $a in $dir.$lang |
16 | !lookup $a in $dir.$lang |
17 | ($a) |
17 | ($a) |
18 | <ul> |
18 | <ul> |
19 |
|
19 | !for t in $t_dom |
20 |
|
20 | <li class="closed"> |
21 | !set tid=$(t) |
21 | !set tid=$(t) |
22 |
|
22 | $radio |
23 |
|
23 | !lookup $t in $dir.$lang |
24 | $ ($t) |
24 | $ ($t) |
25 |
|
25 | !set t2=!lookup $t in $dir |
26 |
|
26 | !if $t2!=$empty |
27 |
|
27 | <ul> |
28 |
|
28 | !for t3 in $t2 |
29 |
|
29 | <li class="closed"> |
30 | !set tid=$(t3) |
30 | !set tid=$(t3) |
31 | $radio |
31 | $radio |
32 |
|
32 | !lookup $t3 in $dir.$lang |
33 | $ ($t3) |
33 | $ ($t3) |
34 |
|
34 | !set t4=!lookup $t3 in $dir |
35 |
|
35 | !if $t4!=$empty |
36 | <ul> |
36 | <ul> |
37 | !for t5 in $t4 |
37 | !for t5 in $t4 |
38 | <li class="closed"> |
38 | <li class="closed"> |
39 | !set tid=$(t5) |
39 | !set tid=$(t5) |
40 | $radio |
40 | $radio |
41 |
|
41 | !lookup $t5 in $dir.$lang |
42 | $ ($t5) |
42 | $ ($t5) |
43 |
|
43 | !set t6=!lookup $t5 in $dir |
44 |
|
44 | !if $t6!=empty |
45 |
|
45 | <ul> |
46 |
|
46 | !for t7 in $t6 |
47 |
|
47 | <li class="closed"> |
48 | !set tid=$(t7) |
48 | !set tid=$(t7) |
49 | $radio |
49 | $radio |
50 |
|
50 | !lookup $t7 in $dir.$lang |
51 | $ ($t7) |
51 | $ ($t7) |
52 |
|
52 | !set t8=!lookup $t7 in $dir |
53 |
|
53 | !if $t8!=empty |
54 |
|
54 | <ul> |
55 |
|
55 | !for t9 in $t8 |
56 |
|
56 | <li class="closed"> |
57 | !set tid=$(t9) |
57 | !set tid=$(t9) |
58 | $radio |
58 | $radio |
59 | !lookup $t9 in $dir.$lang |
59 | !lookup $t9 in $dir.$lang |
60 | $ ($t9) |
60 | $ ($t9) |
61 |
|
61 | </li> |
62 |
|
62 | !next |
63 |
|
63 | </ul> |
64 |
|
64 | !endif |
65 |
|
65 | </li> |
66 |
|
66 | !next |
67 |
|
67 | </ul> |
68 |
|
68 | !endif |
69 | </li> |
69 | </li> |
70 | !next |
70 | !next |
71 | </ul> |
71 | </ul> |
72 |
|
72 | !endif |
73 | </li> |
73 | </li> |
74 |
|
74 | !next |
75 |
|
75 | </ul> |
76 |
|
76 | !endif |
77 |
|
77 | </li> |
78 |
|
78 | !next |
79 |
|
79 | </ul> |
80 |
|
80 | !endif |
81 |
|
81 | </li> |
82 |
|
82 | !next |
83 | </ul> |
83 | </ul> |
84 | !exit |
84 | !exit |
85 | <pre> |
85 | <pre> |
86 | !record 0 of wimshome/public_html/bases/sys/domain/domain.$modu_lang |
86 | !record 0 of wimshome/public_html/bases/sys/domain/domain.$modu_lang |
87 | </pre> |
87 | </pre> |