diff options
| author | Mark Wells <mark@freeside.biz> | 2016-07-21 19:57:31 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2016-07-22 09:44:13 -0700 |
| commit | 61eae331f47a5482f7e1ee8dfa6c5c0b4461f32e (patch) | |
| tree | 78a0a7190314a96410e1020e20ed04d65f8be5b3 | |
| parent | 3694d0f6d331847947a72e26b1778b7f19d73cad (diff) | |
set card types in a queued job to avoid excessive upgrade time, #71291
| -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 4f26e8c6f..5f7ce3550 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) { |