Index: openacs-4/packages/lars-blogger/www/entry-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-edit.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	19 Oct 2003 20:25:03 -0000	1.8
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	8 Dec 2003 05:23:42 -0000	1.9
@@ -119,35 +119,15 @@
     } else {
         permission::require_write_permission -object_id $entry_id
 
-        set set_clauses { 
-            "title = :title" 
-            "title_url = :title_url"
-            "category_id = :category_id"
-            "content = :content"
-            "content_format = :content_format"
-            "entry_date = to_date(:entry_date, 'YYYY-MM-DD')" 
-            "draft_p = :draft_p" 
-        }
-
-        set org_draft_p [db_string org_draft_p { select draft_p from pinds_blog_entries where entry_id = :entry_id } ]
-
-        # Is this a publish?
-        if { [string equal $draft_p "t"] && [string equal $org_draft_p "f"] } {
-            # set the posted_date to now
-            lappend set_clauses [db_map now]
-        }
-    
-        db_dml update_entry { *SQL* }
-
-        # Is this a publish?
-        if { [string equal $draft_p "t"] && [string equal $org_draft_p "f"] } {
-            # do notifications
-            lars_blogger::entry::do_notifications -entry_id $entry_id
-            # and ping weblogs.com
-            lars_blog_weblogs_com_update_ping
-        }
-    
-        lars_blog_flush_cache $package_id
+        lars_blog_entry_edit \
+            -entry_id $entry_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
     }
     
     if { [empty_string_p $return_url] } {