Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.51 -r1.52
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	28 Aug 2003 09:41:43 -0000	1.51
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	10 Sep 2003 09:34:14 -0000	1.52
@@ -1065,6 +1065,23 @@
             -context_id $context_id]
 }
 
+ad_proc -public apm_package_rename {
+    {-package_id ""}
+    {-instance_name:required}
+} {
+    Renames a package instance
+} {    
+    if { [empty_string_p $package_id] } {
+        set package_id [ad_conn package_id]
+    }
+    db_dml app_rename {
+        update apm_packages
+        set instance_name = :instance_name
+        where package_id = :package_id
+    }
+    site_nodes_sync
+}
+
 ad_proc -public apm_set_callback_proc {
     {-version_id ""}
     {-package_key ""}