Index: openacs-4/packages/assessment/www/asm-admin/item-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/assessment/www/asm-admin/item-edit.tcl	12 Jul 2006 06:01:40 -0000	1.8
+++ openacs-4/packages/assessment/www/asm-admin/item-edit.tcl	3 Sep 2006 17:00:20 -0000	1.9
@@ -41,9 +41,24 @@
     {description:text(textarea) {label "[_ assessment.Description]"} {html {rows 5 cols 80}} {value $description} {help_text "[_ assessment.item_Description_help]"}}
 }
 
-if {[db_0or1row get_item_content {}]} {
+set linked_objects [application_data_link::get_links_from -object_id $as_item_id]
+if {[llength $linked_objects]} {
+    foreach l $linked_objects {
+	acs_object::get -object_id $l -array object
+	if {$object(object_type) eq "content_item"} {
+	    set object(object_type) [content::item::get_content_type -item_id $l]
+	}
+	set link_type o
+	if {$object(object_type) eq "image"} {
+	    set link_type image
+	} 
+	if {$object(object_type) eq "content_revision"} {
+	    set link_type file
+	}
+	append links "<a href='/${link_type}/$l'>$object(title)</a><br />"
+    }
     ad_form -extend -name item_edit -form {
-	{content:text(inform),optional {label "[_ assessment.item_display_Content]"} {value {<a href="../view/$content_filename?revision_id=$content_rev_id" target=view>$content_name</a>}} {help_text "[_ assessment.item_Content_help]"}}
+	{content:text(inform),optional {label "[_ assessment.item_display_Content]"} {value {$links}} {help_text "[_ assessment.item_Content_help]"}}
     }
 }