Index: openacs-4/packages/categories/lib/map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/lib/map.tcl,v
diff -u -r1.3.2.1 -r1.3.2.2
--- openacs-4/packages/categories/lib/map.tcl	11 Dec 2019 18:13:57 -0000	1.3.2.1
+++ openacs-4/packages/categories/lib/map.tcl	3 Dec 2020 13:42:37 -0000	1.3.2.2
@@ -1,11 +1,13 @@
-if {![info exists object_id] || $object_id eq ""} {
-    ad_complain "You must specify an item to map"
+ad_include_contract {
+    UI to map an object to a container
+} {
+    object_id:integer,notnull
+    container_id:integer,notnull
+} -errors {
+    object_id {You must specify an item to map}
+    container_id {You must specify a container to map the object to}
 }
 
-if {![info exists container_id] || $container_id eq ""} {
-    ad_complain "You must specify a container to map the object to"
-}
-
 ad_form -name catass -form {
     {object_id:integer(hidden)
         {value $object_id}