From c47c96cb8cc3933353707091cd5ca848ed4892fa Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Fri, 13 Apr 2007 14:18:40 +0000
Subject: * fixed incorrect module names in error message.

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@885 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/OpenSLX/MetaDB/CSV.pm    | 2 +-
 config-db/OpenSLX/MetaDB/SQLite.pm | 2 +-
 config-db/OpenSLX/MetaDB/mysql.pm  | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'config-db')

diff --git a/config-db/OpenSLX/MetaDB/CSV.pm b/config-db/OpenSLX/MetaDB/CSV.pm
index 4057355e..44bd2158 100644
--- a/config-db/OpenSLX/MetaDB/CSV.pm
+++ b/config-db/OpenSLX/MetaDB/CSV.pm
@@ -65,7 +65,7 @@ sub connect
 	vlog 1, "trying to connect to CSV-database <$dbSpec>";
 	eval ('require DBD::CSV; 1;')
 		or die _tr(qq[%s doesn't seem to be installed,
-so there is no support for %s available, sorry!\n], 'DBI::CSV', 'CSV');
+so there is no support for %s available, sorry!\n], 'DBD::CSV', 'CSV');
 	$self->{'dbh'} = DBI->connect("dbi:CSV:$dbSpec", undef, undef,
 								  {PrintError => 0})
 			or confess _tr("Cannot connect to database <%s> (%s)",
diff --git a/config-db/OpenSLX/MetaDB/SQLite.pm b/config-db/OpenSLX/MetaDB/SQLite.pm
index 76aafd14..493f0a0a 100644
--- a/config-db/OpenSLX/MetaDB/SQLite.pm
+++ b/config-db/OpenSLX/MetaDB/SQLite.pm
@@ -58,7 +58,7 @@ sub connect
 	vlog 1, "trying to connect to SQLite-database <$dbSpec>";
 	eval ('require DBD::SQLite; 1;')
 		or die _tr(qq[%s doesn't seem to be installed,
-so there is no support for %s available, sorry!\n], 'DBI::SQLite', 'SQLite');
+so there is no support for %s available, sorry!\n], 'DBD::SQLite', 'SQLite');
 	$self->{'dbh'} = DBI->connect("dbi:SQLite:$dbSpec", undef, undef,
 								  {PrintError => 0, AutoCommit => 1})
 			or confess _tr("Cannot connect to database <%s> (%s)",
diff --git a/config-db/OpenSLX/MetaDB/mysql.pm b/config-db/OpenSLX/MetaDB/mysql.pm
index fee9758d..dcb7ff0e 100644
--- a/config-db/OpenSLX/MetaDB/mysql.pm
+++ b/config-db/OpenSLX/MetaDB/mysql.pm
@@ -55,7 +55,7 @@ sub connect
 	vlog 1, "trying to connect user <$user> to mysql-database <$dbSpec>";
 	eval ('require DBD::mysql; 1;')
 		or die _tr(qq[%s doesn't seem to be installed,
-so there is no support for %s available, sorry!\n], 'DBI::mysql', 'mysql');
+so there is no support for %s available, sorry!\n], 'DBD::mysql', 'mysql');
 	$self->{'dbh'} = DBI->connect("dbi:mysql:$dbSpec", $user, '',
 								  {PrintError => 0})
 			or confess _tr("Cannot connect to database <%s> (%s)",
-- 
cgit v1.2.3-55-g7522