Index: openacs-4/packages/categories/tcl/categories-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/categories/tcl/categories-procs-postgresql.xql	27 Apr 2003 11:36:23 -0000	1.2
+++ openacs-4/packages/categories/tcl/categories-procs-postgresql.xql	19 May 2003 13:10:17 -0000	1.3
@@ -5,145 +5,102 @@
 
 <fullquery name="category::add.insert_category">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
-
-		begin
-		:1 := category__new (
-				    category_id   => :category_id,
-				    locale        => :locale,
-				    name          => :name,
-				    description   => :description,
-				    tree_id       => :tree_id,
-				    parent_id     => :parent_id,
-				    creation_user => :user_id,
-				    creation_ip   => :creation_ip
-				    );
-		end;
-	    
+		select category__new (
+				    :category_id,
+				    :tree_id,
+				    :locale,
+				    :name,
+				    :description,
+				    :parent_id,
+                                    :deprecated_p,
+                                    current_timestamp,
+				    :user_id,
+				    :creation_ip
+				    )
       </querytext>
 </fullquery>
 
  
 <fullquery name="category::add.insert_default_category">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
-
-		    begin
-		    category__new_translation (
-					      category_id    => :category_id,
-					      locale         => :default_locale,
-					      name           => :name,
-					      description    => :description,
-					      modifying_user => :user_id,
-					      modifying_ip   => :creation_ip
-					      );
-		    end;
-		
+		    select category__new_translation (
+					      :category_id,
+					      :default_locale,
+					      :name,
+					      :description,
+                                              current_timestamp,
+					      :user_id,
+					      :creation_ip
+					      )
       </querytext>
 </fullquery>
 
  
 <fullquery name="category::update.insert_category_translation">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
-
-		    begin
-		    category__new_translation (
-					      category_id    => :category_id,
-					      locale         => :locale,
-					      name           => :name,
-					      description    => :description,
-					      modifying_user => :user_id,
-					      modifying_ip   => :modifying_ip
-					      );
-		    end;
-		
+		    select category__new_translation (
+					      :category_id,
+					      :locale,
+					      :name,
+					      :description,
+                                              current_timestamp,
+					      :user_id,
+					      :modifying_ip
+					      )
       </querytext>
 </fullquery>
 
  
 <fullquery name="category::update.update_category_translation">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
-
-		    begin
-		    category__edit (
-				   category_id    => :category_id,
-				   locale         => :locale,
-				   name           => :name,
-				   description    => :description,
-				   modifying_user => :user_id,
-				   modifying_ip   => :modifying_ip
-				   );
-		    end;
-		
+		    select category__edit (
+				   :category_id,
+				   :locale,
+				   :name,
+				   :description,
+                                   current_timestamp,
+				   :user_id,
+				   :modifying_ip
+				   )
       </querytext>
 </fullquery>
 
  
 <fullquery name="category::delete.delete_category">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
-
-	    begin
-	    category__del ( :category_id );
-	    end;
-	
+	    select category__del ( :category_id )
       </querytext>
 </fullquery>
 
  
 <fullquery name="category::change_parent.change_parent_category">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
-
-	    begin
-	    category__change_parent (
-				    category_id  => :category_id,
-				    tree_id      => :tree_id,
-				    parent_id    => :parent_id
-				    );
-	    end;
-	
+	    select category__change_parent (
+				    :category_id,
+				    :tree_id,
+				    :parent_id
+				    )
       </querytext>
 </fullquery>
 
  
 <fullquery name="category::phase_in.phase_in">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
-
-	    begin
-	    category__phase_in(:category_id);
-	    end;
-	
+	    select category__phase_in(:category_id)
       </querytext>
 </fullquery>
 
  
 <fullquery name="category::phase_out.phase_out">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
-
-	    begin
-	    category__phase_out(:category_id);
-	    end;
-	
+	    select category__phase_out(:category_id)
       </querytext>
 </fullquery>
 
  
 <fullquery name="category::get_object_context.object_name">      
       <querytext>
-      select acs_object__name(:object_id) 
+            select acs_object__name(:object_id) 
       </querytext>
 </fullquery>