Index: openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql 9 Nov 2001 19:37:11 -0000 1.3
+++ openacs-4/packages/calendar-portlet/sql/oracle/calendar-portlet-create.sql 9 Nov 2001 20:33:05 -0000 1.4
@@ -21,6 +21,7 @@
data_type => 'tcl_proc',
mime_type => 'text/html',
name => 'calendar-portlet',
+ link => 'calendar',
description => 'Displays the calendar ',
content => 'calendar_portlet::show',
configurable_p => 't'
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]
}
Index: openacs-4/packages/new-portal/www/layouts/mime-types/text+html.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/layouts/mime-types/Attic/text+html.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/new-portal/www/layouts/mime-types/text+html.adp 9 Nov 2001 18:14:29 -0000 1.3
+++ openacs-4/packages/new-portal/www/layouts/mime-types/text+html.adp 9 Nov 2001 20:29:30 -0000 1.4
@@ -2,5 +2,6 @@