indicate whether a bug is archived or not in status

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index b8ed82b719265655221c3cd12c039d9b45d697aa..e57a852e13ac1b3b74eeecc697080b3450497fce 100644 (file)
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -249,6 +249,7 @@ sub read_bug{
     # Add log last modified time
     $data{log_modified} = (stat($log))[9];
     $data{location} = $location;
+    $data{archived} = $location eq 'archive';
     $data{bug_num} = $param{bug};
 
     return \%data;