<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_0kl44q3ojh050ikkn8oc1gmhvj, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

concept Scenario {
  S name;
  LS conditions;
  LS actions;
}

cmodule Scenarios > DynCRUD<Scenario> {
  Scenario selected;
  
  S answer(S s) null {
    print("answering: " + s);
    new Matches m;
    if "how many scenarios"
      ret str(countConcepts(Scenario));
    if "delete scenario *" {
      S name = $1;
      setField(selected := null);
      if (nempty(deleteConceptsWhereCI Scenario(+name)))
        ret format("Scenario * deleted", name);
      else
        ret format("Scenario * not found", name);
    }
    if "new scenario *" {
      S name = $1;
      Scenario sc = conceptWhereCI Scenario(+name);
      if (sc != null)
        ret format("Scenario * exists", name);
      setField(selected := uniqCI Scenario(+name));
      ret format("Scenario * created", name);
    }
    if "list scenarios"
      ret or2(joinWithComma(collect name(list(Scenario))), "No scenarios defined");
    if "rename scenario * to *" {
      S name1 = $1, name2 = $2;
      if (conceptWhereCI Scenario(name := name2) != null)
        ret format("A scenario named * exists", name2);
      Scenario sc = conceptWhereCI Scenario(name := name1);
      if (sc == null)
        ret format("Scenario * not found", name1);
      cset(sc, name := name2);
      ret format("Scenario * renamed to *", name1, name2);
    }
  }

  afterVisualize {
    addComponent(crud.buttons, jbutton("Talk to me", rThread talkToMe));
  }

  void talkToMe enter {
    dm_showModuleWithParams("#1027446/ConvoPopupSingleModule",
      forModuleID := dm_moduleID());
  }
}