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 -N -r1.25 -r1.26
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	15 Nov 2002 13:07:24 -0000	1.25
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	22 Nov 2002 13:00:25 -0000	1.26
@@ -787,6 +787,23 @@
 }
 
 #
+# package_id -> instance_name
+#
+
+ad_proc -public apm_instance_name_from_id {package_id} {
+    @return The name of the instance.
+} {
+    return [util_memoize "apm_instance_name_from_id_mem $package_id"]
+}
+
+proc apm_instance_name_from_id_mem {package_id} {
+    return [db_string apm_package_key_from_id {
+	select instance_name from apm_packages where package_id = :package_id
+    } -default ""]
+}
+
+
+#
 # package_key -> package_id
 #