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.9 -r1.10
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	8 Dec 2003 05:23:42 -0000	1.9
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	11 Dec 2003 21:40:06 -0000	1.10
@@ -106,7 +106,7 @@
     set insert_or_update [element get_value entry insert_or_update]
 
     if { [string equal $insert_or_update "insert"] } {
-        lars_blog_entry_add \
+        lars_blogger::entry::new \
                 -entry_id $entry_id \
                 -package_id $package_id \
                 -title $title \
@@ -119,15 +119,35 @@
     } else {
         permission::require_write_permission -object_id $entry_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
+        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 {}
+
+        # 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
     }
     
     if { [empty_string_p $return_url] } {