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 (
