From: Bill Erickson <berickxx@gmail.com>
Date: Mon, 23 Nov 2015 18:56:36 +0000 (-0500)
Subject: LP#1468422 Admin seed data sets new-style passwd
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3cb50795de44054049611cc570bf87634583079e;p=evergreen%2Fpines.git

LP#1468422 Admin seed data sets new-style passwd

Signed-off-by: Bill Erickson <berickxx@gmail.com>
Signed-off-by: Dan Wells <dbw2@calvin.edu>
---

diff --git a/Open-ILS/src/support-scripts/eg_db_config.in b/Open-ILS/src/support-scripts/eg_db_config.in
index 2d0bd3b050..b59d044b86 100755
--- a/Open-ILS/src/support-scripts/eg_db_config.in
+++ b/Open-ILS/src/support-scripts/eg_db_config.in
@@ -240,7 +240,7 @@ sub set_admin_account {
 	# Create a new salt, perform MD5 hashing, set the new password.
 	$stmt = $dbh->prepare("SELECT actor.create_salt('main') AS new_salt");
 	$stmt->execute;
-	my $new_salt = $stmt->selectrow_hashref->{new_salt};
+	my $new_salt = $dbh->selectrow_hashref($stmt)->{new_salt};
 
     $stmt = $dbh->prepare(
 		"SELECT actor.set_passwd(1, 'main', MD5(? || MD5(?)), ?)");