Index: openacs-4/packages/project-manager/lib/fs-portlet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/fs-portlet.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/lib/fs-portlet.adp 26 May 2005 12:44:08 -0000 1.1
@@ -0,0 +1,10 @@
+
+#forums.Forums#
+
+
+
+ |
+ |
+
+
+
\ No newline at end of file
Index: openacs-4/packages/project-manager/lib/fs-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/fs-portlet.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/project-manager/lib/fs-portlet.tcl 26 May 2005 12:44:08 -0000 1.1
@@ -0,0 +1,18 @@
+# packages/project-manager/lib/forums-portlet.tcl
+#
+#
+#
+# @author Malte Sussdorff (sussdorff@sussdorff.de)
+# @creation-date 2005-05-26
+# @arch-tag: 2e370b1e-543b-41ee-9517-f4445927a286
+# @cvs-id $Id: fs-portlet.tcl,v 1.1 2005/05/26 12:44:08 maltes Exp $
+
+foreach required_param {folder_id} {
+ if {![info exists $required_param]} {
+ return -code error "$required_param is a required parameter."
+ }
+}
+
+
+set package_id [acs_object::get_element -object_id $folder_id -element package_id]
+set base_url [apm_package_url_from_id $package_id]
Index: openacs-4/packages/project-manager/www/one.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/one.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/project-manager/www/one.adp 26 May 2005 12:24:11 -0000 1.4
+++ openacs-4/packages/project-manager/www/one.adp 26 May 2005 12:44:08 -0000 1.5
@@ -76,6 +76,11 @@
forum_id="@forum_id@" />
+
+
+