Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v diff -u -N -r1.93.2.48 -r1.93.2.49 --- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 5 Feb 2022 16:56:58 -0000 1.93.2.48 +++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 25 Mar 2022 10:08:35 -0000 1.93.2.49 @@ -133,8 +133,13 @@ error "value '$value' of parameter $name must not be larger than $max" } return $value + } + :method type=cr_item_of_package {name value package_id:int32} { + if {![::xo::db::CrClass id_belongs_to_package -item_id $value -package_id $package_id]} { + error "value '$value' of is not a valid content repository item of the required package" + } + } } - } ::xotcl::Object proc setExitHandler {code} {::nsf::exithandler set $code} ::xotcl::Object instproc set_instance_vars_defaults {} {:configure} @@ -153,6 +158,7 @@ ::nx::Slot method type=html ::nx::Slot method type=nohtml ::nx::Slot method type=range + ::nx::Slot method type=cr_item_of_package ::nx::Object nsfproc ::nsf::debug::call ::nx::Object nsfproc ::nsf::debug::exit }