Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.57 -r1.58
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	9 Nov 2001 19:07:31 -0000	1.57
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	9 Nov 2001 20:29:42 -0000	1.58
@@ -757,6 +757,7 @@
 	select
 	mime_type,
 	name,
+	link,
 	content
 	from portal_datasources
 	where datasource_id = $element(datasource_id) 
@@ -778,6 +779,9 @@
 	set element(mime_type) $datasource(mime_type)
 	regsub -all {/} $element(mime_type) {+} element(mime_type_noslash)
 
+	# pass the ds link to the element
+	set element(link) $datasource(link)
+
 	return [array get element]
 
     }