Changeset 243 for oup/current/DataAccess

Timestamp:

Aug 10, 2007, 7:26:03 PM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current/DataAccess

Files:

• Access_OUP_ADB.pas (modified) (1 diff)
• Access_OniArchive.pas (modified) (1 diff)

oup/current/DataAccess/Access_OUP_ADB.pas

@@ -549 +549 @@
   SetLength(Result, 0);
   FQuery.SQL.Text := 'SELECT [src_id],[src_link_offset],[name],[size],[sep] FROM rawmap ' +
-    'WHERE [type]="' + RawType + '" ORDER BY src_id ASC, src_link_offset ASC;';
+    'WHERE [type]="' + RawType + '" and [size]>0 ORDER BY src_id ASC, src_link_offset ASC;';
   FQuery.Open;
   if FQuery.RecordCount > 0 then

oup/current/DataAccess/Access_OniArchive.pas

@@ -508 +508 @@
     for j := 0 to Length(list) - 1 do
     begin
-      if list[j].RawType = RawType then
+      if (list[j].RawType = RawType) and (list[j].RawSize > 0) then
       begin
         SetLength(Result, Length(Result)+1);