Index: openacs-4/contrib/packages/project-manager/www/comments/add.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/comments/Attic/add.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/project-manager/www/comments/add.adp	10 Jun 2004 20:24:05 -0000	1.1
@@ -0,0 +1,5 @@
+<master>
+  <property name="title">@title@</property>
+  <property name="context">@context@</property>
+  
+<formtemplate id="comment"></formtemplate>
Index: openacs-4/contrib/packages/project-manager/www/comments/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/comments/Attic/add.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/contrib/packages/project-manager/www/comments/add.tcl	10 Jun 2004 20:24:05 -0000	1.1
@@ -0,0 +1,78 @@
+# /packages/project-manager/www/comments/add.tcl
+
+ad_page_contract {
+    
+    Adds a general comment to a project or task
+    
+    @author Jade Rubick (jader@bread.com)
+    @creation-date 2004-06-09
+    @arch-tag: 7448d185-3d5c-43f2-853e-de7c929c4526
+    @cvs-id $Id: add.tcl,v 1.1 2004/06/10 20:24:05 jader Exp $
+} {
+    object_id:integer,notnull
+    title:notnull
+    return_url:notnull
+    {type "task"}
+    {description:html ""}
+} -properties {
+} -validate {
+} -errors {
+}
+
+set display_title "Add a comment to: $title"
+set context [list "$display_title"]
+
+
+ad_form -name comment \
+    -form {
+        acs_object_id_seq:key
+
+        {object_id:text(hidden)
+            {value $object_id}
+        }
+
+        {return_url:text(hidden)
+            {value "$return_url"}
+        }
+
+        {type:text(hidden)
+            {value "$type"}
+        }
+
+        {title:text
+            {label "Title"}
+            {html {size 50}}
+        }
+        
+        {description:richtext(richtext),optional
+            {label "Comment"}
+            {html { rows 9 cols 40 wrap soft}}}
+        
+        {send_email_p:text(select),optional
+            {label "Send email?"}
+            {options {{"Yes" "t"} {"No" "f"}}}
+        }
+        
+    } -new_request {
+        
+        set description [template::util::richtext::create "" {}]
+    
+    } -on_submit {
+        
+        # insert the comment into the database
+        set description_body [template::util::richtext::get_property contents $description]
+        set description_format [template::util::richtext::get_property format $description]
+
+        pm::util::general_comment_add \
+            -object_id $object_id \
+            -title "$title" \
+            -comment "$description_body" \
+            -mime_type "$description_format" \
+            -send_email_p $send_email_p \
+            -type $type
+
+        # does not seem to be working for some reason
+        util_user_message -message "Comment: [ad_quotehtml $title] saved"
+        ad_returnredirect $return_url 
+    }
+