add optional json attributes

UltraStar-Deluxe · Sep 29, 2024 · b1d3c01 · b1d3c01
1 parent 3e4688a
commit b1d3c01
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/base/UWebServer.pas b/src/base/UWebServer.pas
@@ -295,11 +295,19 @@ function TWebServer.GenerateJSONWithSongs: string;
     Item.Add('artist', UTF8Encode(Song.Artist));
     Item.Add('title', UTF8Encode(Song.Title));
     Item.Add('lang', UTF8Encode(Song.Language));
-    // Item.Add('cover', Song.Path.Append(Song.Cover).ToUTF8);
     Item.Add('edition', Edition);
     Item.Add('genre', Genre);
     Item.Add('year', Year);
 
+    if Song.Creator <> '' then
+      Item.Add('creator', UTF8Encode(Song.Creator));
+
+    if Song.isDuet then
+      Item.Add('duet', True);
+
+    if Song.hasRap then
+      Item.Add('hasRap', True);
+
     JSONSongs.Add(Item);
   end;