!7

concept LineJudgement {
  S context;
  S judgement;
  S source;
}

cmodule GLineJudgements > DynCRUD<LineJudgement> {
  start {
    dbIndexing(LineJudgement, 'context);
    addCountToName();
  }
  
  // API
  
  S judgementForContext(S context) {
    ret joinWithComma(uniquify(collect judgement(conceptsWhere LineJudgement(+context))));
  }
}