Author: hannes
Date: Thu Jun 1 21:24:22 2006
New Revision: 10770
Modified:
trunk/libraries/koala/sources/examples/wiki/classes.dylan
trunk/libraries/koala/sources/examples/wiki/wiki.dylan
Log:
Bug: 7219
*use only the user-backend from web-framework.
*fixes the bug that user "foobar" changes everything
Modified: trunk/libraries/koala/sources/examples/wiki/classes.dylan
==============================================================================
--- trunk/libraries/koala/sources/examples/wiki/classes.dylan (original)
+++ trunk/libraries/koala/sources/examples/wiki/classes.dylan Thu Jun 1
21:24:22 2006
@@ -77,7 +77,7 @@
define responder worker-responder ("/worker")
(request, response)
- if (user-logged-in?(request) & current-user().access <= 23)
+ if (logged-in(request) & current-user().access <= 23)
let action = as(<symbol>, get-query-value("action"));
select (action)
#"undo" => undo(get-query-value("title"));
Modified: trunk/libraries/koala/sources/examples/wiki/wiki.dylan
==============================================================================
--- trunk/libraries/koala/sources/examples/wiki/wiki.dylan (original)
+++ trunk/libraries/koala/sources/examples/wiki/wiki.dylan Thu Jun 1
21:24:22 2006
@@ -103,7 +103,7 @@
(page :: <edit-page>, request :: <request>, response :: <response>)
let title = trim(get-query-value("title") | "");
let content = get-query-value("page-content") | "";
- if (~ user-logged-in?(request))
+ if (~ logged-in(request))
note-form-error("You must be logged in to edit a page.");
// redisplay edit page.
dynamic-bind (*title* = title,
@@ -219,19 +219,14 @@
define named-method logged-in? in wiki
(page, request)
- user-logged-in?(request)
+ logged-in(request)
end;
define named-method admin? in wiki
(page, request)
- login(request) & current-user().access <= 23;
+ logged-in(request) & current-user().access <= 23;
end;
-define method user-logged-in? (request :: <request>)
- let session = get-session(request);
- session & get-attribute(session, #"username");
-end method user-logged-in?;
-
define method respond-to-get
(page :: <search-page>, request :: <request>, response :: <response>)
let search-string = trim(get-query-value("search-terms") | "");
--
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
https://www.gwydiondylan.org/mailman/listinfo/gd-chatter
|
