Index: openacs-4/packages/news/tcl/news-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs.tcl,v
diff -u -N -r1.4 -r1.4.2.1
--- openacs-4/packages/news/tcl/news-procs.tcl	10 Sep 2002 22:23:10 -0000	1.4
+++ openacs-4/packages/news/tcl/news-procs.tcl	14 Jan 2003 17:52:35 -0000	1.4.2.1
@@ -68,13 +68,11 @@
 
 
 ad_proc news_util_get_url {
-    package_key
+    package_id
 } {
     @author Robert Locke
 } {
 
-    set package_id [apm_package_id_from_key $package_key]
-
     set url_stub ""
 
     db_0or1row get_url_stub "
@@ -110,6 +108,7 @@
     @author Robert Locke
 } {
 
+    set package_id [db_string get_package_id {*SQL*}]
     set url_stub [news_util_get_url news]
 
     db_1row get_item_id "