alex/ase_perl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

x user diversi da asega forzo table = RAWDATACOR

Browse Source
This commit is contained in:
battilo
2017-09-19 00:16:14 +02:00
parent 700afdbbb4
commit 74e9ff5fe6
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
LoadCSVData.pl
View File

@@ -77,11 +77,15 @@ sub writeOutSql {
print SQLOUT @sql; print SQLOUT @sql;
@sql = (); @sql = ();
print SQLOUT "/* unlock table */\nUNLOCK TABLES;\n"; print SQLOUT "/* unlock table */\nUNLOCK TABLES;\n";
if ( $table eq 'RAWDATA' ) {
print SQLOUT "/* call stored procedure to copy in " print SQLOUT "/* call stored procedure to copy in "
. $db_sp . $db_sp
. "*/\ncall " . "*/\ncall "
. $db_sp . $db_sp
. ".CopyAndFill('$tn');\n"; . ".CopyAndFill('$tn');\n";
}
close SQLOUT close SQLOUT
or die( getTimeStamp("log") or die( getTimeStamp("log")
. " - pid $$ >> Error in closing file " . " - pid $$ >> Error in closing file "
@@ -332,6 +336,7 @@ if ( $db_name ne 'asega' ) {
$db_sp = $db_name; $db_sp = $db_name;
getUdbPwd(); getUdbPwd();
$db_lar = $db_name; $db_lar = $db_name;
$table = "RAWDATACOR";
} }
else { else {
$db_name = 'ase_mums'; $db_name = 'ase_mums';