From 75b283adaaf7d38a9d6729c57146043df1a9363d Mon Sep 17 00:00:00 2001 From: dbs Date: Thu, 1 Nov 2007 22:50:03 +0000 Subject: [PATCH] Backport fix from trunk: Warn that is deprecated for the reporter section in opensrf.xml git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2@7964 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/reporter/clark-kent.pl | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/reporter/clark-kent.pl b/Open-ILS/src/reporter/clark-kent.pl index 047a2ef448..3f7e7d54ea 100755 --- a/Open-ILS/src/reporter/clark-kent.pl +++ b/Open-ILS/src/reporter/clark-kent.pl @@ -50,7 +50,11 @@ my $sc = OpenSRF::Utils::SettingsClient->new; my $db_driver = $sc->config_value( reporter => setup => database => 'driver' ); my $db_host = $sc->config_value( reporter => setup => database => 'host' ); my $db_port = $sc->config_value( reporter => setup => database => 'port' ); -my $db_name = $sc->config_value( reporter => setup => database => 'name' ); +my $db_name = $sc->config_value( reporter => setup => database => 'db' ); +if (!$db_name) { + $db_name = $sc->config_value( reporter => setup => database => 'name' ); + print STDERR "WARN: is a deprecated setting for database name. For future compatibility, you should use instead." if $db_name; +} my $db_user = $sc->config_value( reporter => setup => database => 'user' ); my $db_pw = $sc->config_value( reporter => setup => database => 'password' ); -- 2.11.0