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 2d0bd3b..b59d044 100755 (executable)
--- 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(?)), ?)");