Rev 6442 | Rev 7694 | 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 |
| 6910 | bpr | 13 | |
| 6396 | czzmrn | 14 | !! need to check this is not breaking anything |
| 15 | !! !if $list=$empty |
||
| 16 | !! parm= |
||
| 17 | !! !exit |
||
| 18 | !! !endif |
||
| 6384 | bpr | 19 | |
| 6435 | bpr | 20 | !exit |
| 21 | !! use to have all subdomain ... |
||
| 6384 | bpr | 22 | !for d in $list |
| 6435 | bpr | 23 | l=!lookup $d in $dir |
| 23 | reyssat | 24 | list=!append item $l to $list |
| 25 | !next d |
||
| 6435 | bpr | 26 | |
| 23 | reyssat | 27 | list=!sort nocase items $list |
| 28 | !if $parm!=misc |
||
| 2728 | bpr | 29 | list=!nonempty items $parm,$list |
| 23 | reyssat | 30 | !else |
| 31 | list=!nonempty items $list |
||
| 32 | !endif |
||
| 33 | list=!listuniq $list |
||
| 34 |