diff options
author | ivan <ivan> | 2008-05-30 01:34:29 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-05-30 01:34:29 +0000 |
commit | 015f6132d77de12b17c713254900e2a5e8a3a8a0 (patch) | |
tree | 6e75a9addfcb61f6b4b98215256428e730ef9ca8 | |
parent | f3c456bae0314d53900bce1e2c512e8c55667dc4 (diff) |
don't print out warnings about SQL RADIUS FreesideStatus every time either. really?
-rw-r--r-- | FS/FS/Upgrade.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index 8f3a6e571..c2236742a 100644 --- a/FS/FS/Upgrade.pm +++ b/FS/FS/Upgrade.pm @@ -117,8 +117,10 @@ sub upgrade_sqlradius { my @part_export = FS::part_export::sqlradius->all_sqlradius_withaccounting(); foreach my $part_export ( @part_export ) { - my $dbh = DBI->connect( map $part_export->option($_), - qw ( datasrc username password ) ); + my $dbh = DBI->connect( + ( map $part_export->option($_), qw ( datasrc username password ) ), + { PrintError => 0, PrintWarn => 0 } + ); my $str2time = str2time_sql( $dbh->{Driver}->{Name} ); my $group = "UserName"; |