!7

concept Domain {
  S domain;
  S moduleLibID;
}

cmodule Eleu3 > DynEleu {
  transient CRUD<Domain> domainCRUD;
  
  start {
    dbIndexingCI(Domain, 'domain);
    domainCRUD = new CRUD(Domain);
  }
  
  visual jtabs(
    "Main", super,
    "Domains" := domainCRUD.visualize());
  
  @Override 
  S moduleForDomain(S domain) {  
    Domain domainObj = conceptWhereCI(Domain, domain := dropPrefixIC("www.", domain));
    if (domainObj == null) null;
    ret dm_findModule(domainObj.moduleLibID);
  }
}