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 -r1.93.2.8 -r1.93.2.9 --- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 6 Sep 2019 16:00:31 -0000 1.93.2.8 +++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 30 Sep 2019 21:14:08 -0000 1.93.2.9 @@ -90,6 +90,11 @@ return -code error "Value '$value' of parameter $name is not a valid token." } } + :method type=localurl {name value} { + if { $value eq "" || [util::external_url_p $value]} { + return -code error "Value '$value' of parameter $name is not a valid local url." + } + } } ::xotcl::Object proc setExitHandler {code} {::nsf::exithandler set $code} @@ -104,6 +109,7 @@ ::nx::Slot method set ::nx::Slot method type=naturalnum ::nx::Slot method type=token + ::nx::Slot method type=localurl ::nx::Object nsfproc ::nsf::debug::call ::nx::Object nsfproc ::nsf::debug::exit }