File tree Expand file tree Collapse file tree 2 files changed +12
-4
lines changed
Expand file tree Collapse file tree 2 files changed +12
-4
lines changed Original file line number Diff line number Diff line change @@ -29,4 +29,12 @@ C_OBJECT:C1216(JSONToClasses ;$2)
2929C_OBJECT:C1216 (ObjectToClassCode ;$0 )
3030C_TEXT:C284 (ObjectToClassCode ;$1 )
3131C_OBJECT:C1216 (ObjectToClassCode ;$2 )
32- C_COLLECTION:C1488 (ObjectToClassCode ;$3 )
32+ C_COLLECTION:C1488 (ObjectToClassCode ;$3 )
33+
34+ // JSONToClassesCode
35+ C_BOOLEAN:C305 (JSONToClassesCode ;$2 )
36+
37+ // JSONToClassesWebService
38+ C_BOOLEAN:C305 (JSONToClassesWebService ;$0 )
39+ C_TEXT:C284 (JSONToClassesWebService ;$1 )
40+ C_TEXT:C284 (JSONToClassesWebService ;$2 )
Original file line number Diff line number Diff line change @@ -5,7 +5,7 @@ $name:=$1
55C_TEXT:C284 ($2 ;$method )
66$method := $2
77
8- C_TEXT:C284 ($output )
8+ C_TEXT:C284 ($output ; $headers )
99
1010Case of
1111 : (Position:C15 ("GET" ;$method )= 1)
@@ -20,8 +20,8 @@ Case of
2020 WEB GET HTTP BODY:C814 ($output )
2121
2222 $output := JSON Stringify:C1217 (JSONToClassesCode ($output ;True:C214 ))
23- $vTcookie := "Content-type: application/json"
24- WEB SET HTTP HEADER:C660 ($vTcookie )
23+ $headers := "Content-type: application/json"
24+ WEB SET HTTP HEADER:C660 ($headers )
2525 WEB SEND TEXT:C677 ($output )
2626 $0 := True:C214
2727
You can’t perform that action at this time.
0 commit comments