its in a.pm
sub db_connect {
        my ($eh) = @_;
        my $mode = _mode();
        my $ca = ["dbi:Oracle:irsdb$mode",$ENV{HTTP_IRIPROJECT},$ENV{HTTP_IRIPROJECT} . length($ENV{HTTP_IRIPROJ
ECT})];
        return new app::DB($ca,$eh);
}

##</code><code>##

sub db_connect {
        my $self = shift;
        my $proj = $self->tag('sys_projectname');

        my $database = 'irsdb';
        if ($self->tag('sys_insiterootdir') =~ /insite/) {
                $database = 'instedb'
        }

        $database .= substr($self->tag('sys_runmode'),0,1);
        return new app::DB (["dbi:Oracle:$database", $proj, $proj . length($proj)], @_);
}