!7

concept AppliedRule {
  S ruleID;
  S modifiedRule;
  S judgement;
  S comment;
  S matchedRuleStruct;
  S intention, context;
}

cmodule AppliedRules > DynCRUD<AppliedRule> {
  start {
    dbIndexing(AppliedRule, 'ruleID);
    
    L<AppliedRule> list = cloneList(conceptsWhere AppliedRule(ruleID := null));
    for (AppliedRule r : list) {
      S ruleID = "?";
      pcall {
        ruleID = gazelle_ruleIDFromMatchedRuleStruct(r.matchedRuleStruct);
        print("Got ruleID: " + ruleID);
      }
      cset(r, +ruleID);
    }
    
    dm_registerAs('gazelleFeedbackCRUD);
  }
  
  enhanceFrame { internalFrameIcon(f, gazelle_frameIcon()); }
}