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.21 -r1.22
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	7 Feb 2004 13:50:40 -0000	1.21
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	1 Apr 2004 13:05:30 -0000	1.22
@@ -81,10 +81,11 @@
 
     }
 }
+set container_id [ad_conn [parameter::get -parameter CategoryContainer -default package_id]]
 
 # SWC (Site-wide categories):
 category::ad_form::add_widgets \
-    -container_object_id $package_id \
+    -container_object_id $container_id \
     -categorized_object_id [value_if_exists entry_id] \
     -form_name entry
 
@@ -142,7 +143,7 @@
 
         # SWC Collect categories from all the category widgets
         set category_ids [category::ad_form::get_categories \
-          -container_object_id $package_id]
+                              -container_object_id $container_id]
 
     } \
     -new_data {