Site is JSON encoded

abeverley · abeverley · commit 3622ecb2360d · 2025-01-10T11:48:26.000Z
diff --git a/lib/Brass/ConfigDB.pm b/lib/Brass/ConfigDB.pm
@@ -193,7 +193,7 @@ sub _run_remote
 
     my $decoded = decode_json $response->decoded_content;
     error $decoded->{message} if $decoded->{is_error};
-    if ($action eq 'metadata' || $action eq 'summary') # double-encoded
+    if ($action eq 'metadata' || $action eq 'summary' || $type eq 'site') # double-encoded
     {
         return undef if !$decoded->{result}; # No metadata
         return decode_json $decoded->{result};

Original file line number	Diff line number	Diff line change
`@@ -193,7 +193,7 @@ sub _run_remote`
`193`	`193`
`194`	`194`	`my $decoded = decode_json $response->decoded_content;`
`195`	`195`	`error $decoded->{message} if $decoded->{is_error};`
`196`		`- if ($action eq 'metadata' \|\| $action eq 'summary') # double-encoded`
	`196`	`+ if ($action eq 'metadata' \|\| $action eq 'summary' \|\| $type eq 'site') # double-encoded`
`197`	`197`	`{`
`198`	`198`	`return undef if !$decoded->{result}; # No metadata`
`199`	`199`	`return decode_json $decoded->{result};`