This is already a parameter. There was a patch to make it actually work a while back.
https://openacs.org/sdm/one-patch.tcl?patch_id=284
I wonder if this every made it in.