Index: openacs-4/packages/project-manager/tcl/project-manager-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-manager-procs-oracle.xql,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/project-manager/tcl/project-manager-procs-oracle.xql	30 Apr 2005 06:59:33 -0000	1.2
+++ openacs-4/packages/project-manager/tcl/project-manager-procs-oracle.xql	30 Nov 2005 06:47:37 -0000	1.2.2.1
@@ -1,44 +1,47 @@
 <?xml version="1.0"?>
-<!--  -->
-<!-- @author Jade Rubick (jader@bread.com) -->
-<!-- @creation-date 2004-06-11 -->
-<!-- @arch-tag: 9a0aca80-2974-4b08-a211-25482d8419b5 -->
-<!-- @cvs-id $Id$ -->
 
 <queryset>
-  
-  <rdbms>
-    <type>oracle</type>
-    <version>8.0</version>
-  </rdbms>
-  
-  <fullquery name="pm::util::category_selects_not_cached.get_categories">
+
+<rdbms><type>oracle</type><version>9.2</version></rdbms>
+
+  <fullquery name="pm::util::general_comment_add.get_revision">
     <querytext>
-    SELECT  t.name as cat_name, 
-            t.category_id as cat_id, 
-            tm.tree_id,
-            tt.name as tree_name
-    FROM category_tree_map tm, 
-         categories c, 
-         category_translations t,
-         category_tree_translations tt 
-    WHERE c.tree_id      = tm.tree_id and 
-          c.category_id  = t.category_id and 
-          tm.object_id   = :package_id and
-          tm.tree_id = tt.tree_id and
-          c.deprecated_p = 'f'
-    ORDER BY  tt.name,
-              t.name
+      select content_item.get_latest_revision(:comment_id) as revision_id from dual
     </querytext>
   </fullquery>
 
-  <fullquery name="pm::util::package_id.get_package_id">
+  <fullquery name="pm::util::general_comment_add.set_content">
     <querytext>
-        SELECT package_id 
-        FROM   cr_folders
-        WHERE  description = 'Project Repository'
+      update cr_revisions
+      set content = empty_blob()
+      where revision_id = :revision_id
+      returning content into :1
     </querytext>
   </fullquery>
 
-  
+  <fullquery name="pm::util::general_comment_add.insert_comment">
+    <querytext>
+        begin
+            :1 :=  acs_message.new (
+                   message_id    => :comment_id,
+                   reply_to      => NULL,
+                   sent_date     => current_timestamp,
+                   sender        => NULL,
+                   rfc822_id     => NULL,
+                   title         => :title,
+                   description   => NULL,
+                   mime_type     => :mime_type,
+                   text          => NULL,
+                   data          => empty_blob(),
+                   parent_id     => 0,
+                   context_id    => :object_id,
+                   creation_user => :user_id,
+                   creation_ip   => :peeraddr,
+                   object_type   => 'acs_message',
+                   is_live       => :is_live
+                   );
+        end;
+    </querytext>
+  </fullquery>
+
 </queryset>