Subversion Repositories wimsdev

Rev

Rev 6880 | Rev 7694 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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