Index: openacs-4/packages/acs-subsite/www/admin/configure.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/configure.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/acs-subsite/www/admin/configure.tcl 28 Aug 2003 09:41:40 -0000 1.2 +++ openacs-4/packages/acs-subsite/www/admin/configure.tcl 10 Sep 2003 09:38:29 -0000 1.3 @@ -6,7 +6,20 @@ @cvs-id $Id$ } -set page_title "[ad_conn instance_name] Configuration" +set page_title "Subsite Configuration" set context [list "Configuration"] +ad_form -name name -mode display -form { + {instance_name:text + {label "Subsite name"} + {html {size 50}} + } +} -on_request { + set instance_name [ad_conn instance_name] +} -on_submit { + apm_package_rename -instance_name $instance_name +} -after_submit { + ad_returnredirect [ad_conn url] + ad_script_abort +}