From: ivan Date: Wed, 28 Jul 2010 02:46:39 +0000 (+0000) Subject: fix unnecessary warnings on upgrade of remote Pg RADIUS db, RT#9178 X-Git-Tag: freeside_1_9_5~102 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=cd22a863e9cf3290a5fc83f32b572d0dac8da4e4 fix unnecessary warnings on upgrade of remote Pg RADIUS db, RT#9178 --- diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index 62eda58fa..b5c8ff169 100644 --- a/FS/FS/Upgrade.pm +++ b/FS/FS/Upgrade.pm @@ -196,21 +196,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;