[Gd-chatter] r10770 - trunk/libraries/koala/sources/examples/wiki

[hannes at gwydiondylan.org]

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") | "");