Преглед на файлове

* Fix RequireMetadata

git-svn-id: trunk@41617 -
michael преди 6 години
родител
ревизия
0b6b748b15
променени са 1 файла, в които са добавени 2 реда и са изтрити 0 реда
  1. 2 0
      packages/fcl-web/src/restbridge/sqldbrestio.pp

+ 2 - 0
packages/fcl-web/src/restbridge/sqldbrestio.pp

@@ -708,6 +708,8 @@ procedure TRestOutputStreamer.SetOutputOptions(AValue: TRestOutputOptions);
 begin
   if FOutputOptions=AValue then Exit;
   FOutputOptions:=AValue;
+  if RequireMetadata then
+    Include(FOutputOptions,ooMetadata);
 end;
 
 procedure TRestOutputStreamer.CreateErrorContent(aCode: Integer;