X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FUpgrade.pm;h=aa77ce5ed71b6e8358a726fc4602e16eca1bb4b6;hb=e1198f135f43ab607544790af6ad64320d1759cf;hp=8597b9d6b44c0f635b4a674e70ca98c962947be9;hpb=7c47d95403d8ff9a93848a6ad9de9dcedca84bde;p=freeside.git diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index 8597b9d6b..aa77ce5ed 100644 --- a/FS/FS/Upgrade.pm +++ b/FS/FS/Upgrade.pm @@ -60,7 +60,7 @@ sub upgrade { $class->_upgrade_data(%opt); if ( $oldAutoCommit ) { - warn " committing"; + warn " committing\n"; dbh->commit or die dbh->errstr; } @@ -154,6 +154,9 @@ sub upgrade_data { 'cust_refund' => [], 'banned_pay' => [], + #default namespace + 'payment_gateway' => [], + ; \%hash; @@ -209,21 +212,26 @@ sub upgrade_sqlradius { if ( $sth_index ) { unless ( $sth_index->execute ) { my $error = $sth_index->errstr; - warn $errmsg.$error unless $error =~ /Duplicate key name/i; + warn $errmsg.$error + unless $error =~ /Duplicate key name/i #mysql + || $error =~ /relation "freesidestatus" already exists/i; #Pg } } else { my $error = $dbh->errstr; - warn $errmsg.$error; #unless $error =~ /exists/i; + warn $errmsg.$error. ' (preparing statement)';#unless $error =~ /exists/i; } + my $times = ($dbh->{Driver}->{Name} =~ /^mysql/) + ? ' AcctStartTime != 0 AND AcctStopTime != 0 ' + : ' AcctStartTime IS NOT NULL AND AcctStopTime IS NOT NULL '; + my $sth = $dbh->prepare("SELECT UserName, Realm, $str2time max(AcctStartTime)), $str2time max(AcctStopTime)) FROM radacct WHERE FreesideStatus = 'done' - AND AcctStartTime != 0 - AND AcctStopTime != 0 + AND $times GROUP BY $group ") or die $errmsg.$dbh->errstr;