Index: openacs-4/packages/cms/www/modules/items/children.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/children.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/www/modules/items/children.tcl	16 Aug 2002 03:57:48 -0000	1.3
+++ openacs-4/packages/cms/www/modules/items/children.tcl	16 Nov 2004 22:32:48 -0000	1.4
@@ -27,4 +27,41 @@
     -options $child_types -widget select 
 }
 
-db_multirow children get_children ""
+template::list::create \
+    -name children \
+    -key rel_id \
+    -multirow children \
+    -actions [list "Relate marked items to this item" \
+		  "relate-items?item_id=$item_id" \
+		  "Relate marks items to this item"] \
+    -bulk_actions [list "Remove marked relations" \
+		       "[export_vars -base unrelate-item?mount_point=sitemap { rel_id }]" \
+		       "Remove marked relations from this item"] \
+    -elements {
+	content_type {
+	    label "Content Type"
+	}
+	title_url {
+	    label "Title"
+	    display_template "<a href=\"@related.title_url@\" title=\"View content item\">@related.title@</a>"
+	}
+	type_name {
+	    label "Relationship Type"
+	}
+	relation_view_url {
+	    label "Tag"
+	    display_template "<a href=\"@related.relation_view_url@\" title=\"View relation\">@related.tag@</a>"
+	}
+	reorder {
+	    label "Move"
+	    display_template "<nobr><a href=\"@related.move_up_url@\" title=\"Move item up\">up</a> &nbsp;|&nbsp; \
+                                    <a href=\"@related.move_down_url@\" title=\"Move item down\">down</a></nobr>"
+	}
+    }    
+
+db_multirow -extend { title_url relation_view_url move_up_url move_down_url reorder } children get_children "" {
+    set title_url "index?item_id=$item_id&mount_point=$mount_point"
+    set relation_view_url "relationship-view?rel_id=$rel_id&mount_point=$mount_point"
+    set move_up_url "relate-order?rel_id=$rel_id&order=up&mount_point=$mount_point&item_props_tab=children&relation_type=relation"
+    set move_down_url "relate-order?rel_id=$rel_id&order=down&mount_point=$mount_point&item_props_tab=children&relation_type=relation"
+}