X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Ffs-migrate-payref;h=158419706b96e161160b630a283e553a1bab3a26;hp=f1513112ba1444aee2b86f11b491ee5455916e08;hb=f5a81134be779b26688d3d4703840f3b038ca2f7;hpb=4f8a0bb6d0c789c7e156a446dc61dbe27938a372 diff --git a/bin/fs-migrate-payref b/bin/fs-migrate-payref index f1513112b..158419706 100755 --- a/bin/fs-migrate-payref +++ b/bin/fs-migrate-payref @@ -9,9 +9,6 @@ use FS::cust_refund; my $user = shift or die &usage; my $dbh = adminsuidsetup $user; -#local $FS::UID::AutoCommit = 0; #quelle hack, in this case -# $FS::UID::AutoCommit = 0; #quelle hack, in this case - # apply payments to invoices foreach my $cust_pay ( qsearch('cust_pay', {} ) ) { @@ -28,3 +25,7 @@ foreach my $cust_refund ( qsearch('cust_refund') ) { # ? apply credits to invoices +sub usage { + die "Usage:\n fs-migrate-payref user\n"; +} +