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