diff options
| author | ivan <ivan> | 2001-09-06 20:42:00 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-09-06 20:42:00 +0000 |
| commit | 57d69d5c1f98f778a0df82795ce21ee7bd21042a (patch) | |
| tree | 63f890cf25311b66c712933c84f64e43718039cd /bin/fs-migrate-payref | |
| parent | db1b6ebfe35aba1f4d2580b13a0a74ac317784ba (diff) | |
finally fix part_svc!!!
Diffstat (limited to 'bin/fs-migrate-payref')
| -rwxr-xr-x | bin/fs-migrate-payref | 7 |
1 files changed, 4 insertions, 3 deletions
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"; +} + |