Index: openacs-4/packages/acs-subsite/tcl/rel-segments-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-segments-procs-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/tcl/rel-segments-procs-postgresql.xql	6 May 2001 21:40:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/tcl/rel-segments-procs-postgresql.xql	15 May 2001 16:59:00 -0000	1.2
@@ -5,39 +5,41 @@
 
 <fullquery name="rel_segments_new.create_rel_segment">      
       <querytext>
---      FIX ME PLSQL
---      declare
---      begin
-                select rel_segment__new(
-                        :segment_name,          -- segment_name
-                        :group_id,              -- group_id
-                        :context_id,            -- context_id
-                        :rel_type,              -- rel_type
-                        :creation_user,         -- creation_user
-                        :creation_ip            -- creation_ip
-                                 );
---      end;
 
+	select rel_segment__new(
+		null,
+		'rel_segment',
+		now(),
+		:creation_user,
+		:creation_ip,
+		null,
+		null,
+		:segment_name,
+		:group_id,
+		:rel_type,
+		:context_id
+)
+    
       </querytext>
 </fullquery>
 
-
-<fullquery name="rel_segments_delete.constraint_delete">
+ 
+<fullquery name="rel_segments_delete.constraint_delete">      
       <querytext>
---      FIX ME PLSQL
-                select rel_segment__delete(:constraint_id);
 
+	    select rel_segment__delete(:constraint_id)
+	
       </querytext>
 </fullquery>
 
-
-<fullquery name="rel_segments_delete.rel_segment_delete">
+ 
+<fullquery name="rel_segments_delete.rel_segment_delete">      
       <querytext>
---      FIX ME PLSQL
-	        select rel_segment__delete(:segment_id);
 
+	select rel_segment__delete(:segment_id)
+    
       </querytext>
 </fullquery>
 
-
+ 
 </queryset>