Index: openacs-4/packages/dotlrn/www/applet-remove.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/applet-remove.tcl,v diff -u -r1.8 -r1.8.12.1 --- openacs-4/packages/dotlrn/www/applet-remove.tcl 23 Oct 2002 12:38:39 -0000 1.8 +++ openacs-4/packages/dotlrn/www/applet-remove.tcl 29 Mar 2007 20:15:04 -0000 1.8.12.1 @@ -26,13 +26,13 @@ # Check access if {![dotlrn_community::admin_access_p $community_id]} { - ns_returnredirect / + ad_returnredirect / return } # Add the applet dotlrn_community::remove_applet $community_id $applet_key # Get back to where you once belonged -ns_returnredirect community-applets?community_id=$community_id +ad_returnredirect community-applets?community_id=$community_id Index: openacs-4/packages/dotlrn/www/one-community.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/one-community.tcl,v diff -u -r1.34 -r1.34.2.1 --- openacs-4/packages/dotlrn/www/one-community.tcl 8 Aug 2006 21:26:24 -0000 1.34 +++ openacs-4/packages/dotlrn/www/one-community.tcl 29 Mar 2007 20:15:04 -0000 1.34.2.1 @@ -28,7 +28,7 @@ # Check that this is a community type if {[parameter::get -parameter community_level_p] != 1} { - ns_returnredirect "./" + ad_returnredirect "./" ad_script_abort } Index: openacs-4/packages/dotlrn-homework/www/admin/upload-size-limit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/admin/upload-size-limit.tcl,v diff -u -r1.2 -r1.2.6.1 --- openacs-4/packages/dotlrn-homework/www/admin/upload-size-limit.tcl 13 Jan 2005 13:57:30 -0000 1.2 +++ openacs-4/packages/dotlrn-homework/www/admin/upload-size-limit.tcl 29 Mar 2007 20:15:04 -0000 1.2.6.1 @@ -33,7 +33,7 @@ } -on_submit { parameter::set_value -parameter "MaximumFileSize" -value $new_size if {![empty_string_p $return_url]} { - ns_returnredirect $return_url + ad_returnredirect $return_url } } Index: openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl,v diff -u -r1.5 -r1.5.2.1 --- openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl 8 Aug 2006 21:26:49 -0000 1.5 +++ openacs-4/packages/file-storage/www/admin/upload-size-limit.tcl 29 Mar 2007 20:15:04 -0000 1.5.2.1 @@ -33,7 +33,7 @@ } -on_submit { parameter::set_value -parameter "MaximumFileSize" -value $new_size if {![empty_string_p $return_url]} { - ns_returnredirect $return_url + ad_returnredirect $return_url } } Index: openacs-4/packages/new-portal/www/admin/portal-config-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/admin/portal-config-2.tcl,v diff -u -r1.5 -r1.5.16.1 --- openacs-4/packages/new-portal/www/admin/portal-config-2.tcl 9 Aug 2002 20:56:30 -0000 1.5 +++ openacs-4/packages/new-portal/www/admin/portal-config-2.tcl 29 Mar 2007 20:15:04 -0000 1.5.16.1 @@ -30,5 +30,5 @@ portal::configure_dispatch -portal_id $portal_id -form $form -ns_returnredirect "portal-config?portal_id=$portal_id&referer=$return_url#$anchor" +ad_returnredirect "portal-config?portal_id=$portal_id&referer=$return_url#$anchor"