Index: openacs-4/packages/lars-blogger/tcl/blogger-api-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/blogger-api-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/lars-blogger/tcl/blogger-api-procs.tcl	27 Feb 2004 18:58:31 -0000	1.5
+++ openacs-4/packages/lars-blogger/tcl/blogger-api-procs.tcl	12 Jul 2004 11:33:19 -0000	1.6
@@ -280,7 +280,7 @@
         set struct(content) [list -string "$e(content)"]
         set struct(userid) [list -string $user_id]
         set struct(postid) [list -string $entry_id]
-        set struct(dateCreated) [list -date $entry_date_ansi]
+        set struct(dateCreated) [list -date $e(entry_date_ansi)]
     }
 
     return [list -struct [array get struct]]
Index: openacs-4/packages/lars-blogger/tcl/metaweblog-api-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/metaweblog-api-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lars-blogger/tcl/metaweblog-api-procs.tcl	14 Dec 2003 16:12:06 -0000	1.4
+++ openacs-4/packages/lars-blogger/tcl/metaweblog-api-procs.tcl	12 Jul 2004 11:33:19 -0000	1.5
@@ -201,11 +201,11 @@
                      postid [list -string $entry_id] \
                      userid [list -string $user_id] \
                      description [list -string $content(content)] \
-                     category [list -string $category_name] \
-                     comments [list -string $perm_url] \
-                     guid [list -string $perm_url] \
-                     pubDate [list -date $entry_date_ansi] \
-                     dateCreated [list -date $entry_date_ansi] \
+                     category [list -string $content(category_name)] \
+                     comments [list -string $content(permalink_url)] \
+                     guid [list -string $content(permalink_url)] \
+                     pubDate [list -date $content(entry_date_ansi)] \
+                     dateCreated [list -date $content(entry_date_ansi)] \
                     ]]
 }
 
@@ -246,7 +246,7 @@
                              postid [list -string $entry_id] \
                              userid [list -string $user_id] \
                              description [list -string $content] \
-                             category [list -string $category_name] \
+                             category [list -string $category] \
                              comments [list -string $perm_url] \
                              guid [list -string $perm_url] \
                              pubDate [list -date $entry_date_ansi] \
Index: openacs-4/packages/lars-blogger/tcl/test/entry-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/test/entry-test-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lars-blogger/tcl/test/entry-test-procs.tcl	15 Feb 2004 11:21:38 -0000	1.3
+++ openacs-4/packages/lars-blogger/tcl/test/entry-test-procs.tcl	12 Jul 2004 11:33:19 -0000	1.4
@@ -2,7 +2,7 @@
     Test cases for the entry API.
 }
 
-aa_register_case rss_generation -cats {api db smoke} { 
+aa_register_case -cats {api db smoke} rss_generation { 
     Test RSS generation
 } {
     # Test case written to expose bug in RSS datasource generation: 
Index: openacs-4/packages/lars-blogger/tcl/test/lars-blogger-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/test/lars-blogger-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lars-blogger/tcl/test/lars-blogger-procs.tcl	27 Feb 2004 18:55:28 -0000	1.3
+++ openacs-4/packages/lars-blogger/tcl/test/lars-blogger-procs.tcl	12 Jul 2004 11:33:19 -0000	1.4
@@ -6,7 +6,7 @@
     @cvs-id $Id$
 }
 
-aa_register_case lars_blog_add_entry -cats {smoke api db} {
+aa_register_case -cats {smoke api db} lars_blog_add_entry {
     Test the lars_blogger::entry::new proc
 } {