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
Index: openacs-4/packages/lars-blogger/www/entry-edit.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-edit.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lars-blogger/www/entry-edit.xql	29 Sep 2003 08:05:42 -0000	1.3
+++ openacs-4/packages/lars-blogger/www/entry-edit.xql	13 Oct 2003 07:41:13 -0000	1.4
@@ -4,9 +4,9 @@
 
     <fullquery name="categories">
         <querytext>
-	        select category_id as tmp_category_id, name 
-                from pinds_blog_categories
-                where package_id = :package_id
+	        select name, category_id
+                from   pinds_blog_categories
+                where  package_id = :package_id
         </querytext>
     </fullquery>