mirror of
https://github.com/ultimatepp/ultimatepp.git
synced 2026-05-17 14:16:10 -06:00
23 lines
451 B
Text
23 lines
451 B
Text
#include "Skylark12.h"
|
|
|
|
void HomePage(Http&);
|
|
|
|
SKYLARK_USE(CreateEditDelete, Person, "person")
|
|
{
|
|
Person.back = HomePage;
|
|
Person.table = PERSON;
|
|
Person.dialog = "Skylark12/dialog";
|
|
}
|
|
|
|
SKYLARK(HomePage, "")
|
|
{
|
|
http("PERSON", Select(ID, FIRSTNAME, LASTNAME, EMAIL).From(PERSON)
|
|
.OrderBy(LASTNAME, FIRSTNAME))
|
|
("CREATE", LINK(Person, Create))
|
|
.RenderResult("Skylark12/index");
|
|
}
|
|
|
|
SKYLARK(CatchAll, "**")
|
|
{
|
|
http.Redirect(HomePage);
|
|
}
|