--- deliantra/maps/perl/reseller.ext	2006/09/08 16:22:14	1.14
+++ deliantra/maps/perl/reseller.ext	2006/10/27 23:06:36	1.15
@@ -8,8 +8,8 @@
 ); 
 
 my %aliases = (
-   platinum => 'platina',
-   royalties => 'royalty'
+   platinum  => 'platina',
+   royalties => 'royalty',
 );
 
 sub find_rec {
@@ -18,6 +18,7 @@
    my @unpaid;
    for my $i ($ob->inv) {
       push @unpaid, $i if $cb->($i);
+
       push @unpaid, find_unpaid ($i, $cb)
          if $i->inv;
    }