Index: openacs-4/packages/organizations/organizations.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/organizations/organizations.info,v diff -u -r1.4 -r1.5 --- openacs-4/packages/organizations/organizations.info 26 Feb 2004 15:29:21 -0000 1.4 +++ openacs-4/packages/organizations/organizations.info 27 May 2004 23:49:30 -0000 1.5 @@ -6,32 +6,25 @@ Organizations f f - - - - oracle - postgresql - + + Jon Griffin + Jade Rubick Implementation of HR-XML organizations datamodel. + 2004-05-26 Mayuli Enterprises, LLC - - Provides the datamodel for an - implementation of the HR-XML organizations spec, but no API for - manipulating the data. Also note that the Oracle code is out of sync - with the Postgres code. The source code has comments in it indicating - what needs to be updated to make things work correctly [Jade Rubick]. + Provides the datamodel for an + implementation of the HR-XML organizations spec, but no API for + manipulating the data. Also note that the Oracle code is out of sync + with the Postgres code. The source code has comments in it indicating + what needs to be updated to make things work correctly [Jade Rubick]. + - - - - - - - + + Index: openacs-4/packages/organizations/tcl/organizations-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/organizations/tcl/organizations-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/organizations/tcl/organizations-procs.tcl 27 May 2004 23:49:30 -0000 1.1 @@ -0,0 +1,38 @@ +# + +ad_library { + + Procs for organizations + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-05-24 + @arch-tag: 1d9b7e33-1d9f-43e5-a85e-47dc870fedb9 + @cvs-id $Id: organizations-procs.tcl,v 1.1 2004/05/27 23:49:30 jader Exp $ +} + + +namespace eval organizations {} + +ad_proc -public organizations::name { + {-organization_id:required} +} { + Returns the organization name when given the organization_id + + @author Jade Rubick (jader@bread.com) + @creation-date 2004-05-24 + + @param organization_id + + @return organization name + + @error returns an empty string +} { + return [db_string get_name { + SELECT + name + FROM + organizations + WHERE + organization_id = :organization_id + } -default ""] +}