Subversion Repositories wimsdev

Rev

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

  1. !distribute items $wims_read_parm into t, supt
  2. !! for the moment we do not use supt, plane for the future
  3. !!keep key - use in search_addr.
  4. !! supt should be a father of t
  5.   !reset key
  6.     !set key=!lookup $t in $dir
  7.     !default key=$t
  8.     !set key_l=!lookup $t in $dir_lang
  9.     !set name_$t=!lookup $t in $dir_lang
  10.     !default name_$t=$t
  11.     !!set key=!replace internal _ by $ $  in $t
  12.     !!set key=$supt,$key_l
  13.     !set key=$key_l
  14.     !set more=!lookup $t in $dir
  15. !if $more!=$empty
  16.       !href module=$module&cmd=new&job=$job&parm=$t $(name_$t)
  17. !else
  18.       $(name_$t)
  19. !endif
  20. !set wims_ref_class=wims_button
  21. !href $search_addr >>>>
  22. !set tt=!lookup $t in $dir
  23. !set cnt=!itemcnt $tt
  24.