Index: openacs-4/packages/bug-tracker/www/bug-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/www/bug-add.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bug-tracker/www/bug-add.tcl	28 Aug 2002 15:44:18 -0000	1.3
+++ openacs-4/packages/bug-tracker/www/bug-add.tcl	29 Aug 2002 15:15:12 -0000	1.4
@@ -6,9 +6,17 @@
     @cvs-id $Id$
 } {
     cancel:optional
+    component_id:optional
     {return_url ""}
 }
 
+if { [empty_string_p $return_url] } {
+    set return_url "."
+    if { [info exists component_id] } {
+        append return_url "?[export_vars { component_id }]"
+    }
+}
+
 # If the user hit cancel, ignore everything else
 if { [exists_and_not_null cancel] } {
     ad_returnredirect $return_url
@@ -107,6 +115,10 @@
     
     element set_properties bug severity -value [bug_tracker::severity_get_default]
     element set_properties bug priority -value [bug_tracker::priority_get_default]
+    
+    if { [info exists component_id] } {
+        element set_properties bug component_id -value $component_id
+    }
 
     element set_properties bug desc_format -value "plain"
 
@@ -117,15 +129,7 @@
 
     db_transaction {
 
-        set bug_id [element::get_value bug bug_id]
-        set component_id [element::get_value bug component_id]
-        set bug_type [element::get_value bug bug_type]
-        set severity [element::get_value bug severity]
-        set priority [element::get_value bug priority]
-        set found_in_version [element::get_value bug found_in_version]
-        set summary [element::get_value bug summary]
-        set description [element::get_value bug description]
-        set desc_format [element::get_value bug desc_format]
+        form get_values bug bug_id component_id bug_type severity priority found_in_version summary description desc_format
         
         set ip_address [ns_conn peeraddr]
         set user_agent [ns_set get [ns_conn headers] "User-Agent"]