Subversion Repositories wimsdev

dictionary=$module_dir/domaindic.$lang

translator_unknown=leave

!read writable/domains.$lang

!if $domain_ready!=yes

 domains=!record 1 of lists/list.domains

 domains=!lines2items $domains

 domains=!lower $domains

 !read lists/domains.allow

 domains=!listintersect $domains and $domains_allow

 domains=!replace , by , $ in $domains

 domprmp=!exec translator $domains

 domprmp=!sort items of $domprmp

 domains=!items $wims_sort_order of $domains

 !writefile domains.$lang !set domains=$domains\

!set domain_ready=yes

!endif

domains=!append item $domains to $search_domain

domains=!listuniq $domains

domains=!replace , by , $ in $domains

domprmp=!exec translator $domains