diff options
| author |  Andy Wingo | 2008-02-27 22:34:01 +0100 |
|---|---|---|
| committer | Andy Wingo | 2008-02-27 22:34:01 +0100 |
| commit | 93605cf634470c0b5034fd294f6e484e9762eca3 (patch) | |
| tree | 64210ed504d00e84f4b9010751d7f921996e1b50 | |
| parent | bf21a8a3c04c2b2f57244ebd5a3dd33111d08dea (diff) | |
| download | tekuti-93605cf634470c0b5034fd294f6e484e9762eca3.tar.gz tekuti-93605cf634470c0b5034fd294f6e484e9762eca3.zip | |
more atom fixen
| -rw-r--r-- | tekuti/page.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tekuti/page.scm b/tekuti/page.scm index ab4871a..34c86c8 100644 --- a/tekuti/page.scm +++ b/tekuti/page.scm @@ -418,9 +418,11 @@ `(entry (author (name ,*name*) (uri ,(relurl ""))) (title (@ (type "text")) ,(assq-ref post 'title)) - (id ,(assq-ref post 'key)) + (id ,(relurl (url:decode (assq-ref post 'key)))) ;hack (published ,(timestamp->atom-date (assq-ref post 'timestamp))) + (updated ,(timestamp->atom-date + (assq-ref post 'timestamp))) (content (@ (type "xhtml")) (div (@ (xmlns "http://www.w3.org/1999/xhtml")) ,(post-sxml-content post))))) |