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.4 -r1.5
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	29 Sep 2003 08:05:42 -0000	1.4
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	13 Oct 2003 07:41:13 -0000	1.5
@@ -39,10 +39,7 @@
 # Otherwise just set the category_id to 0 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 [list [list None 0]]
-    db_foreach categories { *SQL* } {
-        lappend option_list [list $name $tmp_category_id]
-    }
+    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
 } else {
     element create entry category_id -widget hidden -datatype text -value 0