Index: openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/admin/Attic/entry-edit.tcl,v
diff -u -r1.7 -r1.7.2.1
--- openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl	16 Sep 2002 13:01:34 -0000	1.7
+++ openacs-4/packages/lars-blogger/www/admin/entry-edit.tcl	30 Jan 2003 12:34:54 -0000	1.7.2.1
@@ -1,6 +1,8 @@
 ad_page_contract {} {
     {entry_id:integer ""}
     {return_url ""}
+    {title ""}
+    {content:allhtml ""}
     cancel:optional
 } -properties {
     context_bar
@@ -40,6 +42,13 @@
         set entry_id [db_nextval "acs_object_id_seq"]
         element set_properties entry entry_date -value $today
         element set_properties entry draft_p -value "t"
+
+        # Prefill title and content with supplied values
+        foreach element { content title } {
+            if { [exists_and_not_null $element] } {
+                element set_value entry $element [set $element]
+            }
+        }
     } else {
         set insert_or_update update