use SL::Auth;
use SL::DBConnect;
use SL::Form;
+use SL::InstanceConfiguration;
use SL::LXDebug;
use SL::Layout::None;
use SL::LxOfficeConf;
$::form = Form->new;
$::auth = SL::Auth->new(unit_tests_database => 1);
$::locale = Locale->new('de');
+ $::instance_conf = SL::InstanceConfiguration->new;
$db_cfg = $::lx_office_conf{'testing/database'};
}
dbh_do($dbh, $sth, bind => [ $_, $config{$_} ]) for sort keys %config;
$sth->finish;
- my $sth = $dbh->prepare(qq|INSERT INTO auth.group_rights (group_id, "right", granted) VALUES (1, ?, TRUE)|) || BAIL_OUT($dbh->errstr);
+ $sth = $dbh->prepare(qq|INSERT INTO auth.group_rights (group_id, "right", granted) VALUES (1, ?, TRUE)|) || BAIL_OUT($dbh->errstr);
dbh_do($dbh, $sth, bind => [ $_ ]) for sort $::auth->all_rights;
$sth->finish;