X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FUID.pm;h=dd4850fb285b6bbb4e039799e6c8c5a75f39f19e;hb=c545a57d21341c49674defed65a4243f07b5ebaf;hp=159649a59b6107f3800c55dd4aa3123930a2bd5c;hpb=d52a70ebe76e47d9e1a3036452ff967b7e69303e;p=freeside.git diff --git a/FS/FS/UID.pm b/FS/FS/UID.pm index 159649a59..dd4850fb2 100644 --- a/FS/FS/UID.pm +++ b/FS/FS/UID.pm @@ -108,24 +108,26 @@ sub forksuidsetup { warn "$me forksuidsetup connected to database with handle $dbh\n" if $DEBUG; warn "$me forksuidsetup loading schema\n" if $DEBUG; - use FS::Schema qw(reload_dbdef); + use FS::Schema qw(reload_dbdef dbdef); reload_dbdef("$conf_dir/dbdef.$datasrc") unless $FS::Schema::setup_hack; warn "$me forksuidsetup deciding upon config system to use\n" if $DEBUG; - my $confcount = 0; + if ( ! $FS::Schema::setup_hack && dbdef->table('conf') ) { - my $sth = $dbh->prepare("SELECT COUNT(*) FROM conf"); - if ( $sth ) { + my $sth = $dbh->prepare("SELECT COUNT(*) FROM conf") or die $dbh->errstr; $sth->execute or die $sth->errstr; - $confcount = $sth->fetchrow_arrayref->[0]; - } + my $confcount = $sth->fetchrow_arrayref->[0]; + + if ($confcount) { + $use_confcompat = 0; + }else{ + warn "NO CONFIGURATION RECORDS FOUND"; + } - if ($confcount) { - $use_confcompat = 0; - }else{ - warn "NO CONFIGURATION RECORDS FOUND"; + } else { + warn "NO CONFIGURATION TABLE FOUND"; } unless ( $callback_hack ) {