Index: openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl	12 Sep 2002 22:44:31 -0000	1.3
+++ openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl	9 May 2003 22:40:50 -0000	1.3.2.1
@@ -16,7 +16,7 @@
     # Returns 0 otherwise.
     </pre>
 } {
-    if ![db_0or1row get_package_id {select package_id from apm_packages where package_key = 'rss-support'}] {
+    if ![db_0or1row get_package_id {}] {
 	return 0
     } else {
 	return $package_id
@@ -30,7 +30,7 @@
     </pre>
 } {
     set package_id [rss_package_id]
-    return [db_string rss_url {select site_node__url(node_id) from site_nodes where object_id = :package_id} -default ""]
+    return [db_string rss_url {} -default ""]
 
 }
 
@@ -52,19 +52,9 @@
 } {
     set url ""
 
-    if [db_0or1row first_node_id {
-	select node_id from site_nodes
-        where object_id = :package_id
-	order by node_id limit 1
-    }] {
-	db_foreach url_parts {
-	    select s2.name
-	    from site_nodes s1, site_nodes s2
-	    where s1.node_id = :node_id
-	    and s1.tree_sortkey between s2.tree_sortkey and tree_right(s2.tree_sortkey)
-	    order by s2.tree_sortkey;
-	} {
-	    append url ${name}/
+    if [db_0or1row first_node_id {}] {
+	db_foreach url_parts {} {
+	    append url ${name}
 	}
     }