oracle8.1.6 begin :1 := bboard_forum.forum_p(:forum_id); end; begin :1 := bboard_forum.new ( forum_id => :forum_id, short_name => :short_name, charter => :charter, moderated_p => :moderated_p, forum_type => :forum_type, bboard_id => :bboard_id, context_id => :context_id, creation_user => :creation_user, creation_ip => :creation_ip ); end; begin bboard_forum.set_attrs ( forum_id => :forum_id, short_name => :short_name, charter => :charter, moderated_p => :moderated_p, bboard_id => :bboard_id ); end; begin :1 := bboard_category.category_p(:category_id); end; begin :1 := bboard_category.new ( category_id => :category_id, short_name => :short_name, description => :description, forum_id => :forum_id ); end; begin bboard_category.set_attrs ( category_id => :category_id, short_name => :short_name, description => :description, forum_id => :forum_id ); end; begin :1 := bboard_message.new ( message_id => :message_id, reply_to => :reply_to, sent_date => :sent_date, sender => :sender, title => :title, mime_type => :mime_type, data => empty_blob(), context_id => :context_id, creation_user => :creation_user, creation_ip => :creation_ip ); end; update cr_revisions set content = empty_blob() where revision_id = :revision_id returning content into :1 begin bboard_message.set_attrs ( message_id => :message_id, reply_to => :reply_to, sent_date => :sent_date, sender => :sender, title => :title, mime_type => :mime_type, context_id => :context_id ); end; update cr_revisions set content = empty_blob() where revision_id = :revision_id returning content into :1 begin bboard_message.clear_categories ( :message_id ); end; begin bboard_message.add_category ( message_id => :message_id, category_id => :category_id ); end; begin bboard_message.remove_category ( message_id => :message_id, category_id => :category_id ); end; begin bboard_message.set_status ( message_id => :message_id, forum_id => :forum_id, status => :status ); end; begin bboard_forum.subscribe ( forum_id => :forum_id, subscriber_id => :subscriber_id ); end; begin bboard_category.subscribe ( category_id => :category_id, subscriber_id => :subscriber_id ); end; begin bboard_message.subscribe ( thread_id => :thread_id, subscriber_id => :subscriber_id ); end; select count(*) as subscribed_p from bboard_thread_subscribers where subscriber_id = :user_id and thread_id in (select message_id from acs_messages b connect by b.message_id = prior b.reply_to start with message_id = :message_id) select bboard_forum.forum_containing_message(:message_id) as forum_id from dual select acs_message.first_ancestor(:message_id) as ancestor_id from dual begin :1 := acs_message.new_image ( message_id => :message_id, image_id => :file_id, file_name => :short_filename, title => :title, mime_type => :mime_type, content => empty_blob(), width => :width, height => :height, creation_user => :user_id, creation_ip => :creation_ip, is_live => 't' ); end; select content_item.get_latest_revision(:file_id) as revision_id from dual update cr_revisions set filename = :filename, content_length = :size where revision_id = :revision_id begin :1 := acs_message.new_file ( message_id => :message_id, file_id => :file_id, file_name => :short_filename, title => :title, mime_type => :mime_type, content => empty_blob(), creation_user => :user_id, creation_ip => :creation_ip, is_live => 't' ); end; select content_item.get_latest_revision(:file_id) as revision_id from dual update cr_revisions set filename = :filename, content_length = :size where revision_id = :revision_id select image_id from images where image_id = content_item.get_latest_revision(:file_id) begin acs_message.delete_image(:file_id); end; begin acs_message.delete_file(:file_id); end; update cr_items set latest_revision=null, live_revision=null where item_id = -1; declare cursor alerts_cursor is select object_id from acs_objects where object_id in (select object_id from acs_objects where object_type = 'acs_message' start with context_id in (select forum_id from bboard_forums) connect by prior object_id = context_id) and object_id not in (select message_id from bboard_forum_message_map) order by object_id desc; begin for alert_val in alerts_cursor loop bboard_message.remove(alert_val.object_id); end loop; end; select subscriber_id as recipient_id, thread_id as grouping_id, sysdate as wait_until from bboard_thread_subscribers s where s.thread_id in (select message_id from acs_messages start with message_id = :message_id connect by message_id = prior reply_to) and s.subscriber_id in (select party_id from all_object_party_privilege_map where object_id = :message_id and privilege = 'bboard_read_message') select s.subscriber_id as recipient_id, s.category_id as grouping_id, sysdate as wait_until from bboard_category_subscribers s, bboard_category_message_map m where m.message_id = :message_id and s.category_id = m.category_id and s.subscriber_id in (select party_id from acs_object_party_privilege_map where object_id = :message_id and privilege = 'bboard_read_message') select s.subscriber_id as recipient_id, s.forum_id as grouping_id, sysdate as wait_until from bboard_forum_subscribers s, bboard_forum_message_map m where m.message_id = :message_id and s.forum_id = m.forum_id and s.subscriber_id in (select party_id from acs_object_party_privilege_map where object_id = :message_id and privilege = 'bboard_read_message')