Index: openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql,v
diff -u -r1.10 -r1.11
--- openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql	9 Dec 2001 04:21:58 -0000	1.10
+++ openacs-4/contrib/obsolete-packages/bboard/tcl/bboard-procs-postgresql.xql	9 Mar 2002 02:00:02 -0000	1.11
@@ -93,7 +93,7 @@
                 now(),
                 :creation_user,
                 :creation_ip,
-                'acs_message'
+                'bboard_message'
             );
       </querytext>
 </fullquery>
@@ -290,7 +290,7 @@
       <querytext>
 	update cr_revisions
  	set content = :filename,
-	    content_length = :size
+	    content_length = :file_size
         where revision_id = :revision_id
       </querytext>
 </fullquery>
@@ -331,7 +331,7 @@
       <querytext>
 	update cr_revisions
  	set content = :filename,
-	    content_length = :size
+	    content_length = :file_size
         where revision_id = :revision_id
       </querytext>
 </fullquery>
@@ -367,41 +367,36 @@
 
  
  
-<fullquery name="bboard_garbage_collect.clear_revision_references">      
+<fullquery name="bboard_garbage_collect_postgresql.get_orphans">      
       <querytext>
 
-update cr_items
-   set latest_revision=null, live_revision=null
- where item_id in 
-       (select object_id as message_id
-          from acs_objects
-         where object_type = 'acs_message'
-           and object_id not in (select message_id 
-                                 from bboard_forum_message_map));
+          select object_id as message_id
+          from acs_objects o
+          where o.object_type = 'bboard_message'
+            and not exists (select 1
+                            from bboard_forum_message_map bfmm, acs_objects o2
+                            where o2.object_id = bfmm.message_id and
+                            o.tree_sortkey between o2.tree_sortkey and tree_right(o2.tree_sortkey))
     
       </querytext>
 </fullquery>
 
-<fullquery name="bboard_garbage_collect.bboard_alert_clean">      
+
+<fullquery name="bboard_garbage_collect_postgresql.clear_revision_references">      
       <querytext>
 
-declare
-    message_rec record;
-begin
-    for message_rec in
-        select o.object_id as message_id
-          from acs_objects o
-         where o.object_type = 'acs_message'
-            and not exists (select 1
-                            from bboard_forum_message_map bfmm, acs_objects o2
-                            where o2.object_id = bfmm.message_id and
-                              o.tree_sortkey between o2.tree_sortkey and tree_right(o2.tree_sortkey))
-    loop
-        perform bboard_message__remove(message_rec.message_id);
-    end loop;
+		update cr_items
+          set latest_revision=null, live_revision=null
+          where item_id = :message_id
 
-    return 0;
-end;
+      </querytext>
+</fullquery>
+
+
+<fullquery name="bboard_garbage_collect_postgresql.delete_message">      
+      <querytext>
+
+            select bboard_message__remove(:message_id);
     
       </querytext>
 </fullquery>