# packages/contacts/lib/contact-relationships.tcl # # Include for the relationships of a contact # # @author Malte Sussdorff (sussdorff@sussdorff.de) # @creation-date 2005-06-21 # @arch-tag: 291a71c2-5442-4618-bb9f-13ff23d854b5 # @cvs-id $Id: contact-relationships.tcl~,v 1.1 2005/06/21 12:25:18 maltes Exp $ foreach required_param {} { 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 {} } } multirow create rels relationship contact contact_url attribute value