Index: openacs-4/packages/faq/sql/postgresql/faq-package-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq/sql/postgresql/faq-package-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/faq/sql/postgresql/faq-package-create.sql	12 Aug 2013 09:34:30 -0000	1.2
+++ openacs-4/packages/faq/sql/postgresql/faq-package-create.sql	27 Oct 2014 16:41:29 -0000	1.3
@@ -5,22 +5,24 @@
 -- @cvs-id $Id$
 --
 
-create or replace function faq__new_q_and_a (integer,integer,varchar,varchar,integer,varchar,timestamptz,integer,varchar,integer) returns integer as
-'
-declare
-	p_entry_id   		alias for $1;				-- default null,
-	p_faq_id     		alias for $2;
-	p_question   		alias for $3;
-	p_answer     		alias for $4;
-	p_sort_key   		alias for $5;
-	p_object_type 	alias for $6;     		-- default faq_q_and_a
-	p_creation_date alias for $7;  --in acs_objects.creation_date%TYPE   default sysdate,
-	p_creation_user alias for $8;	 --in acs_objects.creation_user%TYPE   default null,
-	p_creation_ip    	alias for $9;		-- in acs_objects.creation_ip%TYPE     default null,
-	p_context_id     	alias for $10; 	--in acs_objects.context_id%TYPE      default null
+select define_function_args('faq__new_q_and_a','entry_id;null,faq_id,question,answer,sort_key,object_type,creation_date;sysdate,creation_user;null,creation_ip;null,context_id;null');
+
+CREATE OR REPLACE FUNCTION faq__new_q_and_a (
+       p_entry_id integer, 		-- default null,
+       p_faq_id integer,
+       p_question varchar,
+       p_answer varchar,
+       p_sort_key integer,
+       p_object_type varchar,		-- default faq_q_and_a
+       p_creation_date timestamptz,	-- in acs_objects.creation_date%TYPE	default sysdate,
+       p_creation_user integer,		-- in acs_objects.creation_user%TYPE   default null,
+       p_creation_ip varchar, 		-- in acs_objects.creation_ip%TYPE     default null,
+       p_context_id integer		-- in acs_objects.context_id%TYPE      default null
+) RETURNS integer AS $$
+DECLARE
 	v_entry_id 			faq_q_and_as.entry_id%TYPE;
 	v_package_id 			acs_objects.package_id%TYPE;
-begin
+BEGIN
         select package_id into v_package_id from acs_objects where object_id = p_faq_id;
 
 	v_entry_id := acs_object__new (
@@ -33,13 +35,13 @@
                 't',
                 p_question,
                 v_package_id
-  );
+  		);
 	insert into faq_q_and_as
 		(entry_id, faq_id, question, answer, sort_key)
 	values
 		(v_entry_id, p_faq_id, p_question, p_answer, p_sort_key);
-  return v_entry_id;
 
+  return v_entry_id;
 END;
 $$ LANGUAGE plpgsql;
 
@@ -61,7 +63,6 @@
 	PERFORM acs_object__delete(p_entry_id);
 
 	return 0;
-
 END;
 $$ LANGUAGE plpgsql;
 
