Index: openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql,v
diff -u -r1.23.2.1 -r1.23.2.2
--- openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql	14 Sep 2021 18:01:51 -0000	1.23.2.1
+++ openacs-4/packages/acs-subsite/tcl/package-procs-postgresql.xql	12 Aug 2024 15:35:39 -0000	1.23.2.2
@@ -162,7 +162,7 @@
 perform define_function_args('${package_name}__new','[plpgsql_utility::define_function_args $attribute_list]');
 
 CREATE FUNCTION ${package_name}__new([plpgsql_utility::generate_function_signature $attribute_list])
-RETURNS [plpgsql_utility::table_column_type ${table_name} ${id_column}] AS $$
+RETURNS [db_column_type -complain $table_name $id_column] AS $$
 DECLARE
     [plpgsql_utility::generate_attribute_parameters $attribute_list];
     v_$id_column ${table_name}.${id_column}%TYPE;
@@ -186,7 +186,7 @@
 $$ LANGUAGE plpgsql;
 
 CREATE FUNCTION ${package_name}__delete (
-    p_${id_column} [plpgsql_utility::table_column_type ${table_name} ${id_column}]
+    p_${id_column} [db_column_type -complain $table_name $id_column]
 ) RETURNS integer AS $$
 DECLARE
 BEGIN