Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 20 Apr 2001 20:51:09 -0000 1.1 +++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl 17 Nov 2001 11:40:42 -0000 1.2 @@ -32,15 +32,11 @@ ad_maybe_redirect_for_registration } else { ns_log Notice "$user_id doesn't have $privilege on object $object_id" - ns_write "[ad_header "Security Violation"] -

Security Violation

-
-
+ ad_return_forbidden "Security Violation" "
You don't have permission to $privilege [db_string name {select acs_object.name(:object_id) from dual}].

This incident has been logged. -

- [ad_footer]" +
" } ad_script_abort }