Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new-postgresql.xql	15 May 2001 16:59:00 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/constraints/new-postgresql.xql	9 Sep 2001 17:42:04 -0000	1.2
@@ -19,17 +19,18 @@
  
 <fullquery name="add_constraint">      
       <querytext>
-      FIX ME PLSQL
 
-	 BEGIN
-	  :1 := rel_constraint__new(constraint_name => :constraint_name,
-                                   rel_segment => :rel_segment,
-                                   rel_side => :rel_side,
-                                   required_rel_segment => :required_rel_segment,
-                                   creation_user => :creation_user,
-                                   creation_ip => :creation_ip
-                                  );
-	 END;
+	  select rel_constraint__new(
+	    null,
+	    'rel_constraint',
+	    :constraint_name,
+	    :rel_segment,
+	    :rel_side,
+	    :required_rel_segment,
+	    null,
+	    :creation_user,
+	    :creation_ip
+	  );
 	
       </querytext>
 </fullquery>