Index: openacs-4/packages/acs-kernel/sql/oracle/community-core-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/community-core-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-kernel/sql/oracle/community-core-create.sql	20 Mar 2001 22:51:55 -0000	1.1
+++ openacs-4/packages/acs-kernel/sql/oracle/community-core-create.sql	23 Feb 2002 02:37:36 -0000	1.2
@@ -256,6 +256,10 @@
   party_id	in parties.party_id%TYPE
  ) return varchar2;
 
+ function email (
+  party_id	in parties.party_id%TYPE
+ ) return varchar2;
+
 end party;
 /
 show errors
@@ -314,6 +318,22 @@
   end if;
  end name;
 
+ function email (
+  party_id	in parties.party_id%TYPE
+ )
+ return varchar2
+ is
+  v_email parties.email%TYPE;
+ begin
+  select email
+  into v_email
+  from parties
+  where party_id = email.party_id;
+
+  return v_email;
+
+ end email;
+
 end party;
 /
 show errors
@@ -367,6 +387,14 @@
   person_id	in persons.person_id%TYPE
  ) return varchar2;
 
+ function first_names (
+  person_id	in persons.person_id%TYPE
+ ) return varchar2;
+
+ function last_name (
+  person_id	in persons.person_id%TYPE
+ ) return varchar2;
+
 end person;
 /
 show errors
@@ -432,6 +460,36 @@
   return person_name;
  end name;
 
+ function first_names (
+  person_id	in persons.person_id%TYPE
+ )
+ return varchar2
+ is
+  person_first_names varchar2(200);
+ begin
+  select first_names
+  into person_first_names
+  from persons
+  where person_id = first_names.person_id;
+
+  return person_first_names;
+ end first_names;
+
+function last_name (
+  person_id	in persons.person_id%TYPE
+ )
+ return varchar2
+ is
+  person_last_name varchar2(200);
+ begin
+  select last_name
+  into person_last_name
+  from persons
+  where person_id = last_name.person_id;
+
+  return person_last_name;
+ end last_name;
+
 end person;
 /
 show errors
Index: openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql	3 Sep 2001 20:51:38 -0000	1.7
+++ openacs-4/packages/acs-kernel/sql/postgresql/community-core-create.sql	23 Feb 2002 02:37:36 -0000	1.8
@@ -355,7 +355,23 @@
 end;' language 'plpgsql';
 
 
+-- function email
+create function party__email (integer)
+returns varchar as '
+declare
+  email__party_id	alias for $1;  
+  party_email           varchar(200);  
+begin
+  select email
+  into party_email
+  from parties
+  where party_id = email__party_id;
 
+  return party_email;
+  
+end;' language 'plpgsql';
+
+
 -- show errors
 
 -------------
@@ -476,7 +492,40 @@
 end;' language 'plpgsql';
 
 
+-- function first_names
+create function person__first_names (integer)
+returns varchar as '
+declare
+  first_names__person_id        alias for $1;  
+  person_first_names     varchar(200);  
+begin
+  select first_names
+  into person_first_names
+  from persons
+  where person_id = first_names__person_id;
 
+  return person_first_names;
+  
+end;' language 'plpgsql';
+
+
+-- function last_name
+create function person__last_name (integer)
+returns varchar as '
+declare
+  last_name__person_id        alias for $1;  
+  person_last_name      varchar(200);  
+begin
+  select last_name
+  into person_last_name
+  from persons
+  where person_id = last_name__person_id;
+
+  return person_last_name;
+  
+end;' language 'plpgsql';
+
+
 -- show errors
 
 create table users (