MT#61111 escape postgres identifiers

Change-Id: I11d6648a4266191759dab63ef3f0b4faa73e1f18

debian/control

@@ -31,6 +31,7 @@ Depends:
  libdatetime-timezone-perl,
  libdbd-csv-perl,
  libdbd-mysql-perl,
+ libdbd-pg-perl,
  libdbd-sqlite3-perl,
  libemail-mime-attachment-stripper-perl,
  libemail-mime-perl,
@@ -70,7 +71,6 @@ Depends:
 Suggests:
  libdbd-odbc-perl,
  libdbd-oracle-perl,
- libdbd-pg-perl,
  tdsodbc,
 Description: NGCP bulk processor framework perl modules
  This package provides the NGCP::BulkProcessor perl modules that implement

lib/NGCP/BulkProcessor/SqlConnectors/PostgreSQLDB.pm

@@ -94,7 +94,7 @@ sub tableidentifier {
 
     my $self = shift;
     my $tablename = shift;
-    return $tablename;
+    return '"' . $tablename . '"';
 
 }
 
@@ -103,8 +103,7 @@ sub _columnidentifier {
     my $self = shift;
     my $columnname = shift;
 
-    return $columnname;
-
+    return '"' . $columnname . '"';
 }
 
 sub get_tableidentifier {
@@ -114,7 +113,7 @@ sub get_tableidentifier {
     #return SUPER::get_tableidentifier($tablename,$schemaname);
 
     if (defined $schemaname) {
-        return $schemaname . '.' . $tablename;
+        return $schemaname . "." . $tablename;
     } else {
         return $tablename;
     }