[project @ 2000-05-01 07:13:07 by doogie]

Modified GetBugList() to support listing bugs in the archive dir, as well.

diff --git a/Debbugs/DBase.pm b/Debbugs/DBase.pm
index 3dbf39504c2b64c058784a16b6d44a7f72783efa..a86895ace58a750dc7b0727769a7640847f1d11d 100644 (file)
--- 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) {