From 7f9bbe7c83afc8e96ea160610f3a42d522c5da1b Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Sat, 2 Jun 2012 00:39:08 -0700 Subject: [PATCH] time parts of cust_main upgrade, RT#17629 --- FS/FS/cust_main.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index a277282ea..0e40e0887 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -5074,9 +5074,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; -- 2.20.1