Index: openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql	26 Apr 2001 05:38:54 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/apm-procs-oracle.xql	28 Nov 2001 04:59:51 -0000	1.3
@@ -157,5 +157,15 @@
       </querytext>
 </fullquery>
 
+<fullquery name="apm_package_url_from_key_mem.apm_package_url_from_key">      
+      <querytext>
+      
+	select site_node.url(node_id) 
+          from site_nodes 
+         where object_id = :package_id
+    
+      </querytext>
+</fullquery>
+
  
 </queryset>
Index: openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql	29 May 2001 01:46:29 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/apm-procs-postgresql.xql	28 Nov 2001 04:59:51 -0000	1.7
@@ -138,4 +138,15 @@
       </querytext>
 </fullquery>
 
+
+<fullquery name="apm_package_url_from_key_mem.apm_package_url_from_key">      
+      <querytext>
+      
+	select site_node__url(node_id) 
+          from site_nodes 
+         where object_id = :package_id
+    
+      </querytext>
+</fullquery>
+
 </queryset>
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.14 -r1.15
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	15 Sep 2001 00:32:45 -0000	1.14
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	28 Nov 2001 04:59:51 -0000	1.15
@@ -767,6 +767,22 @@
     } -default 0]
 }
 
+ad_proc -public apm_package_url_from_key {package_key} {
+    @return The package url of the instance of the package.
+    only valid for singleton packages.
+} {
+    return [util_memoize "apm_package_url_from_key_mem $package_key"]
+}
+
+proc apm_package_url_from_key_mem {package_key} {
+    set package_id [apm_package_id_from_key $package_key]
+    return [db_string apm_package_url_from_key {
+	select site_node.url(node_id) 
+          from site_nodes 
+         where object_id = :package_id
+    } -default ""]
+}
+
 ad_proc -public apm_version_info {version_id} {
 
     Sets a set of common package information in the caller's environment.