fix x multidb

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';