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 -r1.2 -r1.3 --- openacs-4/packages/organizations/tcl/organizations-procs.tcl 15 Jun 2005 03:41:07 -0000 1.2 +++ openacs-4/packages/organizations/tcl/organizations-procs.tcl 6 Jul 2005 23:41:39 -0000 1.3 @@ -37,6 +37,21 @@ } -default ""] } +ad_proc -public organization::get_by_name { + {-name:required} +} { + Return the organization_id of the organization with the given name. Uses + a lowercase comparison so we do not allow organizations to differ only + in case. Returns empty string if no organization found. + + @author Matthew Geddert (openacs@geddert.com) + @creation-date 2005-07-06 + + @return organization_id +} { + return [db_string get_by_name { select organization_id from organizations where lower(name) = lower(:name) } -default {}] +} + ad_proc -public organization::new { {-organization_id ""} {-legal_name ""}