Index: openacs.org-dev/packages/news/tcl/news-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/news/tcl/news-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/news/tcl/news-procs.tcl	9 Jul 2002 17:35:09 -0000	1.1
+++ openacs.org-dev/packages/news/tcl/news-procs.tcl	14 Jan 2003 16:00:48 -0000	1.2
@@ -6,7 +6,7 @@
     
     @author stefan@arsdigita.com
     @creation-date 12-14-00
-    @cvs-id $Id$ 
+    @cvs-id $Id$
 }
 
 
@@ -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,7 +108,8 @@
     @author Robert Locke
 } {
 
-    set url_stub [news_util_get_url news]
+    set package_id [db_string get_package_id {*SQL*}]
+    set url_stub [news_util_get_url $package_id]
 
     db_1row get_item_id "
         select item_id
Index: openacs.org-dev/packages/news/tcl/news-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/news/tcl/news-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/news/tcl/news-procs.xql	9 Jul 2002 17:35:09 -0000	1.1
+++ openacs.org-dev/packages/news/tcl/news-procs.xql	14 Jan 2003 16:00:48 -0000	1.2
@@ -11,5 +11,13 @@
 
       </querytext>
 </fullquery>
- 
+
+<fullquery name="news__url.get_package_id">
+	<querytext>
+	  select package_id
+	  from cr_news
+	  where news_id=:object_id
+	</querytext>
+</fullquery>
+
 </queryset>