Index: openacs-4/packages/bug-tracker/www/bug.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/bug-tracker/www/bug.tcl	11 Jul 2002 08:28:20 -0000	1.2
+++ openacs-4/packages/bug-tracker/www/bug.tcl	28 Aug 2002 11:33:16 -0000	1.3
@@ -8,6 +8,7 @@
     mode:optional
     bug_number:integer,notnull
     edit:optional
+    comment:optional
     resolve:optional
     reopen:optional
     cancel:optional
@@ -27,6 +28,8 @@
 if { ![info exists mode] } {
     if { [exists_and_not_null edit] } {
         set mode "edit"
+    } elseif { [exists_and_not_null comment] } {
+        set mode "comment"
     } elseif { [exists_and_not_null resolve] } {
         set mode "resolve"
     } elseif { [exists_and_not_null reopen] } {
@@ -42,6 +45,9 @@
     edit {
         set edit_fields { component_id bug_type summary severity priority found_in_version assignee fix_for_version resolution fixed_in_version }
     }
+    comment {
+        set edit_fields {}
+    }
     resolve {
         set edit_fields { resolution fixed_in_version }
     }
@@ -172,7 +178,7 @@
         -optional
 
 switch -- $mode {
-    edit - resolve - reopen - close {
+    edit - comment - resolve - reopen - close {
         element create bug description  \
                 -datatype text \
                 -widget comment \
@@ -363,6 +369,7 @@
         set button_form_export_vars [export_vars -form { bug_number }]
         multirow create button name label
         multirow append button "edit" "Edit"
+        multirow append button "comment" "Comment"
         switch -- $bug(status) {
             open {
                 multirow append button "resolve" "Resolve"
@@ -412,9 +419,10 @@
     db_transaction {
         set bug_id [db_string bug_id { select bug_id from bt_bugs where bug_number = :bug_number and project_id = :package_id }]
 
-        db_dml update_bug "update bt_bugs \n set    [join $update_exprs ",\n        "] \n where  bug_id = :bug_id"
+        if { [llength $update_exprs] > 0 } {
+            db_dml update_bug "update bt_bugs \n set    [join $update_exprs ",\n        "] \n where  bug_id = :bug_id"
+        }
 
-
         set action_id [db_nextval "acs_object_id_seq"]
         set user_id [ad_conn user_id]
  
@@ -437,4 +445,3 @@
 }
 
 ad_return_template
-