Index: openacs-4/packages/acs-content-repository/sql/postgresql/doc-package.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/sql/postgresql/doc-package.sql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-content-repository/sql/postgresql/doc-package.sql	11 Dec 2003 21:39:47 -0000	1.5
+++ openacs-4/packages/acs-content-repository/sql/postgresql/doc-package.sql	7 Jul 2011 10:46:02 -0000	1.6
@@ -4,28 +4,46 @@
 
 -- show errors
 
-create or replace function doc__get_proc_header (varchar,varchar)
-returns varchar as '
-declare
-  proc_name              alias for $1;  
-  package_name           alias for $2;  
-begin
+
+
+-- added
+select define_function_args('doc__get_proc_header','proc_name,package_name');
+
+--
+-- procedure doc__get_proc_header/2
+--
+CREATE OR REPLACE FUNCTION doc__get_proc_header(
+   proc_name varchar,
+   package_name varchar
+) RETURNS varchar AS $$
+DECLARE
+BEGIN
         return definition 
           from acs_func_headers 
-         where fname = (package_name || ''__'' || proc_name)::name 
+         where fname = (package_name || '__' || proc_name)::name 
          limit 1;
 
-end;' language 'plpgsql' stable;
+END;
+$$ LANGUAGE plpgsql stable;
 
 
-create or replace function doc__get_package_header (varchar)
-returns varchar as '
-declare
-  package_name           alias for $1;  
-begin
 
-        return '''';
 
-end;' language 'plpgsql' immutable strict;
+-- added
+select define_function_args('doc__get_package_header','package_name');
 
+--
+-- procedure doc__get_package_header/1
+--
+CREATE OR REPLACE FUNCTION doc__get_package_header(
+   package_name varchar
+) RETURNS varchar AS $$
+DECLARE
+BEGIN
+
+        return '';
+
+END;
+$$ LANGUAGE plpgsql immutable strict;
+
 -- show errors