diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-06-02 00:39:05 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-06-02 00:39:05 -0700 |
| commit | aa1210004d3249eb1c9616f748b97f2ce91de9ae (patch) | |
| tree | 744d9f608ef97c1d4679943c36c8bad1314b3f48 | |
| parent | bfd4099ae2a262e4f31e42f498f85b374ef33c36 (diff) | |
time parts of cust_main upgrade, RT#17629
| -rw-r--r-- | FS/FS/cust_main.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index d4ddacc23..d18ec1cc7 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -5057,9 +5057,12 @@ sub _upgrade_data { #class method #DCRD to be safe "UPDATE cust_main SET payby = 'DCRD' WHERE payby = 'BILL' and length(payinfo) = 16 and payinfo ". regexp_sql. q( '^[0-9]*$' ); + my $t = time; foreach my $sql ( @statements ) { my $sth = dbh->prepare($sql) or die dbh->errstr; $sth->execute or die $sth->errstr; + warn (time - $t). " seconds\n"; + $t = time; } local($ignore_expired_card) = 1; |