Index: openacs-4/packages/chat/sql/oracle/chat-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/sql/oracle/chat-create.sql,v diff -u -r1.2.8.1 -r1.2.8.2 --- openacs-4/packages/chat/sql/oracle/chat-create.sql 9 Apr 2006 16:31:21 -0000 1.2.8.1 +++ openacs-4/packages/chat/sql/oracle/chat-create.sql 10 Apr 2006 11:52:03 -0000 1.2.8.2 @@ -243,8 +243,8 @@ moderated_p in chat_rooms.moderated_p%TYPE default 'f', active_p in chat_rooms.active_p%TYPE default 't', archive_p in chat_rooms.archive_p%TYPE default 'f', - auto_flush_p in chat_rooms.auto_flush_p%TYPE default 't', - auto_transcript_p in chat_rooms.auto_transcript_p%TYPE default 'f', + auto_flush_p in chat_rooms.auto_flush_p%TYPE default 't', + auto_transcript_p in chat_rooms.auto_transcript_p%TYPE default 'f', context_id in acs_objects.context_id%TYPE default null, creation_date in acs_objects.creation_date%TYPE default sysdate, creation_user in acs_objects.creation_user%TYPE default null, @@ -339,8 +339,8 @@ moderated_p in chat_rooms.moderated_p%TYPE default 'f', active_p in chat_rooms.active_p%TYPE default 't', archive_p in chat_rooms.archive_p%TYPE default 'f', - auto_flush_p in chat_rooms.auto_flush_p%TYPE default 't', - auto_transcript_p in chat_rooms.auto_transcript_p%TYPE default 'f', + auto_flush_p in chat_rooms.auto_flush_p%TYPE default 't', + auto_transcript_p in chat_rooms.auto_transcript_p%TYPE default 'f', context_id in acs_objects.context_id%TYPE default null, creation_date in acs_objects.creation_date%TYPE default sysdate, creation_user in acs_objects.creation_user%TYPE default null, @@ -351,12 +351,12 @@ v_room_id chat_rooms.room_id%TYPE; begin v_room_id := acs_object.new ( - object_type => object_type, - creation_date => creation_date, - creation_user => creation_user, - creation_ip => creation_ip, - context_id => context_id - ); + object_type => chat_room.new.object_type, + creation_date => chat_room.new.creation_date, + creation_user => chat_room.new.creation_user, + creation_ip => chat_room.new.creation_ip, + context_id => chat_room.new.context_id + ); insert into chat_rooms ( room_id, @@ -365,18 +365,17 @@ moderated_p, active_p, archive_p, - auto_flush_p, - auto_transcript_p - ) values ( + auto_flush_p, + auto_transcript_p) + values ( v_room_id, chat_room.new.pretty_name, chat_room.new.description, chat_room.new.moderated_p, chat_room.new.active_p, chat_room.new.archive_p, - chat_room.new.auto_flush_p, - chat_room.new.auto_transcript_p - ); + chat_room.new.auto_flush_p, + chat_room.new.auto_transcript_p); return v_room_id; end new; @@ -405,8 +404,8 @@ moderated_p in chat_rooms.moderated_p%TYPE, active_p in chat_rooms.active_p%TYPE, archive_p in chat_rooms.archive_p%TYPE, - auto_flush_p in chat_rooms.auto_flush_p%TYPE, - auto_transcript_p in chat_rooms.auto_transcript_p%TYPE + auto_flush_p in chat_rooms.auto_flush_p%TYPE, + auto_transcript_p in chat_rooms.auto_transcript_p%TYPE ) is begin @@ -511,7 +510,6 @@ / show errors - create or replace package body chat_transcript as function new ( Index: openacs-4/packages/chat/sql/oracle/upgrade/upgrade-5.0d4-5.0d5.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/chat/sql/oracle/upgrade/upgrade-5.0d4-5.0d5.sql,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/chat/sql/oracle/upgrade/upgrade-5.0d4-5.0d5.sql 9 Apr 2006 16:31:21 -0000 1.1.2.1 +++ openacs-4/packages/chat/sql/oracle/upgrade/upgrade-5.0d4-5.0d5.sql 10 Apr 2006 11:52:03 -0000 1.1.2.2 @@ -2,10 +2,10 @@ -- oracle/upgrade/upgrade-5.0d4-5.0d5.sql -alter table chat_rooms add column auto_flush_p char(1) default 't'; +alter table chat_rooms add auto_flush_p char(1) default 't'; alter table chat_rooms add constraint chat_rooms_auto_flush_ck check(auto_flush_p in ('t','f')); -alter table chat_rooms add column auto_transcript_p char(1) default 'f'; +alter table chat_rooms add auto_transcript_p char(1) default 'f'; alter table chat_rooms add constraint chat_rooms_auto_transcript_ck check(auto_transcript_p in ('t','f')); update chat_rooms set auto_flush_p = 't', auto_transcript_p = 'f'; @@ -21,8 +21,8 @@ moderated_p in chat_rooms.moderated_p%TYPE default 'f', active_p in chat_rooms.active_p%TYPE default 't', archive_p in chat_rooms.archive_p%TYPE default 'f', - auto_flush_p in chat_rooms.auto_flush_p%TYPE default 't', - auto_transcript_p in chat_rooms.auto_transcript_p%TYPE default 'f', + auto_flush_p in chat_rooms.auto_flush_p%TYPE default 't', + auto_transcript_p in chat_rooms.auto_transcript_p%TYPE default 'f', context_id in acs_objects.context_id%TYPE default null, creation_date in acs_objects.creation_date%TYPE default sysdate, creation_user in acs_objects.creation_user%TYPE default null, @@ -80,8 +80,8 @@ moderated_p in chat_rooms.moderated_p%TYPE default 'f', active_p in chat_rooms.active_p%TYPE default 't', archive_p in chat_rooms.archive_p%TYPE default 'f', - auto_flush_p in chat_rooms.auto_flush_p%TYPE default 't', - auto_transcript_p in chat_rooms.auto_transcript_p%TYPE default 'f', + auto_flush_p in chat_rooms.auto_flush_p%TYPE default 't', + auto_transcript_p in chat_rooms.auto_transcript_p%TYPE default 'f', context_id in acs_objects.context_id%TYPE default null, creation_date in acs_objects.creation_date%TYPE default sysdate, creation_user in acs_objects.creation_user%TYPE default null, @@ -92,12 +92,12 @@ v_room_id chat_rooms.room_id%TYPE; begin v_room_id := acs_object.new ( - object_type => object_type, - creation_date => creation_date, - creation_user => creation_user, - creation_ip => creation_ip, - context_id => context_id - ); + object_type => chat_room.new.object_type, + creation_date => chat_room.new.creation_date, + creation_user => chat_room.new.creation_user, + creation_ip => chat_room.new.creation_ip, + context_id => chat_room.new.context_id + ); insert into chat_rooms ( room_id, @@ -106,18 +106,17 @@ moderated_p, active_p, archive_p, - auto_flush_p, - auto_transcript_p - ) values ( + auto_flush_p, + auto_transcript_p) + values ( v_room_id, chat_room.new.pretty_name, chat_room.new.description, chat_room.new.moderated_p, chat_room.new.active_p, chat_room.new.archive_p, - chat_room.new.auto_flush_p, - chat_room.new.auto_transcript_p - ); + chat_room.new.auto_flush_p, + chat_room.new.auto_transcript_p); return v_room_id; end new; @@ -146,8 +145,8 @@ moderated_p in chat_rooms.moderated_p%TYPE, active_p in chat_rooms.active_p%TYPE, archive_p in chat_rooms.archive_p%TYPE, - auto_flush_p in chat_rooms.auto_flush_p%TYPE, - auto_transcript_p in chat_rooms.auto_transcript_p%TYPE + auto_flush_p in chat_rooms.auto_flush_p%TYPE, + auto_transcript_p in chat_rooms.auto_transcript_p%TYPE ) is begin