[freeside-commits] freeside/FS/FS Upgrade.pm,1.1.2.13,1.1.2.14

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv16046

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	Upgrade.pm 
Log Message:
report errors connecting to sqlradius dbs on upgrade

Index: Upgrade.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Upgrade.pm,v
retrieving revision 1.1.2.13
retrieving revision 1.1.2.14
diff -u -d -r1.1.2.13 -r1.1.2.14
--- Upgrade.pm	25 Jun 2008 18:14:51 -0000	1.1.2.13
+++ Upgrade.pm	15 Jul 2008 23:17:31 -0000	1.1.2.14
@@ -122,6 +122,12 @@
       { PrintError => 0, PrintWarn => 0 }
     );
 
+    unless $dbh {
+      warn "can't connect to RADIUS database ".
+           $part_export->option('datasrc').  ": $DBI::errstr\n";
+      next;
+    }
+
     my $errmsg = 'Error adding FreesideStatus to '.
                  $part_export->option('datasrc'). ': ';