scrub agent payment gateways

[freeside.git] / bin / test_scrub

diff --git a/bin/test_scrub b/bin/test_scrub
old mode 100644 (file)
new mode 100755 (executable)
index e39a28a..ecb7229
--- a/bin/test_scrub
+++ b/bin/test_scrub
@@ -24,9 +24,9 @@ getopts('h');
 adminsuidsetup shift;
 
 foreach my $table (qw(
-  part_export
-  part_export_option
   export_svc
+  part_export_option
+  part_export
   payment_gateway
   payment_gateway_option
   agent_payment_gateway
@@ -43,7 +43,7 @@ my $dsth = dbh->prepare("DELETE FROM cust_main_invoice WHERE dest != 'POST'")
   or die dbh->errstr;
 $dsth->execute or die $dsth->errstr;
 
-foreach my $table (qw( cust_main
+foreach my $table (qw( cust_main cust_payby
                        cust_pay_pending cust_pay cust_pay_void cust_pay_batch
                        cust_refund
 )) {