Subversion Repositories wimsdev

Rev

Rev 7704 | Rev 17172 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

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