Index: openacs.org-dev/packages/bug-tracker/www/bug-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/bug-tracker/www/bug-add.tcl,v diff -u -r1.2 -r1.3 --- openacs.org-dev/packages/bug-tracker/www/bug-add.tcl 5 Nov 2002 17:36:48 -0000 1.2 +++ openacs.org-dev/packages/bug-tracker/www/bug-add.tcl 4 Dec 2002 16:13:28 -0000 1.3 @@ -8,6 +8,7 @@ cancel:optional {component_id ""} {return_url ""} + {version ""} } if { [empty_string_p $return_url] } { @@ -108,8 +109,8 @@ element set_properties bug bug_id -value [db_nextval "acs_object_id_seq"] element set_properties bug found_in_version \ - -value [bug_tracker::conn user_version_id] - + -value [bug_tracker::conn user_version_id] + element set_properties bug severity -value [bug_tracker::severity_get_default] element set_properties bug priority -value [bug_tracker::priority_get_default]