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 @@ + + + + + + + + + +
@portlet_title;noquote@
+ +
+ + + + + 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 {} + } +}