Subversion Repositories wimsdev

Rev

Rev 7694 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1 
 
2 
!if $parm=$empty
12477 bpr 3 
  !exit
23 reyssat 4 
!endif
5 
 
6384 bpr 6 
list=!lookup $parm in $dir
6442 bpr 7 
!if $list=$empty
8 
  list=$parm
9 
!endif
10 
listcnt=!itemcnt $list
6384 bpr 11 
name=!lookup $(parm[1]) in $dir_lang
6910 bpr 12 
 
6396 czzmrn 13 
!! need to check this is not breaking anything
14 
!! !if $list=$empty
15 
!!  parm=
16 
!!  !exit
17 
!! !endif
6384 bpr 18 
 
6435 bpr 19 
!exit
20 
!! use to have all subdomain ...
6384 bpr 21 
!for d in $list
12477 bpr 22 
  l=!lookup $d in $dir
23 
  list=!append item $l to $list
23 reyssat 24 
!next d
6435 bpr 25 
 
23 reyssat 26 
list=!sort nocase items $list
27 
!if $parm!=misc
12477 bpr 28 
  list=!nonempty items $parm,$list
23 reyssat 29 
!else
12477 bpr 30 
  list=!nonempty items $list
23 reyssat 31 
!endif
32 
list=!listuniq $list