Index: openacs-4/packages/categories/lib/list-categories.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/list-categories.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/categories/lib/list-categories.tcl	7 Aug 2017 23:48:05 -0000	1.5
+++ openacs-4/packages/categories/lib/list-categories.tcl	14 Jul 2022 15:48:16 -0000	1.5.2.1
@@ -1,8 +1,13 @@
-if {![info exists cat]} {
-    set cat ""
+ad_include_contract {
+
+    List categories
+
+} {
+    {cat:integer ""}
+    {orderby:word "object_title"}
 }
 
-if { ![info exists orderby] || $orderby eq "" } {
+if { $orderby eq "" } {
     set orderby "object_title"
 }
 set user_id [ad_conn user_id]
Index: openacs-4/packages/categories/www/include/widget.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/include/widget.tcl,v
diff -u -r1.8 -r1.8.2.1
--- openacs-4/packages/categories/www/include/widget.tcl	7 Aug 2017 23:48:05 -0000	1.8
+++ openacs-4/packages/categories/www/include/widget.tcl	14 Jul 2022 15:51:33 -0000	1.8.2.1
@@ -1,16 +1,14 @@
-#
-# author: Timo Hentschel (timo@timohentschel.de)
-#
+ad_include_contract {
 
-if {![info exists object_id]} {
-    set object_id 0
+    Widget
+
+    @author Timo Hentschel (timo@timohentschel.de)
+
+} {
+    {object_id:object_id 0}
+    {package_id:object_id "[ad_conn package_id]"}
+    {name:word category_ids}
 }
-if {![info exists package_id]} {
-    set package_id [ad_conn package_id]
-}
-if {![info exists name]} {
-    set name category_ids
-}
 
 template::multirow create trees tree_id tree_name category_id selected_p category_name indent assign_single_p require_category_p