Marketplace Show Gamepass is Not for Sale?

As attempt, The script Works Fine, But Fails to Market the Gamepass Sales Event for the Players.

And The Gamepass is for Sale as well.

Gamepass

Gyazo

while not _G["GameDatabase"] do wait() end
while not _G["GameDatabase"].ready do wait() end
local CheckBought = _G["GameDatabase"].action["CheckBought"]

local player = script.Parent.Parent.Parent.Parent.Parent.Parent.Parent
local pname = player.Name

local pass_val = "PassTwoMore"
local pass_id = 7199111

function UpdatePassInfo()
    if CheckBought(pname, pass_val) then
        script.Parent.BuyBtt.Visible = false
        script.Parent.Bought.Visible = true
    else
        script.Parent.BuyBtt.Visible = true
        script.Parent.Bought.Visible = false
    end
end
UpdatePassInfo()
_G["GameDatabase"].pinfo[pname].changed.Event:connect(UpdatePassInfo)

script.Parent.BuyBtt.MouseButton1Click:connect(function()
    game:GetService("MarketplaceService"):PromptPurchase(player, pass_id)
end)

Is there By chance, The MarketplaceService is not a supportive method now?