Index: openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql	10 Oct 2001 06:56:44 -0000	1.3
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql	15 Oct 2001 20:15:43 -0000	1.4
@@ -5,18 +5,18 @@
 
 <fullquery name="subsite::configure.add_constraint">      
       <querytext>
-      FIX ME PLSQL
 
-		    BEGIN
-			:1 := rel_constraint__new(
-			constraint_name => :constraint_name,
-			rel_segment => :segment_id,
-			rel_side => 'two',
-			required_rel_segment => rel_segment__get(:supersite_group_id, 'membership_rel'),
-			creation_user => :user_id,
-			creation_ip => :creation_ip
-			);
-		    END;
+	select rel_constraint__new(
+	  null,
+	  'rel_constraint',
+	  :constraint_name,
+	  :segment_id,
+	  'two',
+	  rel_segment__get(:supersite_group_id, 'membership_rel'),
+	  null,
+	  :user_id,
+	  :creation_ip
+	);
 		
       </querytext>
 </fullquery>