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.67 -r1.68
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	12 Mar 2004 18:48:55 -0000	1.67
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	1 Apr 2004 20:56:29 -0000	1.68
@@ -1007,18 +1007,15 @@
 #
 
 ad_proc -public apm_package_url_from_id {package_id} {
+    Will return the first url found for a given package_id
+
     @return The package url of the instance of the package.
-    only valid for singleton packages.
 } {
-    return [util_memoize "apm_package_url_from_id_mem $package_id"]
+    return [util_memoize [list apm_package_url_from_id_mem $package_id]]
 }
 
 ad_proc -private apm_package_url_from_id_mem {package_id} {
-    return [db_string apm_package_url_from_id {
-	select site_node.url(node_id) 
-          from site_nodes 
-         where object_id = :package_id
-    } -default ""]
+    return [db_string apm_package_url_from_id {*SQL*} -default {}]
 }
 
 #