Bläddra i källkod

* Copy connection name in assign

git-svn-id: trunk@42004 -
michael 6 år sedan
förälder
incheckning
b91f374e3d
1 ändrade filer med 2 tillägg och 1 borttagningar
  1. 2 1
      packages/fcl-web/src/restbridge/sqldbrestbridge.pp

+ 2 - 1
packages/fcl-web/src/restbridge/sqldbrestbridge.pp

@@ -358,7 +358,7 @@ Type
     Property CORSAllowedOrigins: String Read FCORSAllowedOrigins  Write FCORSAllowedOrigins;
     Property CORSAllowedOrigins: String Read FCORSAllowedOrigins  Write FCORSAllowedOrigins;
     // Access-Control-Max-Age header value. Set to zero not to send the header
     // Access-Control-Max-Age header value. Set to zero not to send the header
     Property CORSMaxAge : Integer Read FCORSMaxAge Write FCORSMaxAge;
     Property CORSMaxAge : Integer Read FCORSMaxAge Write FCORSMaxAge;
-    // Access-Control-Allow-Credentials header value. Set to zero not to send the header
+    // Access-Control-Allow-Credentials header value. Set to false not to send the header
     Property CORSAllowCredentials : Boolean Read FCORSAllowCredentials Write FCORSAllowCredentials;
     Property CORSAllowCredentials : Boolean Read FCORSAllowCredentials Write FCORSAllowCredentials;
     // UserIDs of the user(s) that are allowed to see and modify the connection resource.
     // UserIDs of the user(s) that are allowed to see and modify the connection resource.
     Property AdminUserIDs : TStrings Read FAdminUserIDs Write SetAdminUserIDS;
     Property AdminUserIDs : TStrings Read FAdminUserIDs Write SetAdminUserIDS;
@@ -2312,6 +2312,7 @@ begin
     DatabaseName:=C.DatabaseName;
     DatabaseName:=C.DatabaseName;
     ConnectionType:=C.ConnectionType;
     ConnectionType:=C.ConnectionType;
     Port:=C.Port;
     Port:=C.Port;
+    Name:=C.Name;
     SchemaName:=C.SchemaName;
     SchemaName:=C.SchemaName;
     Params.Assign(C.Params);
     Params.Assign(C.Params);
     end
     end