1 files changed, 0 insertions, 88 deletions
diff --git a/bin/reset-cust_credit-otaker b/bin/reset-cust_credit-otaker
deleted file mode 100755
index 93002d05a..000000000
--- a/bin/reset-cust_credit-otaker
+++ /dev/null
@@ -1,88 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use vars qw($opt_d);
-use Getopt::Std;
-use FS::UID qw(adminsuidsetup);
-use FS::Record qw(qsearch qsearchs);
-use FS::cust_credit;
-use FS::h_cust_credit;
-
-getopts('d:');
-
-my $user = shift or die &usage;
-adminsuidsetup $user;
-
-die &usage
-  unless ($opt_d);
-
-$FS::Record::nowarn_identical = 1;
-
-if ( $opt_d ) {
-  $opt_d =~ /^(\d+)$/ or die "invalid date";
-} else {
-  die "no date specified\n";
-}
-
-my @cust_credit = qsearch('cust_credit', { otaker => $user } );
-die "no credits found\n" unless @cust_credit;
-
-my $cust_credit = new FS::cust_credit;
-my @fields = grep { $_ !~ /^otaker|reason|reasonnum$/ } $cust_credit->fields;
-
-foreach my $cust_credit ( @cust_credit ) {
-  my %hash = $cust_credit->hash;
-  foreach (qw(otaker reason reasonnum)) {
-    delete $hash{$_};
-  }
-  $hash{'history_action'} = 'replace_old';
-  my $h_cust_credit =
-    qsearchs({ 'table'     => 'h_cust_credit',
-               'hashref'   => \%hash,
-               'select'    => '*',
-               'extra_sql' =>  " AND history_date <= $opt_d",
-               'order_by'  =>  'ORDER BY history_date DESC LIMIT 1',
-            });
-  if ($h_cust_credit) {
-    $cust_credit->otaker($h_cust_credit->otaker);
-    my $reason = $h_cust_credit->getfield('reason');
-    if ($reason =~ /^\s*$/) {
-      $reason = '(none)';
-    }
-    $cust_credit->otaker($h_cust_credit->otaker);
-    $cust_credit->reason($reason);
-    my $error = $cust_credit->replace
-      if $cust_credit->modified;     
-    die "error replacing cust_credit: $error\n"
-      if $error;
-  }else{
-    warn "Skipping credit.crednum ". $cust_credit->crednum;
-  }
-}
-
-sub usage {
-  die "Usage:\n\n  reset-cust_credit-otaker -d epoch_date user\n";
-}
-
-=head1 NAME
-
-reset-cust_credit-otaker - Command line tool to reset the otaker column for cust_credits to a previous value 
-
-=head1 SYNOPSIS
-
-  reset-cust_credit-otaker -d epoch_date user
-
-=head1 DESCRIPTION
-
-  Sets the otaker column of the cust_credit records specified by user and
-  datespec to the value just prior to datespec.  
-
-  The reasonnum of the cust_credit record is also set to reason record
-  which matches the reason specified in the history.
-
-=head1 SEE ALSO
-
-L<FS::cust_credit>, L<FS::h_cust_credit>;
-
-=cut
-