Select Code to Download

its in a.pm
sub db_connect {
...
ECT})];
        return new app::DB($ca,$eh);
}

sub db_connect {
        my $self = shift;
...
        $database .= substr($self->tag('sys_runmode'),0,1);
        return new app::DB (["dbi:Oracle:$database", $proj, $proj . le
+ngth($proj)], @_);
}