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.9 -r1.10
--- openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	28 Aug 2003 09:41:55 -0000	1.9
+++ openacs-4/packages/lars-blogger/tcl/lars-blogger-procs.tcl	29 Sep 2003 08:05:42 -0000	1.10
@@ -10,6 +10,7 @@
     {-package_id:required}
     {-title:required}
     {-title_url ""}
+    {-category_id "0"}
     {-content:required}
     {-content_format:required}
     {-entry_date:required}
@@ -173,3 +174,12 @@
     }
     return [ad_parameter -package_id $package_id "HeaderBackgroundColor" "lars-blogger" "#dcdcdc"] 
 }
+
+ad_proc -public lars_blog_categories_p {
+    -package_id
+} {
+    if { ![exists_and_not_null package_id] } {
+        set package_id [ad_conn package_id]
+    }
+    return [ad_parameter -package_id $package_id "EnableCategoriesP" "lars-blogger" "1"]
+}