From 2543a663660995ef5ac4011d8c0889ba6a26d6d7 Mon Sep 17 00:00:00 2001
From: battilo <alessandro.battilani@gmail.com>
Date: Sun, 17 Sep 2017 23:43:13 +0200
Subject: [PATCH] fix x multidb

---
 LoadCSVData.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/LoadCSVData.pl b/LoadCSVData.pl
index 0320919..7713d02 100644
--- a/LoadCSVData.pl
+++ b/LoadCSVData.pl
@@ -258,7 +258,7 @@ sub getUdbPwd {
       or die getTimeStamp("log")
       . " - pid $$ >> Could not connect to database: $DBI::errstr";
     my $sth = $dbh->prepare(
-            "SELECT db_pwd FROM ase_lar.companies where db_name = '"
+            "SELECT db_user, db_pwd FROM ase_lar.companies where db_name = '"
           . $db_name
           . "';" )
       or die getTimeStamp("log") . " - pid $$ >> $DBI::errstr";
@@ -268,11 +268,10 @@ sub getUdbPwd {
         die getTimeStamp("log") . " - pid $$ >> No password selected.\n";
     }
     else {
-        my $mfunc;
-        while ( my $results = $sth->fetchrow_hashref ) {
-            $password = $results->{'db_pwd'};
-            $username = $results->{'db_user'};
-        }
+        my $results = $sth->fetchrow_hashref;
+        $password = $results->{'db_pwd'};
+        $username = $results->{'db_user'};
+
     }
 
     $sth->finish;
@@ -328,9 +327,10 @@ open FILE, $filename
   or die( "Error: opening input file " . $filename . "\n" );
 
 if ( $db_name ne 'asega' ) {
-    $db_name =~ s/dbn/dbu/;
+    $db_name =~ s/aseu/dbn/;
     $db_sp = $db_name;
     getUdbPwd();
+    $db_lar = $db_name;
 }
 else {
     $db_name = 'ase_mums';