--- oup/current/DataAccess/Access_OUP_ADB.pas	2007/02/26 22:57:02	116
+++ oup/current/DataAccess/Access_OUP_ADB.pas	2007/03/23 00:58:41	119
@@ -18,7 +18,6 @@ type
     procedure UpdateListCache;
 
     function GetLinksToFile(FileID: Integer): TLinks;
-    function GetLinksFromFile(FileID: Integer): TLinks;
 
     function GetFileInfo(FileID: Integer): TFileInfo; override;
     function GetFilesList(Ext: String; Pattern: String;
@@ -189,27 +188,6 @@ begin
       Inc(i);
       FQuery.Next;
     until FQuery.EOF;
-  end;
-  FQuery.Close;
-end;
-
-function TAccess_OUP_ADB.GetLinksFromFile(FileID: Integer): TLinks;
-var
-  i: Integer;
-begin
-  SetLength(Result.ByName, 0);
-  FQuery.SQL.Text := 'SELECT src_link_offset, target_id FROM linkmap WHERE src_id = ' + IntToStr(FileID) + ' ORDER BY target_id ASC;';
-  FQuery.Open;
-  SetLength(Result.ByID, FQuery.RecordCount);
-  if FQuery.RecordCount > 0 then
-  begin
-    i := 0;
-    repeat
-      Result.ByID[i].SrcOffset := FQuery.FieldByName('src_link_offset').AsInteger;
-      Result.ByID[i].Destination := FQuery.FieldByName('target_id').AsInteger;
-      Inc(i);
-      FQuery.Next;
-    until FQuery.EOF;
   end;
   FQuery.Close;
 end;