[chatter] r11816 - trunk/libraries/network/web-framework

[cgay at mccarthy.opendylan.org]

Author: cgay
Date: Sun May 18 14:39:26 2008
New Revision: 11816

Modified:
   trunk/libraries/network/web-framework/dsp.dylan
   trunk/libraries/network/web-framework/library.dylan
Log:
job: koala
Some minor cleanups.
* Removed current-url and *request* from module exports.
  Use request-url and current-request instead.
* Removed *virtual-host* from module exports.
  Use virtual-host and current-request instead.
* Improved grouping of module exports.
(Forgot to commit more than the koala directory in previous commit.)

Modified: trunk/libraries/network/web-framework/dsp.dylan
==============================================================================
--- trunk/libraries/network/web-framework/dsp.dylan	(original)
+++ trunk/libraries/network/web-framework/dsp.dylan	Sun May 18 14:39:26 2008
@@ -23,7 +23,7 @@
   let url = parse-url("/login");
   if (redirect)
     url.uri-query["redirect"] := if (current) 
-        build-uri(current-url())
+        build-uri(request-url(current-request()))
       else 
         redirect 
       end if;
@@ -36,7 +36,7 @@
   let url = parse-url("/logout");
   if (redirect)
     url.uri-query["redirect"] := if (current) 
-        build-uri(current-url()) 
+        build-uri(request-url(current-request())) 
       else 
         redirect 
       end if;

Modified: trunk/libraries/network/web-framework/library.dylan
==============================================================================
--- trunk/libraries/network/web-framework/library.dylan	(original)
+++ trunk/libraries/network/web-framework/library.dylan	Sun May 18 14:39:26 2008
@@ -252,6 +252,8 @@
     exclude: { format-to-string };
   use object-table;
   use simple-xml;
+  use xml-parser,
+    rename: { <element> => <xml-element> };
   use koala;
   use dsp;
   use format;