From 4d671cd49dc66f46ff7b6679e374944142f9f7a4 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 24 May 2016 08:33:45 +0000
Subject: [PATCH] * Fix bug #30174, by default allow additional properties

git-svn-id: trunk@33776 -
---
 packages/googleapi/src/googlebase.pp | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/packages/googleapi/src/googlebase.pp b/packages/googleapi/src/googlebase.pp
index 6cb07b07c3..a8e2415eb0 100644
--- a/packages/googleapi/src/googlebase.pp
+++ b/packages/googleapi/src/googlebase.pp
@@ -43,7 +43,11 @@ Type
 
 Type
 
-  TGoogleBaseObject = CLass(TBaseObject);
+  { TGoogleBaseObject }
+
+  TGoogleBaseObject = CLass(TBaseObject)
+    Class Function AllowAdditionalProperties: Boolean; override;
+  end;
   TGoogleBaseObjectClass = Class of TGoogleBaseObject;
   TGoogleObjectArray =  Array of TGoogleBaseObject;
 
@@ -70,6 +74,15 @@ begin
   Result:=RestFactory;
 end;
 
+{ TGoogleBaseObject }
+
+Class Function TGoogleBaseObject.AllowAdditionalProperties: Boolean;
+begin
+  // We override this, so people don't get caught whenn google inadvertently adds properties.
+  // (see e.g. 30174)
+  Result:=True;
+end;
+
 { TGoogleBaseObjectList }
 
 function TGoogleBaseObjectList.GetO(Aindex: Integer): TGoogleBaseObject;