SQL Reports were broken in non-mysql

This commit is contained in:
Graham Knop 2007-10-05 14:46:48 +00:00
parent f170f246c6
commit 37367a6c9f
3 changed files with 22 additions and 4 deletions

View file

@ -266,6 +266,23 @@ sub get {
#-------------------------------------------------------------------
=head2 getDriver ( )
Returns the DBI driver used by this database link
=cut
sub getDriver {
my $self = shift;
my $dsn = $self->get->{DNS};
if ($dsn =~ /^dbi:(\w+):/i) {
return $1;
}
return;
}
#-------------------------------------------------------------------
=head2 getId ( )
Returns the ID of this database link.