Index: openacs-4/packages/contacts/lib/portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/portlet.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/contacts/lib/portlet.adp 13 Oct 2005 14:47:34 -0000 1.1 @@ -0,0 +1,17 @@ +<!-- Wrapper Portlet Starts --> +<!-- 9999cc --> +<table class="list" cellpadding="0" cellspacing="0" width="100%" border="0"> + <tr> + <th class="project" align="left">@portlet_title;noquote@</th> + </tr> + <tr> + <td width="100%"> + <slave> + </td> + </tr> +</table> +<!-- Wrapper portlet stops --> + + + + Index: openacs-4/packages/contacts/lib/portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/portlet.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/contacts/lib/portlet.tcl 13 Oct 2005 14:47:34 -0000 1.1 @@ -0,0 +1,19 @@ +# packages/contacts/lib/portlet.tcl +# +# Portlet wrapper +# +# @author Malte Sussdorff (sussdorff@sussdorff.de) +# @creation-date 2005-05-01 +# @arch-tag: c3461fd0-cb54-49bf-947a-8f710b3bd016 +# @cvs-id $Id: portlet.tcl,v 1.1 2005/10/13 14:47:34 miguelm Exp $ + +foreach required_param {portlet_title} { + if {![info exists $required_param]} { + return -code error "$required_param is a required parameter." + } +} +foreach optional_param {} { + if {![info exists $optional_param]} { + set $optional_param {} + } +}