diff options
Diffstat (limited to 'rt/lib/RT/Handle.pm')
| -rw-r--r-- | rt/lib/RT/Handle.pm | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/rt/lib/RT/Handle.pm b/rt/lib/RT/Handle.pm index e60bbd924..5cdb65e5b 100644 --- a/rt/lib/RT/Handle.pm +++ b/rt/lib/RT/Handle.pm @@ -58,17 +58,15 @@ Takes nothing. Calls SUPER::Connect with the needed args =cut sub Connect { - my $self = shift; - - if ( $RT::DatabaseType eq 'Oracle' ) { - $ENV{'NLS_LANG'} = ".UTF8"; - } +my $self=shift; - $self->SUPER::Connect( User => $RT::DatabaseUser, - Password => $RT::DatabasePassword, ); - - $self->dbh->{LongReadLen} = $RT::MaxAttachmentSize; +# Unless the database port is a positive integer, we really don't want to pass it. +$self->SUPER::Connect( + User => $RT::DatabaseUser, + Password => $RT::DatabasePassword, + ); + } =item BuildDSN @@ -81,11 +79,9 @@ from the config file. sub BuildDSN { my $self = shift; -# Unless the database port is a positive integer, we really don't want to pass it. $RT::DatabasePort = undef unless (defined $RT::DatabasePort && $RT::DatabasePort =~ /^(\d+)$/); $RT::DatabaseHost = undef unless (defined $RT::DatabaseHost && $RT::DatabaseHost ne ''); - $self->SUPER::BuildDSN(Host => $RT::DatabaseHost, Database => $RT::DatabaseName, Port => $RT::DatabasePort, |