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)], @_); }