Index: openacs-4/packages/bug-tracker/lib/master.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/lib/master.adp,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/bug-tracker/lib/master.adp 11 Jun 2008 15:17:59 -0000 1.12 +++ openacs-4/packages/bug-tracker/lib/master.adp 14 Mar 2011 17:49:35 -0000 1.13 @@ -13,4 +13,4 @@ - + Index: openacs-4/packages/bug-tracker/tcl/bug-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-procs.tcl,v diff -u -N -r1.28 -r1.29 --- openacs-4/packages/bug-tracker/tcl/bug-procs.tcl 17 Jun 2010 18:51:45 -0000 1.28 +++ openacs-4/packages/bug-tracker/tcl/bug-procs.tcl 14 Mar 2011 17:49:35 -0000 1.29 @@ -192,9 +192,13 @@ -comment_mime_type $desc_format \ -user_id $user_id \ -assignment [array get assign_array] \ - -package_id $package_id] + -package_id $package_id] - return $bug_id + if {[lindex [bug_tracker::access_policy] 1] eq "user_bugs"} { + bug_tracker::grant_direct_read_permission -bug_id $bug_id -party_id $user_id + } + + return $bug_id } } 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 -N -r1.16 -r1.17 --- openacs-4/packages/bug-tracker/www/bug-add.tcl 11 Apr 2010 00:38:42 -0000 1.16 +++ openacs-4/packages/bug-tracker/www/bug-add.tcl 14 Mar 2011 17:49:35 -0000 1.17 @@ -100,7 +100,8 @@ -desc_format [template::util::richtext::get_property format $description] \ -keyword_ids $keyword_ids \ -fix_for_version $fix_for_version \ - -assign_to $role_resolver + -assign_to $role_resolver \ + -user_id $user_id } -after_submit { bug_tracker::bugs_exist_p_set_true