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 ""]
+}