From 21ddca3ed71ca7c83305c9801ac6cb928562b1ec Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Mon, 1 May 2000 06:13:07 -0800
Subject: [PATCH] [project @ 2000-05-01 07:13:07 by doogie] Modified
 GetBugList() to support listing bugs in the archive dir, as well.

---
 Debbugs/DBase.pm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/Debbugs/DBase.pm b/Debbugs/DBase.pm
index 3dbf395..a86895a 100644
--- a/Debbugs/DBase.pm
+++ b/Debbugs/DBase.pm
@@ -171,8 +171,14 @@ sub GetBugList
 #
     my $dir = new FileHandle;
 
+    my $prefix = $Globals{ "work-dir" };
+    if ( defined($_[0]) ) {
+	$prefix .= "/" . $_[0] . "/";
+    } else {
+	$prefix .= "/" . "db" . "/";
+    }
     my @ret;
-    opendir $dir, $Globals{ "work-dir" } . "/db";
+    opendir $dir, $prefix;
     my @files = readdir($dir);
     closedir $dir;
     foreach (grep { /\d*\d\d.status/ } @files) {
@@ -182,17 +188,17 @@ sub GetBugList
     }
     foreach (grep { /^[s0-9]$/ } @files) {
 	my $_1 = $_;
-	opendir $dir, $Globals{ "work-dir" } . "/db/".$_1;
+	opendir $dir, $prefix . $_1;
 	@files = grep { /^\d$/ } readdir($dir);
 	closedir $dir;
 	foreach (@files) {
 	    my $_2 = $_;
-	    opendir $dir, $Globals{ "work-dir" } . "/db/".$_1."/".$_2;
+	    opendir $dir, $prefix . $_1 . "/" .$_2;
 	    @files = grep { /^\d$/ } readdir($dir);
 	    close $dir;
 	    foreach (@files) {
 		my $_3 = $_;
-		opendir $dir, $Globals{ "work-dir" } . "/db/".$_1."/".$_2."/".$_3;
+		opendir $dir, $prefix . $_1 . "/" . $_2 . "/" .$_3;
 		@files = grep { /\d*\d\d.status/ } readdir($dir);
 		close $dir;
 		foreach (@files) {
-- 
2.39.2