diff options
author | Ivan Kohler <ivan@freeside.biz> | 2018-02-09 18:55:03 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2018-02-09 18:55:03 -0800 |
commit | 71afcc9bb311f5b200555392bd4a6c80aaa0f6d5 (patch) | |
tree | 803109f7348d59592a01fb0aeb57efd24a8a5e56 /FS/FS/cdr.pm | |
parent | b4fa2aa2f73721c6f2c467c73b25e20f59cb04ea (diff) |
journal cdrbatch -> cdrbatchnum upgrade
Diffstat (limited to 'FS/FS/cdr.pm')
-rw-r--r-- | FS/FS/cdr.pm | 37 |
1 files changed, 2 insertions, 35 deletions
diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index a7d0028..4fa3606 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -172,6 +172,8 @@ following fields are currently supported: =item cdrbatch +=item cdrbatchnum + =item detailnum - Link to invoice detail (L<FS::cust_bill_pkg_detail>) =back @@ -1865,41 +1867,6 @@ sub process_batch_import { # @columns = map { s/^ +//; $_; } @columns; # } -# _ upgrade_data -# -# Used by FS::Upgrade to migrate to a new database. - -sub _upgrade_data { - my ($class, %opts) = @_; - - warn "$me upgrading $class\n" if $DEBUG; - - my $sth = dbh->prepare( - 'SELECT DISTINCT(cdrbatch) FROM cdr WHERE cdrbatch IS NOT NULL' - ) or die dbh->errstr; - - $sth->execute or die $sth->errstr; - - my %cdrbatchnum = (); - while (my $row = $sth->fetchrow_arrayref) { - - my $cdr_batch = qsearchs( 'cdr_batch', { 'cdrbatch' => $row->[0] } ); - unless ( $cdr_batch ) { - $cdr_batch = new FS::cdr_batch { 'cdrbatch' => $row->[0] }; - my $error = $cdr_batch->insert; - die $error if $error; - } - - $cdrbatchnum{$row->[0]} = $cdr_batch->cdrbatchnum; - } - - $sth = dbh->prepare('UPDATE cdr SET cdrbatch = NULL, cdrbatchnum = ? WHERE cdrbatch IS NOT NULL AND cdrbatch = ?') or die dbh->errstr; - - foreach my $cdrbatch (keys %cdrbatchnum) { - $sth->execute($cdrbatchnum{$cdrbatch}, $cdrbatch) or die $sth->errstr; - } - -} =item ip_addr_sql FIELD RANGE |