Fix todo app

db4
Slava Pestov 2008-04-15 07:09:01 -05:00
parent c0206b3165
commit 783d0d613d
2 changed files with 6 additions and 4 deletions
extra/webapps/todo

View File

@ -7,7 +7,7 @@ http.server.forms http.server.templating.chloe
http.server.boilerplate http.server.crud http.server.auth
http.server.actions http.server.db
http.server ;
IN: todo
IN: webapps.todo
TUPLE: todo uid id priority summary description ;
@ -86,7 +86,7 @@ http.server.sessions.storage.db ;
: test-db "todo.db" resource-path sqlite-db ;
: <todo-app> ( -- responder )
<todo-app>
<todo-responder>
<login>
users-in-db >>users
allow-registration
@ -108,4 +108,6 @@ http.server.sessions.storage.db ;
init-sessions-table
] with-db
<todo-app> main-responder set-global ;
<dispatcher>
<todo-app> "todo" add-responder
main-responder set-global ;

View File

@ -8,7 +8,7 @@
<div class="navbar">
<t:a href="list">List Items</t:a>
| <t:a href="edit">New Items</t:a>
| <t:a href="edit">Add Item</t:a>
<t:if code="http.server.auth.login:allow-edit-profile?">
| <t:a href="edit-profile">Edit Profile</t:a>