From 28c934eae944228eb05f4d47f651f9506ad9906e Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 27 Feb 2012 17:13:33 -0800
Subject: [PATCH] reopen bugs properly

---
 Debbugs/Control.pm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

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},
-- 
2.39.2