Index: openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql	14 Dec 2003 11:10:44 -0000	1.8
+++ openacs-4/packages/lars-blogger/tcl/entry-procs-oracle.xql	8 Jan 2004 09:08:07 -0000	1.9
@@ -22,6 +22,20 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blogger::entry::edit.update_entry">
+        <querytext>
+            update pinds_blog_entries
+            set    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 HH24:MI:SS'),
+                   draft_p = :draft_p
+            where  entry_id = :entry_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="lars_blogger::entry::get.select_entry">
         <querytext>
 		    select b.entry_id,  
Index: openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql	14 Dec 2003 11:10:44 -0000	1.8
+++ openacs-4/packages/lars-blogger/tcl/entry-procs-postgresql.xql	8 Jan 2004 09:08:07 -0000	1.9
@@ -21,6 +21,20 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="lars_blogger::entry::edit.update_entry">
+        <querytext>
+            update pinds_blog_entries
+            set    title = :title,
+                   title_url = :title_url,
+                   category_id = :category_id,
+                   content = :content,
+                   content_format = :content_format,
+                   entry_date = to_timestamp(:entry_date, 'YYYY-MM-DD HH24:MI:SS'),
+                   draft_p = :draft_p
+            where  entry_id = :entry_id
+        </querytext>
+    </fullquery>
+
     <fullquery name="lars_blogger::entry::get.select_entry">
         <querytext>
             select b.entry_id,  
Index: openacs-4/packages/lars-blogger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/tcl/entry-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	8 Jan 2004 08:55:52 -0000	1.17
+++ openacs-4/packages/lars-blogger/tcl/entry-procs.tcl	8 Jan 2004 09:08:07 -0000	1.18
@@ -65,16 +65,6 @@
     @author Vinod Kurup vinod@kurup.com
     @creation-date 2003-10-04
 } {
-    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 HH24:MI:SS')" 
-        "draft_p = :draft_p" 
-    }
-    
     # Get old values first -- need draft_p and package_id
     lars_blogger::entry::get -entry_id $entry_id -array entry
     
Fisheye: Tag 1.6 refers to a dead (removed) revision in file `openacs-4/packages/lars-blogger/tcl/entry-procs.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
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.14 -r1.15
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	18 Dec 2003 09:56:53 -0000	1.14
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	8 Jan 2004 09:08:07 -0000	1.15
@@ -82,19 +82,18 @@
         
         permission::require_write_permission -object_id $entry_id
 
-        db_1row entry {}
+        lars_blogger::entry::get \
+            -entry_id $entry_id \
+            -array row
         
-        element set_value entry title $title
-        element set_value entry title_url $title_url
+        element set_value entry title $row(title)
+        element set_value entry title_url $row(title_url)
 
-        set content_data [template::util::richtext::acquire contents $content]
-        set content_data [template::util::richtext::set_property format $content_data $content_format]
+        element set_value entry category_id $row(category_id)
+        element set_value entry content [template::util::richtext::create $row(content) $row(content_format)]
 
-        element set_value entry category_id $category_id
-        element set_value entry content $content_data
-
-        element set_value entry entry_date $entry_date
-        element set_value entry draft_p $draft_p
+        element set_value entry entry_date $row(entry_date_ansi)
+        element set_value entry draft_p $row(draft_p)
     }
 
     element set_properties entry entry_id -value $entry_id
@@ -129,7 +128,7 @@
 	    -draft_p "$draft_p"
     } else {
         permission::require_write_permission -object_id $entry_id
-
+        
         lars_blogger::entry::edit \
             -entry_id $entry_id \
             -title $title \