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

[hannes at gwydiondylan.org]

Author: hannes
Date: Fri May 19 01:52:15 2006
New Revision: 10745

Modified:
   trunk/libraries/koala/sources/examples/wiki/wiki.dylan
Log:
Bug: 7219
*fix search in wiki

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	Fri May 19 01:52:15 2006
@@ -398,10 +398,10 @@
   local method find-matches (dir-loc, file-name, file-type)
           if (file-type == #"file")
             let loc = merge-locators(as(<file-locator>, file-name), dir-loc);
-            let (weight, summary) = search-file(loc, words);
+            let (base, version) = split-version(file-name);
+            let title = ignore-errors(base64-decode(base));
+            let (weight, summary) = search-file(title, loc, words);
             if (weight > 0)
-              let (base, version) = split-version(file-name);
-              let title = ignore-errors(base64-decode(base));
               if (title)
                 matches[base] := add!(element(matches, base, default: list()),
                                       make(<search-result>,