sclass HCRUD_Concepts<A extends Concept> extends HCRUD_Data {
  Concepts cc = db_mainConcepts();
  Class<A> cClass;
  new L<IVF1<A>> onCreateOrUpdate;
  MapSO filters; // fields to filter by/add to new objects
  
  *(Class<A> *cClass) {}
  
  S itemName() { ret shortName(cClass); }
  
  //LS fields() { ret conceptFields(cClass); }
  
  L<Map<S, O>> list() {
    ret lambdaMap itemToMap(defaultSort(conceptsWhere(cc, cClass, mapToParams(filters))));
  }
  
  Cl<A> defaultSort(Cl<A> l) { ret l; }
  
  Map<S, O> emptyObject() {
    A c = unlisted(cClass);
    print("fieldOrder", getFieldOrder(c));
    ret printStruct("emptyObject", itemToMap(c));
  }
  
  Map<S, O> itemToMap(A c) {
    ret c == null ? null : putKeysFirst(getFieldOrder(c), conceptToMap_gen_withNullValues(c));
  }
  
  Map<S, O> getObject(O id) {
    ret itemToMap(getConcept(cc, cClass, toLong(id)));
  }
  
  O createObject(SS map) {
    A c = cnew(cc, cClass);
    cset(c, mapToParams(filters));
    cSmartSet(c, mapToParams(map));
    pcallFAll(onCreateOrUpdate, c);
    ret c.id;
  }
  
  S updateObject(O id, SS map) {
    A c = getConcept(cc, cClass, toLong(id));
    if (c == null) ret "Object " + id + " not found";
    cSmartSet(c, mapToParams(map));
    pcallFAll(onCreateOrUpdate, c);
    ret "Object " + id + " updated";
  }
  
  S deleteObject(O id) {
    A c = getConcept(cc, cClass, toLong(id));
    if (c == null) ret "Object not found";
    deleteConcept(c);
    ret "Object deleted";
  }
  
  HCRUD_Concepts<A> addFilter(S field, O value) {
    filters = orderedMapPutOrCreate(filters, field, value);
    this;
  }
}