Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Updated TemplatePro

Browse Source
This commit is contained in:
Daniele Teti 2024-09-09 12:42:30 +02:00
parent a098584994
commit 8116c25e2f
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
samples/middleware_jwtblacklist/AppControllerU.pas
View File

@ -54,7 +54,8 @@ var
begin begin
ContentType := TMVCMediaType.APPLICATION_JSON; ContentType := TMVCMediaType.APPLICATION_JSON;
lJObj := TJSONObject.Create; lJObj := TJSONObject.Create;
lJObj.S['message'] := 'This is protected content accessible only by user1'; lJObj.S['message'] := 'This is protected content accessible only by user1: you are ' +
Context.LoggedUser.UserName + ' logged since ' + DateTimeToStr(Context.LoggedUser.LoggedSince);
lJArr := lJObj.A['querystringparameters']; lJArr := lJObj.A['querystringparameters'];
lQueryParams := Context.Request.QueryStringParams; lQueryParams := Context.Request.QueryStringParams;

4
sources/TemplatePro.pas
View File

@ -2453,9 +2453,9 @@ begin
GetVariables.Add(Name, TVarDataSource.Create(TJDOJsonObject(Value.AsObject), [viJSONObject])); GetVariables.Add(Name, TVarDataSource.Create(TJDOJsonObject(Value.AsObject), [viJSONObject]));
end end
else else
if Value.AsObject is TJDOJsonObject then if Value.AsObject is TJDOJsonArray then
begin begin
GetVariables.Add(Name, TVarDataSource.Create(TJDOJsonObject(Value.AsObject), [viJSONObject])); raise ETProRenderException.Create('JSONArray cannot be used directly [HINT] Define a JSONObject variable with a JSONArray property');
end end
else else
begin begin