diff options
Diffstat (limited to 'FS/FS/cdr.pm')
-rw-r--r-- | FS/FS/cdr.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index 844b7fd..f545632 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -1877,9 +1877,12 @@ sub process_batch_import { # # Used by FS::Upgrade to migrate to a new database. +use FS::upgrade_journal; sub _upgrade_data { my ($class, %opts) = @_; + return if FS::upgrade_journal->is_done('cdr_cdrbatchnum'); + warn "$me upgrading $class\n" if $DEBUG; my $sth = dbh->prepare( @@ -1907,6 +1910,8 @@ sub _upgrade_data { $sth->execute($cdrbatchnum{$cdrbatch}, $cdrbatch) or die $sth->errstr; } + FS::upgrade_journal->set_done('cdr_cdrbatchnum'); + } =item ip_addr_sql FIELD RANGE |