From 28a97cc72190db528c1e9d93d4e4491c61688c2d Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Tue, 15 Apr 2014 09:13:04 +0000
Subject: [PATCH] Fix query for getting database names on PostgreSQL

---
 source/dbconnection.pas | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index ce94e1b9..be33e6c1 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -2898,10 +2898,7 @@ begin
   Result := inherited;
   if not Assigned(Result) then begin
     try
-      FAllDatabases := GetCol('SELECT '+QuoteIdent('catalog_name')+ // Use "schema" when using schemata
-        ' FROM '+QuoteIdent('information_schema')+'.'+QuoteIdent('schemata')+
-        ' GROUP BY '+QuoteIdent('catalog_name')
-        );
+      FAllDatabases := GetCol('SELECT datname FROM pg_database WHERE datistemplate=FALSE');
     except on E:EDatabaseError do
       FAllDatabases := TStringList.Create;
     end;