Index: openacs.org-dev/packages/cms/www/modules/items/related-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/cms/www/modules/items/related-items.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/cms/www/modules/items/related-items.tcl	9 Jul 2002 17:35:03 -0000	1.1.1.1
+++ openacs.org-dev/packages/cms/www/modules/items/related-items.tcl	8 Oct 2002 15:47:02 -0000	1.1.1.2
@@ -8,28 +8,5 @@
   -return_url "modules/sitemap/index" \
   -request_error
 
-template::query get_related related multirow "
-  select
-    r.rel_id,
-    r.related_object_id item_id,
-    t.pretty_name as type_name,
-    NVL(r.relation_tag, '-') as tag,
-    trim(NVL(content_item.get_title(r.related_object_id), i.name)) title,
-    ot.pretty_name as content_type
-  from
-    cr_item_rels r, acs_objects o, acs_object_types t,
-    cr_items i, acs_object_types ot
-  where
-    r.item_id = :item_id
-  and
-    o.object_id = r.rel_id
-  and
-    t.object_type = o.object_type
-  and 
-    i.item_id = r.related_object_id
-  and
-    ot.object_type = i.content_type
-  order by 
-    order_n, title
-" 
+db_multirow related get_related ""