[Gd-chatter] r10841 - trunk/libraries/koala/sources/koala

[turbo24prg at gwydiondylan.org]

Author: turbo24prg
Date: Thu Aug  3 13:07:23 2006
New Revision: 10841

Modified:
   trunk/libraries/koala/sources/koala/server.dylan
Log:
Job: minor
* fix for extract-query-values 
  (?foo=bar == "bar",
   ?foo=    == "",
   ?foo     == #t)


Modified: trunk/libraries/koala/sources/koala/server.dylan
==============================================================================
--- trunk/libraries/koala/sources/koala/server.dylan	(original)
+++ trunk/libraries/koala/sources/koala/server.dylan	Thu Aug  3 13:07:23 2006
@@ -1021,11 +1021,13 @@
  => (queries :: <string-table>)
   local method extract-key/val (beg :: <integer>, fin :: <integer>)
           let eq-pos = char-position('=', buffer, beg, fin);
-          when (eq-pos & (eq-pos > beg))
+          if (eq-pos & (eq-pos > beg))
             let key = decode-url(buffer, beg, eq-pos);
             let val = decode-url(buffer, eq-pos + 1, fin);
             values(key, val)
-          end
+          else
+            values(decode-url(buffer, beg, fin), #t)
+          end if;
         end;
   iterate loop (start :: <integer> = bpos)
     when (start < epos)