From: Don Armstrong Date: Tue, 28 Feb 2012 01:13:33 +0000 (-0800) Subject: reopen bugs properly X-Git-Tag: release/2.6.0~415^2~3 X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=28c934eae944228eb05f4d47f651f9506ad9906e reopen bugs properly --- diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm index f5ed9be..cec80f9 100644 --- a/Debbugs/Control.pm +++ b/Debbugs/Control.pm @@ -897,6 +897,24 @@ sub set_done { $warn_fixed = 0; } } + $action = "Bug reopened"; + for my $data (@data) { + my $old_data = dclone($data); + $data->{done} = ''; + append_action_to_log(bug => $data->{bug_num}, + command => 'done', + new_data => $data, + old_data => $old_data, + get_lock => 0, + __return_append_to_log_options( + %param, + action => $action, + ), + ) + if not exists $param{append_log} or $param{append_log}; + writebug($data->{bug_num},$data); + } + print {$transcript} "$action\n"; __end_control(%info); if (exists $param{submitter}) { set_submitter(bug => $param{bug}, @@ -1013,6 +1031,7 @@ sub set_done { ); } } + __end_control(%info); if (exists $param{fixed}) { set_fixed(fixed => $param{fixed}, bug => $param{bug},