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.3 -r1.4
--- openacs-4/packages/lars-blogger/tcl/blogger-api-procs.tcl	12 Jan 2004 13:36:47 -0000	1.3
+++ openacs-4/packages/lars-blogger/tcl/blogger-api-procs.tcl	27 Feb 2004 18:55:26 -0000	1.4
@@ -82,13 +82,14 @@
     set entry_id [db_nextval t_acs_object_id_seq]
     set entry_date [clock format [clock seconds] -format %Y-%m-%d]
 
-    return [list -string [lars_blog_entry_add -entry_id $entry_id \
-                           -package_id $package_id \
-                           -title " " \
-                           -content $content \
-                           -content_format "text/html" \
-                           -entry_date $entry_date \
-                           -draft_p [ad_decode $publish_p 1 f t]
+    return [list -string [lars_blogger::entry::new \
+                              -entry_id $entry_id \
+                              -package_id $package_id \
+                              -title " " \
+                              -content $content \
+                              -content_format "text/html" \
+                              -entry_date $entry_date \
+                              -draft_p [ad_decode $publish_p 1 f t]
                       ]]
 }
 
Index: openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	27 Feb 2004 18:30:58 -0000	1.17
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	27 Feb 2004 18:55:26 -0000	1.18
@@ -7,31 +7,6 @@
 
 namespace eval lars_blogger {}
 
-ad_proc -deprecated -warn lars_blog_entry_add {
-    {-entry_id:required}
-    {-package_id:required}
-    {-title:required}
-    {-title_url ""}
-    {-category_id ""}
-    {-content:required}
-    {-content_format:required}
-    {-entry_date:required}
-    {-draft_p:required}
-} {
-    Add the blog entry and then flush the cache so that the new entry shows up.
-} {
-    return [lars_blogger::entry::new \
-                -entry_id $entry_id \
-                -package_id $package_id \
-                -title $title \
-                -title_url $title_url \
-                -category_id $category_id \
-                -content $content \
-                -content_format $content_format \
-                -entry_date $entry_date \
-                -draft_p $draft_p]
-}
-
 ad_proc -public lars_blog_entry_edit {
     {-entry_id:required}
     {-title:required}
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.2 -r1.3
--- openacs-4/packages/lars-blogger/tcl/test/lars-blogger-procs.tcl	15 Feb 2004 11:21:38 -0000	1.2
+++ openacs-4/packages/lars-blogger/tcl/test/lars-blogger-procs.tcl	27 Feb 2004 18:55:28 -0000	1.3
@@ -7,7 +7,7 @@
 }
 
 aa_register_case lars_blog_add_entry -cats {smoke api db} {
-    Test the lars_blog_entry_add proc.
+    Test the lars_blogger::entry::new proc
 } {    
 
     aa_run_with_teardown \
@@ -19,13 +19,13 @@
             set package_id [ad_conn package_id]
 
             # Add entry
-            set entry_id [lars_blog_entry_add \
+            set entry_id [lars_blogger::entry::new \
                               -entry_id $entry_id \
                               -package_id $package_id \
                               -title "Foobar" \
                               -content "Just a test" \
                               -content_format "text/plain" \
-                              -entry_date "2003-11-11" \
+                              -entry_date "2003-11-11 13:01:01" \
                               -draft_p t]
 
             set success_p [db_string success_p {