Comment 15 for bug 2015484

I just looked through Galen's patch to see what might have changed when using the --descendant option.

I wonder if the problem is with this line that was removed.
my @ids = map {$_->[0]} @{$r};

and changed to this when --exclude-hidden isn't used.
@ids = map {$_->[0]} grep @{$r};

- my @ids = map {$_->[0]} @{$r};
+ my @ids = ();
+ if ($Marque::config->option_value('exclude-hidden')) {
+ @ids = map {$_->[0]} grep {$_->[1]} @{$r};
+ } else {
+ @ids = map {$_->[0]} grep @{$r};
+ }

Removing that errant grep does seem to fix it for me.

Before change -
marc_export --descendants ADA > adatest.marc
Resulted in 223718 records exported.

After change
marc_export --descendants ADA > adatest2.marc
resulted in 8311 records exported.

Which is much closer to reasonable for a small branch like ADA.