Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
6384 bpr 1
!!temporary - work in progress
23 reyssat 2
 
3
!if $parm=$empty
4
 !exit
5
!endif
6
 
6384 bpr 7
list=!lookup $parm in $dir
6442 bpr 8
!if $list=$empty
9
  list=$parm
10
!endif
11
listcnt=!itemcnt $list
6384 bpr 12
name=!lookup $(parm[1]) in $dir_lang
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
6435 bpr 22
 l=!lookup $d in $dir
23 reyssat 23
 list=!append item $l to $list
24
!next d
6435 bpr 25
 
23 reyssat 26
list=!sort nocase items $list
27
!if $parm!=misc
2728 bpr 28
 list=!nonempty items $parm,$list
23 reyssat 29
!else
30
 list=!nonempty items $list
31
!endif
32
list=!listuniq $list
33