--- oup/current/DataAccess/ConnectionManager.pas	2007/02/22 00:37:39	112
+++ oup/current/DataAccess/ConnectionManager.pas	2007/11/25 14:24:53	247
@@ -1,7 +1,7 @@
 unit ConnectionManager;
 interface
 
-uses TypeDefs, DataAccess, Access_OniArchive, Access_OUP_ADB;
+uses TypeDefs, DataAccess, Access_OniArchive, Access_OUP_ADB, Access_OniSplitArchive;
 
 type
   TConnections = array of TDataAccess;
@@ -154,6 +154,8 @@ begin
     backend := DB_ADB
   else if ext = '.DAT' then
     backend := DB_ONI
+  else if ext = '.ONI' then
+    backend := DB_ONISPLIT
   else
   begin
     Msg := SM_UnknownExtension;
@@ -167,6 +169,8 @@ begin
       FConnections[i] := TAccess_OniArchive.Create(FileName, FLastID + 1, CreateMsg);
     DB_ADB:
       FConnections[i] := TAccess_OUP_ADB.Create(FileName, FLastID + 1, CreateMsg);
+    DB_ONISPLIT:
+      FConnections[i] := TAccess_OniSplitArchive.Create(FileName, FLastID + 1, CreateMsg);
   end;
 
   if CreateMsg = SM_OK then
@@ -178,7 +182,6 @@ begin
   else
   begin
     FConnections[i].Close;
-    FConnections[i].Free;
     FConnections[i] := nil;
     SetLength(FConnections, Length(FConnections) - 1);
     Msg := CreateMsg;