Index: openacs-4/packages/forums/sql/oracle/forums-forums-package-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/sql/oracle/forums-forums-package-create.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/forums/sql/oracle/forums-forums-package-create.sql 2 Jun 2002 04:50:26 -0000 1.2 +++ openacs-4/packages/forums/sql/oracle/forums-forums-package-create.sql 3 Jun 2002 23:58:45 -0000 1.3 @@ -13,87 +13,93 @@ create or replace package forums_forum as - function new ( - forum_id in forums_forums.forum_id%TYPE default null, - object_type in acs_objects.object_type%TYPE default 'forums_forum', - name in forums_forums.name%TYPE, - charter in forums_forums.charter%TYPE default null, - presentation_type in forums_forums.presentation_type%TYPE, - posting_policy in forums_forums.posting_policy%TYPE, - package_id in forums_forums.package_id%TYPE, - creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE, - creation_ip in acs_objects.creation_ip%TYPE, - context_id in acs_objects.context_id%TYPE default null - ) return forums_forums.forum_id%TYPE; - - function name ( - forum_id in forums_forums.forum_id%TYPE - ) return varchar; - procedure delete ( - forum_id in forums_forums.forum_id%TYPE - ); + function new ( + forum_id in forums_forums.forum_id%TYPE default null, + object_type in acs_objects.object_type%TYPE default 'forums_forum', + name in forums_forums.name%TYPE, + charter in forums_forums.charter%TYPE default null, + presentation_type in forums_forums.presentation_type%TYPE, + posting_policy in forums_forums.posting_policy%TYPE, + package_id in forums_forums.package_id%TYPE, + creation_date in acs_objects.creation_date%TYPE default sysdate, + creation_user in acs_objects.creation_user%TYPE, + creation_ip in acs_objects.creation_ip%TYPE, + context_id in acs_objects.context_id%TYPE default null + ) return forums_forums.forum_id%TYPE; + + function name ( + forum_id in forums_forums.forum_id%TYPE + ) return varchar; + + procedure delete ( + forum_id in forums_forums.forum_id%TYPE + ); + end forums_forum; / show errors - create or replace package body forums_forum as - function new ( - forum_id in forums_forums.forum_id%TYPE default null, - object_type in acs_objects.object_type%TYPE default 'forums_forum', - name in forums_forums.name%TYPE, - charter in forums_forums.charter%TYPE default null, - presentation_type in forums_forums.presentation_type%TYPE, - posting_policy in forums_forums.posting_policy%TYPE, - package_id in forums_forums.package_id%TYPE, - creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE, - creation_ip in acs_objects.creation_ip%TYPE, - context_id in acs_objects.context_id%TYPE default null - ) return forums_forums.forum_id%TYPE - is - v_forum_id forums_forums.forum_id%TYPE; - begin - v_forum_id := acs_object.new ( - object_id => forum_id, - object_type => object_type, - creation_date => creation_date, - creation_user => creation_user, - creation_ip => creation_ip, - context_id => nvl(context_id, package_id) - ); - - insert into forums_forums - (forum_id, name, charter, presentation_type, posting_policy, package_id) values - (v_forum_id, name, charter, presentation_type, posting_policy, package_id); - acs_object.update_last_modified(nvl(context_id, package_id)); + function new ( + forum_id in forums_forums.forum_id%TYPE default null, + object_type in acs_objects.object_type%TYPE default 'forums_forum', + name in forums_forums.name%TYPE, + charter in forums_forums.charter%TYPE default null, + presentation_type in forums_forums.presentation_type%TYPE, + posting_policy in forums_forums.posting_policy%TYPE, + package_id in forums_forums.package_id%TYPE, + creation_date in acs_objects.creation_date%TYPE default sysdate, + creation_user in acs_objects.creation_user%TYPE, + creation_ip in acs_objects.creation_ip%TYPE, + context_id in acs_objects.context_id%TYPE default null + ) return forums_forums.forum_id%TYPE + is + v_forum_id forums_forums.forum_id%TYPE; + begin + v_forum_id := acs_object.new( + object_id => forum_id, + object_type => object_type, + creation_date => creation_date, + creation_user => creation_user, + creation_ip => creation_ip, + context_id => nvl(context_id, package_id) + ); + + insert into forums_forums + (forum_id, name, charter, presentation_type, posting_policy, package_id) + values + (v_forum_id, name, charter, presentation_type, posting_policy, package_id); - return v_forum_id; - end new; + acs_object.update_last_modified(nvl(context_id, package_id)); - function name ( - forum_id in forums_forums.forum_id%TYPE - ) return varchar - is - v_name forums_forums.name%TYPE; - begin - select name into v_name from forums_forums where forum_id= name.forum_id; + return v_forum_id; + end new; - return v_name; - end name; - - procedure delete ( - forum_id in forums_forums.forum_id%TYPE - ) - is - begin - acs_object.delete(forum_id); - end delete; + function name ( + forum_id in forums_forums.forum_id%TYPE + ) return varchar + is + v_name forums_forums.name%TYPE; + begin + select name + into v_name + from forums_forums + where forum_id = name.forum_id; + return v_name; + end name; + + procedure delete ( + forum_id in forums_forums.forum_id%TYPE + ) + is + begin + acs_object.delete(forum_id); + end delete; + end forums_forum; / show errors Index: openacs-4/packages/forums/sql/oracle/forums-messages-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/sql/oracle/forums-messages-create.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/forums/sql/oracle/forums-messages-create.sql 29 May 2002 21:40:10 -0000 1.1 +++ openacs-4/packages/forums/sql/oracle/forums-messages-create.sql 3 Jun 2002 23:58:45 -0000 1.2 @@ -75,7 +75,8 @@ pretty_plural => 'Forums Messages', table_name => 'forums_messages', id_column => 'message_id', - package_name => 'forums_message' + package_name => 'forums_message', + name_method => 'forums_message.name' ); end; / Index: openacs-4/packages/forums/sql/oracle/forums-messages-package-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/sql/oracle/forums-messages-package-create.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/forums/sql/oracle/forums-messages-package-create.sql 2 Jun 2002 04:50:26 -0000 1.2 +++ openacs-4/packages/forums/sql/oracle/forums-messages-package-create.sql 3 Jun 2002 23:58:45 -0000 1.3 @@ -13,198 +13,234 @@ create or replace package forums_message as - function new ( - message_id in forums_messages.message_id%TYPE default null, - object_type in acs_objects.object_type%TYPE default 'forums_message', - forum_id in forums_messages.forum_id%TYPE, - subject in forums_messages.subject%TYPE, - content in varchar, - html_p in forums_messages.html_p%TYPE default 'f', - user_id in forums_messages.user_id%TYPE, - posting_date in forums_messages.posting_date%TYPE default sysdate, - state in forums_messages.state%TYPE default null, - parent_id in forums_messages.parent_id%TYPE default null, - creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE, - creation_ip in acs_objects.creation_ip%TYPE, - context_id in acs_objects.context_id%TYPE default null - ) return forums_messages.message_id%TYPE; - function root_message_id ( - message_id in forums_messages.message_id%TYPE - ) return forums_messages.message_id%TYPE; + function new ( + message_id in forums_messages.message_id%TYPE default null, + object_type in acs_objects.object_type%TYPE default 'forums_message', + forum_id in forums_messages.forum_id%TYPE, + subject in forums_messages.subject%TYPE, + content in varchar, + html_p in forums_messages.html_p%TYPE default 'f', + user_id in forums_messages.user_id%TYPE, + posting_date in forums_messages.posting_date%TYPE default sysdate, + state in forums_messages.state%TYPE default null, + parent_id in forums_messages.parent_id%TYPE default null, + creation_date in acs_objects.creation_date%TYPE default sysdate, + creation_user in acs_objects.creation_user%TYPE, + creation_ip in acs_objects.creation_ip%TYPE, + context_id in acs_objects.context_id%TYPE default null + ) return forums_messages.message_id%TYPE; - procedure thread_open ( - message_id in forums_messages.message_id%TYPE - ); + function root_message_id ( + message_id in forums_messages.message_id%TYPE + ) return forums_messages.message_id%TYPE; - procedure thread_close ( - message_id in forums_messages.message_id%TYPE - ); - - procedure delete ( - message_id in forums_messages.message_id%TYPE - ); + procedure thread_open ( + message_id in forums_messages.message_id%TYPE + ); - procedure delete_thread ( - message_id in forums_messages.message_id%TYPE - ); + procedure thread_close ( + message_id in forums_messages.message_id%TYPE + ); + + procedure delete ( + message_id in forums_messages.message_id%TYPE + ); + + procedure delete_thread ( + message_id in forums_messages.message_id%TYPE + ); + + function name ( + message_id in forums_messages.message_id%TYPE + ) return varchar; + end forums_message; / show errors - - create or replace package body forums_message as - function new ( - message_id in forums_messages.message_id%TYPE default null, - object_type in acs_objects.object_type%TYPE default 'forums_message', - forum_id in forums_messages.forum_id%TYPE, - subject in forums_messages.subject%TYPE, - content in varchar, - html_p in forums_messages.html_p%TYPE default 'f', - user_id in forums_messages.user_id%TYPE, - posting_date in forums_messages.posting_date%TYPE default sysdate, - state in forums_messages.state%TYPE default null, - parent_id in forums_messages.parent_id%TYPE default null, - creation_date in acs_objects.creation_date%TYPE default sysdate, - creation_user in acs_objects.creation_user%TYPE, - creation_ip in acs_objects.creation_ip%TYPE, - context_id in acs_objects.context_id%TYPE default null - ) return forums_messages.message_id%TYPE - is - v_message_id acs_objects.object_id%TYPE; - v_forum_policy forums_forums.posting_policy%TYPE; - v_state forums_messages.state%TYPE; - begin - v_message_id := acs_object.new ( - object_id => message_id, - object_type => object_type, - creation_date => creation_date, - creation_user => creation_user, - creation_ip => creation_ip, - context_id => nvl(context_id,forum_id) - ); - - IF state is NULL - then - select posting_policy into v_forum_policy from forums_forums - where forum_id= new.forum_id; - - if v_forum_policy = 'moderated' - then v_state := 'pending'; - else v_state := 'approved'; - end if; - else - v_state := state; - end if; - insert into forums_messages - (message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, state) - values - (v_message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, v_state); + function new ( + message_id in forums_messages.message_id%TYPE default null, + object_type in acs_objects.object_type%TYPE default 'forums_message', + forum_id in forums_messages.forum_id%TYPE, + subject in forums_messages.subject%TYPE, + content in varchar, + html_p in forums_messages.html_p%TYPE default 'f', + user_id in forums_messages.user_id%TYPE, + posting_date in forums_messages.posting_date%TYPE default sysdate, + state in forums_messages.state%TYPE default null, + parent_id in forums_messages.parent_id%TYPE default null, + creation_date in acs_objects.creation_date%TYPE default sysdate, + creation_user in acs_objects.creation_user%TYPE, + creation_ip in acs_objects.creation_ip%TYPE, + context_id in acs_objects.context_id%TYPE default null + ) return forums_messages.message_id%TYPE + is + v_message_id acs_objects.object_id%TYPE; + v_forum_policy forums_forums.posting_policy%TYPE; + v_state forums_messages.state%TYPE; + begin + v_message_id := acs_object.new( + object_id => message_id, + object_type => object_type, + creation_date => creation_date, + creation_user => creation_user, + creation_ip => creation_ip, + context_id => nvl(context_id, forum_id) + ); - acs_object.update_last_modified(forum_id); + if state is null + then + select posting_policy + into v_forum_policy + from forums_forums + where forum_id= new.forum_id; - return v_message_id; - end new; - - function root_message_id ( - message_id in forums_messages.message_id%TYPE - ) return forums_messages.message_id%TYPE - is - v_message_id forums_messages.message_id%TYPE; - v_forum_id forums_messages.forum_id%TYPE; - v_sortkey forums_messages.tree_sortkey%TYPE; - begin - select forum_id, tree_sortkey into v_forum_id, v_sortkey - from forums_messages where message_id= root_message_id.message_id; + if v_forum_policy = 'moderated' then + v_state := 'pending'; + else + v_state := 'approved'; + end if; + else + v_state := state; + end if; - select message_id into v_message_id from forums_messages where forum_id= v_forum_id - and tree_sortkey= tree.ancestor_key(v_sortkey, 1); + insert into forums_messages + (message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, state) + values + (v_message_id, forum_id, subject, content, html_p, user_id, posting_date, parent_id, v_state); - return v_message_id; - end root_message_id; + acs_object.update_last_modified(forum_id); - procedure thread_open ( - message_id in forums_messages.message_id%TYPE - ) - is - v_forum_id forums_messages.forum_id%TYPE; - v_sortkey forums_messages.tree_sortkey%TYPE; - begin - select forum_id, tree_sortkey into v_forum_id, v_sortkey - from forums_messages where message_id= thread_open.message_id; + return v_message_id; + end new; - update forums_messages set open_p='t' - where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey) - and forum_id = v_forum_id; + function root_message_id ( + message_id in forums_messages.message_id%TYPE + ) return forums_messages.message_id%TYPE + is + v_message_id forums_messages.message_id%TYPE; + v_forum_id forums_messages.forum_id%TYPE; + v_sortkey forums_messages.tree_sortkey%TYPE; + begin + select forum_id, tree_sortkey + into v_forum_id, v_sortkey + from forums_messages + where message_id = root_message_id.message_id; - update forums_messages set open_p='t' - where message_id= thread_open.message_id; - end thread_open; + select message_id + into v_message_id + from forums_messages + where forum_id = v_forum_id + and tree_sortkey = tree.ancestor_key(v_sortkey, 1); - procedure thread_close ( - message_id in forums_messages.message_id%TYPE - ) - is - v_forum_id forums_messages.forum_id%TYPE; - v_sortkey forums_messages.tree_sortkey%TYPE; - begin - select forum_id, tree_sortkey into v_forum_id, v_sortkey - from forums_messages where message_id= thread_close.message_id; + return v_message_id; + end root_message_id; - update forums_messages set open_p='f' - where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey) - and forum_id = v_forum_id; + procedure thread_open ( + message_id in forums_messages.message_id%TYPE + ) + is + v_forum_id forums_messages.forum_id%TYPE; + v_sortkey forums_messages.tree_sortkey%TYPE; + begin + select forum_id, tree_sortkey + into v_forum_id, v_sortkey + from forums_messages + where message_id = thread_open.message_id; - update forums_messages set open_p='f' - where message_id= thread_close.message_id; - end thread_close; - - procedure delete ( - message_id in forums_messages.message_id%TYPE - ) - is - begin - acs_object.delete(message_id); - end delete; + update forums_messages + set open_p = 't' + where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey) + and forum_id = v_forum_id; - procedure delete_thread ( - message_id in forums_messages.message_id%TYPE - ) - is - v_forum_id forums_messages.forum_id%TYPE; - v_sortkey forums_messages.tree_sortkey%TYPE; - v_message forums_messages%ROWTYPE; - begin - select forum_id, tree_sortkey into v_forum_id, v_sortkey - from forums_messages where message_id= delete_thread.message_id; - - -- if it's already deleted - if SQL%NOTFOUND - then return; - end if; + update forums_messages + set open_p = 't' + where message_id = thread_open.message_id; + end thread_open; - -- delete all children - -- order by tree_sortkey desc to guarantee - -- that we never delete a parent before its child - -- sortkeys are beautiful - FOR v_message in - (select * from forums_messages - where forum_id = v_forum_id and - tree_sortkey between tree.left(v_sortkey) - and tree.right(v_sortkey) order by tree_sortkey desc) - LOOP - forums_message.delete(v_message.message_id); - END LOOP; + procedure thread_close ( + message_id in forums_messages.message_id%TYPE + ) + is + v_forum_id forums_messages.forum_id%TYPE; + v_sortkey forums_messages.tree_sortkey%TYPE; + begin + select forum_id, tree_sortkey + into v_forum_id, v_sortkey + from forums_messages + where message_id = thread_close.message_id; - -- delete the message itself - forums_message.delete(delete_thread.message_id); - end delete_thread; + update forums_messages + set open_p = 'f' + where tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey) + and forum_id = v_forum_id; + update forums_messages + set open_p = 'f' + where message_id = thread_close.message_id; + end thread_close; + + procedure delete ( + message_id in forums_messages.message_id%TYPE + ) + is + begin + acs_object.delete(message_id); + end delete; + + procedure delete_thread ( + message_id in forums_messages.message_id%TYPE + ) + is + v_forum_id forums_messages.forum_id%TYPE; + v_sortkey forums_messages.tree_sortkey%TYPE; + v_message forums_messages%ROWTYPE; + begin + select forum_id, tree_sortkey + into v_forum_id, v_sortkey + from forums_messages + where message_id = delete_thread.message_id; + + -- if it's already deleted + if SQL%NOTFOUND then + return; + end if; + + -- delete all children + -- order by tree_sortkey desc to guarantee + -- that we never delete a parent before its child + -- sortkeys are beautiful + for v_message in (select * + from forums_messages + where forum_id = v_forum_id + and tree_sortkey between tree.left(v_sortkey) and tree.right(v_sortkey) + order by tree_sortkey desc) + loop + forums_message.delete(v_message.message_id); + end loop; + + -- delete the message itself + forums_message.delete(delete_thread.message_id); + end delete_thread; + + function name ( + message_id in forums_messages.message_id%TYPE + ) return varchar + is + v_name forums_messages.subject%TYPE; + begin + select subject + into v_name + from forums_messages + where message_id = forums_message.name.message_id; + + return v_name; + end name; + end forums_message; / show errors - Index: openacs-4/packages/forums/sql/postgresql/forums-forums-package-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/sql/postgresql/forums-forums-package-create.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/forums/sql/postgresql/forums-forums-package-create.sql 2 Jun 2002 04:50:26 -0000 1.2 +++ openacs-4/packages/forums/sql/postgresql/forums-forums-package-create.sql 3 Jun 2002 23:58:45 -0000 1.3 @@ -56,7 +56,7 @@ create function forums_forum__name(integer) -returns integer as ' +returns varchar as ' DECLARE p_forum_id alias for $1; BEGIN Index: openacs-4/packages/forums/sql/postgresql/forums-messages-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/sql/postgresql/forums-messages-create.sql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/forums/sql/postgresql/forums-messages-create.sql 1 Jun 2002 19:02:29 -0000 1.1 +++ openacs-4/packages/forums/sql/postgresql/forums-messages-create.sql 3 Jun 2002 23:58:45 -0000 1.2 @@ -77,6 +77,6 @@ 'forums_message', 'f', NULL, - NULL + 'forums_message__name' ); end; Index: openacs-4/packages/forums/sql/postgresql/forums-messages-package-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/sql/postgresql/forums-messages-package-create.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/forums/sql/postgresql/forums-messages-package-create.sql 2 Jun 2002 04:50:26 -0000 1.2 +++ openacs-4/packages/forums/sql/postgresql/forums-messages-package-create.sql 3 Jun 2002 23:58:45 -0000 1.3 @@ -23,36 +23,38 @@ select define_function_args ('forums_message__delete_thread', 'message_id'); +select define_function_args('forums_message__name','message_id'); + -- implementation create function forums_message__new (integer,varchar,integer,varchar,text,char,integer,timestamp,varchar,integer,timestamp,integer,varchar,integer) returns integer as ' DECLARE - p_message_id alias for $1; - p_object_type alias for $2; - p_forum_id alias for $3; - p_subject alias for $4; - p_content alias for $5; - p_html_p alias for $6; - p_user_id alias for $7; - p_posting_date alias for $8; - p_state alias for $9; - p_parent_id alias for $10; - p_creation_date alias for $11; - p_creation_user alias for $12; - p_creation_ip alias for $13; - p_context_id alias for $14; - v_message_id integer; - v_forum_policy forums_forums.posting_policy%TYPE; - v_state forums_messages.state%TYPE; + p_message_id alias for $1; + p_object_type alias for $2; + p_forum_id alias for $3; + p_subject alias for $4; + p_content alias for $5; + p_html_p alias for $6; + p_user_id alias for $7; + p_posting_date alias for $8; + p_state alias for $9; + p_parent_id alias for $10; + p_creation_date alias for $11; + p_creation_user alias for $12; + p_creation_ip alias for $13; + p_context_id alias for $14; + v_message_id integer; + v_forum_policy forums_forums.posting_policy%TYPE; + v_state forums_messages.state%TYPE; BEGIN - v_message_id:= acs_object__new ( - p_message_id, - p_object_type, - p_creation_date, - p_creation_user, - p_creation_ip, - p_context_id); + v_message_id:= acs_object__new ( + p_message_id, + p_object_type, + p_creation_date, + p_creation_user, + p_creation_ip, + p_context_id); IF p_state is NULL then @@ -82,7 +84,7 @@ create function forums_message__root_message_id (integer) returns integer as ' DECLARE - p_message_id alias for $1; + p_message_id alias for $1; v_message_id forums_messages.message_id%TYPE; v_forum_id forums_messages.forum_id%TYPE; v_sortkey forums_messages.tree_sortkey%TYPE; @@ -101,7 +103,7 @@ create function forums_message__thread_open (integer) returns integer as ' DECLARE - p_message_id alias for $1; + p_message_id alias for $1; v_forum_id forums_messages.forum_id%TYPE; v_sortkey forums_messages.tree_sortkey%TYPE; BEGIN @@ -115,15 +117,15 @@ update forums_messages set open_p=''t'' where message_id= p_message_id; - return 0; + return 0; END; ' language 'plpgsql'; create function forums_message__thread_close (integer) returns integer as ' DECLARE - p_message_id alias for $1; + p_message_id alias for $1; v_forum_id forums_messages.forum_id%TYPE; v_sortkey forums_messages.tree_sortkey%TYPE; BEGIN @@ -137,26 +139,26 @@ update forums_messages set open_p=''f'' where message_id= p_message_id; - return 0; + return 0; END; ' language 'plpgsql'; create function forums_message__delete (integer) returns integer as ' DECLARE - p_message_id alias for $1; + p_message_id alias for $1; BEGIN - perform acs_object__delete(p_message_id); - return 0; + perform acs_object__delete(p_message_id); + return 0; END; ' language 'plpgsql'; create function forums_message__delete_thread (integer) returns integer as ' DECLARE - p_message_id alias for $1; + p_message_id alias for $1; v_forum_id forums_messages.forum_id%TYPE; v_sortkey forums_messages.tree_sortkey%TYPE; v_message RECORD; @@ -185,8 +187,15 @@ -- delete the message itself perform forums_message.delete(p_message_id); - return 0; + return 0; END; ' language 'plpgsql'; - +create function forums_message__name (integer) +returns varchar as ' +DECLARE + p_message_id alias for $1; +BEGIN + return subject from forums_messages where message_id = p_message_id; +END; +' language 'plpgsql'; Index: openacs-4/packages/forums/tcl/messages-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/forums/tcl/messages-procs.tcl 3 Jun 2002 07:59:39 -0000 1.5 +++ openacs-4/packages/forums/tcl/messages-procs.tcl 3 Jun 2002 23:58:45 -0000 1.6 @@ -57,7 +57,7 @@ append new_content "Thread: $message(root_subject)
\n" append new_content "Author: $message(user_name)
\n" append new_content "Posted: $message(posting_date)
" - append new_content "\n

\n" + append new_content "\n
\n" append new_content $message(content) # send text for now.