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.11 -r1.12
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	29 Sep 2003 11:03:30 -0000	1.11
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	19 Oct 2003 20:25:03 -0000	1.12
@@ -10,7 +10,7 @@
     {-package_id:required}
     {-title:required}
     {-title_url ""}
-    {-category_id "0"}
+    {-category_id ""}
     {-content:required}
     {-content_format:required}
     {-entry_date:required}
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.7 -r1.8
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	17 Oct 2003 00:39:22 -0000	1.7
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	19 Oct 2003 20:25:03 -0000	1.8
@@ -36,11 +36,9 @@
 element create entry title_url -label "Title URL" -datatype text -html { size 50 } -optional
 
 # If categories are enabled, set up a select-box with option. 
-# Otherwise just set the category_id to null to support category support in the future.
 if { [string equal [lars_blog_categories_p] "1"] } {
-    # It's probably possible to set up the widget directly from the datasource -- I just don't know how :-(
-    set option_list [concat [list [list None 0]] [db_list_of_lists categories {}]]
-    element create entry category_id -label "Category" -datatype integer -widget select -options $option_list
+    set option_list [concat [list [list None ""]] [db_list_of_lists categories {}]]
+    element create entry category_id -label "Category" -datatype integer -widget select -options $option_list -optional
 }
 
 element create entry content -label "Content" -datatype richtext -widget richtext -html { cols 80 rows 20 }