diff options
author | Mark Wells <mark@freeside.biz> | 2016-07-21 19:57:31 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2016-07-21 19:57:31 -0700 |
commit | 963f05981025f647b8f9f924e668ae02f8671c58 (patch) | |
tree | 5c91eef69b7ac4ff2d04af605e66b74347ae24fb /FS/FS/payinfo_Mixin.pm | |
parent | de94cc4c6e81d762f22e4abb619452d4f13eb944 (diff) |
set card types in a queued job to avoid excessive upgrade time, #71291
Diffstat (limited to 'FS/FS/payinfo_Mixin.pm')
-rw-r--r-- | FS/FS/payinfo_Mixin.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/FS/FS/payinfo_Mixin.pm b/FS/FS/payinfo_Mixin.pm index 4f26e8c..5f7ce35 100644 --- a/FS/FS/payinfo_Mixin.pm +++ b/FS/FS/payinfo_Mixin.pm @@ -420,15 +420,30 @@ sub paydate_epoch_sql { Find all records with a credit card payment type and no paycardtype, and replace them in order to set their paycardtype. +This method actually just starts a queue job. + =cut sub upgrade_set_cardtype { my $class = shift; + my $table = $class->table or die "upgrade_set_cardtype needs a table"; + + if ( ! FS::upgrade_journal->is_done("${table}__set_cardtype") ) { + my $job = FS::queue->new({ job => 'FS::payinfo_Mixin::process_set_cardtype' }); + my $error = $job->insert($table); + die $error if $error; + FS::upgrade_journal->set_done("${table}__set_cardtype"); + } +} + +sub process_set_cardtype { + my $table = shift; + # assign cardtypes to CARD/DCRDs that need them; check_payinfo_cardtype # will do this. ignore any problems with the cards. local $ignore_masked_payinfo = 1; my $search = FS::Cursor->new({ - table => $class->table, + table => $table, extra_sql => q[ WHERE payby IN('CARD','DCRD') AND paycardtype IS NULL ], }); while (my $record = $search->fetch) { |