#!/usr/bin/perl

# for development; overrides default 'test' db; called by lims_server.pl

use Config::Auto;

use LIMS::Local::Utils; # use FindBin qw($Bin); # no good for mod_perl

my $path_to_app_root = LIMS::Local::Utils::find_home; # $path_to_app = $Bin/.."

# get development db name from config file:
my $cfg = Config::Auto::parse("$path_to_app_root/config/lims_config.pl", format => 'perl');

LIMS::DB->modify_db(
    database => $cfg->{db}->{development},
);

1;