Index: openacs-4/contrib/obsolete-packages/bboard/www/message-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/bboard/www/message-edit.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/obsolete-packages/bboard/www/message-edit.tcl	28 Aug 2003 09:41:47 -0000	1.6
@@ -0,0 +1,82 @@
+ad_page_contract {
+    
+    A form for editing a message
+
+    @author John Prevost <jmp@arsdigita.com>
+    @creation-datee 2000-09-08
+    @cvs-id $Id: message-edit.tcl,v 1.6 2003/08/28 09:41:47 lars Exp $
+
+    @param message_id The message to edit
+
+} {
+    message_id:integer,notnull,acs_message_id
+    forum_id:integer,notnull,bboard_forum_id
+} -properties { 
+    context:onevalue
+    forum_id:onevalue
+    forum_name:onevalue
+    categories:multirow
+    category_id:onevalue
+    reply_to:onevalue
+    quote:onerow
+    has_quote:onevalue
+    page_title:onevalue
+    target:onevalue
+    title:onevalue
+    content:onevalue
+    submit_label:onevalue
+    message_id:onevalue
+    msg_mime_type:onevalue
+}
+
+ad_require_permission $message_id bboard_write_message
+
+db_1row message_info {
+    select message_id, reply_to, title, mime_type, content
+        from acs_messages_all m
+        where message_id = :message_id
+}
+
+set msg_mime_type $mime_type
+
+set category_id ""
+
+db_0or1row first_category {
+    select min(category_id) as category_id from bboard_category_message_map
+        where message_id = :message_id
+        group by message_id
+}
+
+db_1row forum_short_name {
+    select short_name as forum_name from bboard_forums
+      where forum_id = :forum_id
+}
+
+set page_title "Edit a Message in $forum_name"
+
+set target "message-edit-2"
+set submit_label "Confirm Changes"
+
+set context	[list [list "forum?[export_url_vars forum_id]" $forum_name] \
+             "Edit a Message"]
+
+set user_id [ad_verify_and_get_user_id]
+
+set category_pulldown_list ""
+
+db_0or1row quote_info {
+    select m.reply_to, m.title, m.sent_date,
+           m.mime_type, m.content, 
+           p.first_names||' '||p.last_name as full_name
+      from acs_messages_all m, persons p
+      where message_id = :reply_to
+        and person_id = sender
+} -column_array quote
+
+db_multirow categories category_list {
+    select c.category_id, c.short_name
+      from bboard_categories c
+      where forum_id = :forum_id
+}
+
+ad_return_template "message-entry"