From a56dfd870271c1aa46516ced24f5b2b2667024e5 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@rietz>
Date: Wed, 7 Mar 2007 13:53:00 +0000
Subject: [PATCH] Pull in more of the logic from debbugs. Still not working.

---
 scanlib.pm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/scanlib.pm b/scanlib.pm
index 460e269..1550007 100644
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -371,15 +371,30 @@ my $_version_cache = {};
 sub get_status() {
 	my ($bugnr, $bug, $dist) = @_;
 
+	my $status = 'pending';
+
 	my @versions = Debbugs::Status::getversions($bug->{'package'}, $dist, undef);
 	my @sourceversions = Debbugs::Status::makesourceversions($bug->{'package'}, undef, @versions);
 
-	return Debbugs::Status::max_buggy(bug => $bugnr,
+	if (@sourceversions) {
+		my $max_buggy = Debbugs::Status::max_buggy(bug => $bugnr,
 			 sourceversions => \@sourceversions,
 		 	 found => $bug->{'found_versions'},
 		 	 fixed => $bug->{'fixed_versions'},
 			 version_cache => $_version_cache,
 			 package => $bug->{'package'});
+		if ($max_buggy eq 'absent') {
+			$status = 'absent';
+		} elsif ($max_buggy eq 'fixed') {
+			$status = 'done';
+		}
+	}
+	if (length($bug{'done'}) and
+	    (not @sourceversions or not @{$status{'fixed_versions'}})) {
+		$status = 'done';
+	}
+
+	return $status;
 }
 
 sub check_worry {
-- 
2.39.2