Fixed the string quotation character for Oracle.

This commit is contained in:
Ramon Novoa 2015-04-30 10:51:47 +02:00
parent 4008b12add
commit 38b1f4dc8f
1 changed files with 1 additions and 1 deletions

View File

@ -138,7 +138,7 @@ sub db_connect ($$$$$$) {
elsif ($rdbms eq 'oracle') { elsif ($rdbms eq 'oracle') {
$RDBMS = 'oracle'; $RDBMS = 'oracle';
$RDBMS_QUOTE = '"'; $RDBMS_QUOTE = '"';
$RDBMS_QUOTE_STRING = '"'; $RDBMS_QUOTE_STRING = '\'';
# Connect to Oracle # Connect to Oracle
my $dbh = DBI->connect("DBI:Oracle:dbname=$db_name;host=$db_host;port=$db_port;sid=pandora", $db_user, $db_pass, { RaiseError => 1, AutoCommit => 1 }); my $dbh = DBI->connect("DBI:Oracle:dbname=$db_name;host=$db_host;port=$db_port;sid=pandora", $db_user, $db_pass, { RaiseError => 1, AutoCommit => 1 });