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.13 -r1.14
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	14 Dec 2003 11:10:44 -0000	1.13
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	18 Dec 2003 09:56:53 -0000	1.14
@@ -38,8 +38,13 @@
 
 # If categories are enabled, set up a select-box with option. 
 if { [string equal [lars_blog_categories_p] "1"] } {
-    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
+    set options_list [db_list_of_lists categories {}]
+    if { [llength $options_list] > 0 } {
+        set option_list [concat [list [list None ""]] $options_list]
+        element create entry category_id -label "Category" -datatype integer -widget select -options $option_list -optional
+    } else {
+        element create entry category_id -datatype integer -widget hidden -value {} -optional
+    }
 }
 
 element create entry content -label "Content" -datatype richtext -widget richtext -html { cols 80 rows 20 }
Index: openacs-4/packages/lars-blogger/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/index.adp,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/lars-blogger/www/index.adp	14 Dec 2003 16:42:54 -0000	1.27
+++ openacs-4/packages/lars-blogger/www/index.adp	18 Dec 2003 09:57:15 -0000	1.28
@@ -50,7 +50,7 @@
           <include-output>
         </include-optional>
       </div>
-      <if @display_categories@ eq 1>
+      <if @display_categories@ eq 1 and @categories:rowcount@ gt 0>
         <div class="lars_blogger_portlet">
           <h2>Categories</h2>
           <multiple name="categories">