--- oup/rewrite/DataAccess/ConnectionManager.pas	2007/01/22 23:05:45	97
+++ oup/current/DataAccess/ConnectionManager.pas	2007/02/22 00:37:39	112
@@ -34,6 +34,7 @@ type
     function CloseConnectionByIndex(Index: Integer; var Msg: TStatusMessages): Boolean; overload;
     function CloseConnection(ID: Integer; var Msg: TStatusMessages): Boolean; overload;
     function CloseConnection(FileName: String; var Msg: TStatusMessages): Boolean; overload;
+    function FileOpened(FileName: String): Integer;
   published
   end;
 
@@ -149,9 +150,9 @@ begin
 
   ext := UpperCase(ExtractFileExt(FileName));
 
-  if ext = 'ODB' then
+  if ext = '.OLDB' then
     backend := DB_ADB
-  else if ext = 'DAT' then
+  else if ext = '.DAT' then
     backend := DB_ONI
   else
   begin
@@ -172,6 +173,7 @@ begin
   begin
     FLastID := FConnections[i].ConnectionID;
     Result := FLastID;
+    Msg := SM_OK;
   end
   else
   begin
@@ -179,7 +181,7 @@ begin
     FConnections[i].Free;
     FConnections[i] := nil;
     SetLength(FConnections, Length(FConnections) - 1);
-    Msg := SM_UnknownError;
+    Msg := CreateMsg;
   end;
 end;
 
@@ -259,6 +261,21 @@ begin
 end;
 
 
+function TConnectionManager.FileOpened(FileName: String): Integer;
+var
+  i: Integer;
+begin
+  Result := -1;
+  if Length(FConnections) > 0 then
+    for i := 0 to High(FConnections) do
+      if FConnections[i].FileName = FileName then
+      begin
+        Result := FConnections[i].ConnectionID;
+        Exit;
+      end;
+end;
+
+
 initialization
   ConManager := TConnectionManager.Create;
 finalization