Index: openacs-4/packages/cms/www/modules/items/comment-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/comment-add.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/items/comment-add.tcl	16 Aug 2002 03:57:48 -0000	1.3
+++ openacs-4/packages/cms/www/modules/items/comment-add.tcl	19 Aug 2002 03:05:17 -0000	1.4
@@ -42,5 +42,33 @@
 
   }
 
+  set query "
+  select
+    rel_id, relation_tag, 
+    i.item_id, i.name, trim(r.title) as title, t.pretty_name, 
+    to_char(o.creation_date, 'MM/DD/YY HH24:MM') last_modified
+  from
+    cr_items i, acs_object_types t, acs_objects o, cr_revisions r,
+    cr_child_rels c
+  where
+    i.parent_id = :item_id
+  and
+    o.object_id = :item_id
+  and
+    i.content_type = t.object_type
+  and
+    r.revision_id = NVL(i.live_revision, i.latest_revision)
+  and
+    c.parent_id = i.parent_id
+  and
+    c.child_id = i.item_id
+  order by
+    t.pretty_name, title"
+
+#template::query children multirow $query
+
+
+
+
   template::forward "index?item_id=$object_id"
 }