Index: openacs-4/contrib/packages/project-manager/www/task-add-edit-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit-3.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/contrib/packages/project-manager/www/task-add-edit-3.tcl	11 Nov 2004 00:24:26 -0000	1.1.2.3
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit-3.tcl	19 Nov 2004 22:43:22 -0000	1.1.2.4
@@ -119,24 +119,26 @@
 
     foreach num $number {
 
-        # add comment to task
-        pm::util::general_comment_add \
-            -object_id $task_item_id($num) \
-            -title [pm::task::name -task_item_id $task_item_id($num)] \
-            -comment $comments($num) \
-            -mime_type $comments_mime_type($num) \
-            -user_id $user_id \
-            -peeraddr $peeraddr \
-            -type "task" \
-            -send_email_p f
-        
-        if {[string is true $send_email_p]} {
-            # send email notification
-            pm::task::email_alert \
-                -task_item_id $task_item_id($num) \
-                -edit_p $edit_p \
+        if {[exists_and_not_null comments($num)]} {
+            # add comment to task
+            pm::util::general_comment_add \
+                -object_id $task_item_id($num) \
+                -title [pm::task::name -task_item_id $task_item_id($num)] \
                 -comment $comments($num) \
-                -comment_mime_type $comments_mime_type($num)
+                -mime_type $comments_mime_type($num) \
+                -user_id $user_id \
+                -peeraddr $peeraddr \
+                -type "task" \
+                -send_email_p f
+        
+            if {[string is true $send_email_p]} {
+                # send email notification
+                pm::task::email_alert \
+                    -task_item_id $task_item_id($num) \
+                    -edit_p $edit_p \
+                    -comment $comments($num) \
+                    -comment_mime_type $comments_mime_type($num)
+            }
         }
     }
 } else {