fix renamed import export types

benibela · Dec 22, 2023 · 90a0ff2 · 90a0ff2
1 parent 5c38de5
commit 90a0ff2
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/exportxml.pas b/exportxml.pas
@@ -38,7 +38,7 @@   TXMLExportFrm = class(TVideLibriForm)
     currentMode: integer;
     importParser: TTreeParser;
     importAccounts: array of string;
-    importFlags: array of TExportImportFlags;
+    importFlags: TImportExportFlagsArray;
     procedure updateMixedHeader(col: integer);
     procedure viewCurrentAccounts;
   end;
@@ -47,7 +47,7 @@   TXMLExportFrm = class(TVideLibriForm)
   XMLExportFrm: TXMLExportFrm;
 
 implementation
-uses strutils,bookWatchMain,libraryAccess, bbutils;
+uses strutils,bookWatchMain,libraryAccess, bbutils,commoninterface;
 
 const COLUMN_CURRENT = 1;
       COLUMN_HISTORY = 2;
@@ -108,7 +108,7 @@ procedure TXMLExportFrm.Button1Click(Sender: TObject);
   end;
 end;
 
-function rowToFlags(item: TTreeListItem): TExportImportFlags;
+function rowToFlags(item: TTreeListItem): TImportExportFlags;
 begin
   result := [];
   if item.RecordItemsText[COLUMN_CURRENT] = CHECKBOX_CHECKED then include(result, eifCurrent);;
@@ -121,8 +121,8 @@ procedure TXMLExportFrm.Button2Click(Sender: TObject);
 var i: integer;
   choosenAccounts: array of TCustomAccountAccess;
   choosenAccountNames: array of string;
-  flags: TExportImportFlagsArray;
-  flag: TExportImportFlags;
+  flags: TImportExportFlagsArray;
+  flag: TImportExportFlags;
 begin
   choosenAccounts := nil;
   flags := nil;