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.9 -r1.9.2.1 --- openacs-4/packages/new-portal/www/admin/portal-config-2.tcl 29 Jun 2018 17:27:19 -0000 1.9 +++ openacs-4/packages/new-portal/www/admin/portal-config-2.tcl 7 Feb 2022 15:32:56 -0000 1.9.2.1 @@ -21,15 +21,14 @@ @author Arjun Sanyal @creation-date 9/28/2001 @cvs-id $Id$ -} { } +} { + portal_id:naturalnum,notnull + {return_url:localurl ""} + {anchor ""} +} -set form [ns_getform] -set portal_id [ns_set get $form portal_id] -set return_url [ns_set get $form return_url] -set anchor [ns_set get $form anchor] +portal::configure_dispatch -portal_id $portal_id -form [ns_getform] -portal::configure_dispatch -portal_id $portal_id -form $form - ad_returnredirect "portal-config?portal_id=$portal_id&referer=$return_url#$anchor" ad_script_abort