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}