From 8e21b68d291584fa3c51e82dcc1577dd89142b0c Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Fri, 6 Oct 2006 20:26:03 +0000
Subject: * fixed format of error-message.

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

diff --git a/config-db/OpenSLX/MetaDB/CSV.pm b/config-db/OpenSLX/MetaDB/CSV.pm
index 081b70d9..85be8285 100644
--- a/config-db/OpenSLX/MetaDB/CSV.pm
+++ b/config-db/OpenSLX/MetaDB/CSV.pm
@@ -53,8 +53,8 @@ sub connectConfigDB
 	}
 	vlog 1, "trying to connect to CSV-database <$dbSpec>";
 	eval ('require DBD::CSV; 1;')
-		or die _tr("DBD::CSV doesn't seem to be installed, "
-				   ."so there is no support for CSV available, sorry!\n");
+		or die _tr(qq[%s doesn't seem to be installed,
+so there is no support for %s available, sorry!\n], 'DBI::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 09641c46..059467d8 100644
--- a/config-db/OpenSLX/MetaDB/SQLite.pm
+++ b/config-db/OpenSLX/MetaDB/SQLite.pm
@@ -50,8 +50,8 @@ sub connectConfigDB
 	}
 	vlog 1, "trying to connect to SQLite-database <$dbSpec>";
 	eval ('require DBD::SQLite; 1;')
-		or die _tr("DBD::SQLite doesn't seem to be installed, "
-				   ."so there is no support for SQLite available, sorry!\n");
+		or die _tr(qq[%s doesn't seem to be installed,
+so there is no support for %s available, sorry!\n], 'DBI::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 1974a549..3f42b966 100644
--- a/config-db/OpenSLX/MetaDB/mysql.pm
+++ b/config-db/OpenSLX/MetaDB/mysql.pm
@@ -47,8 +47,8 @@ sub connectConfigDB
 	my $user = (getpwuid($>))[0];
 	vlog 1, "trying to connect user <$user> to mysql-database <$dbSpec>";
 	eval ('require DBD::mysql; 1;')
-		or die _tr("DBD::mysql doesn't seem to be installed, "
-				   ."so there is no support for mysql available, sorry!\n");
+		or die _tr(qq[%s doesn't seem to be installed,
+so there is no support for %s available, sorry!\n], 'DBI::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