teleport button wont teleport?

teleport button doesnt teleport the player, nor does it print "teleporting"

local TeleportService = game:GetService("TeleportService")
 
local placeID_1 = 4934070831
-----
function onClicked(playerWhoClicked)
	local player = game.Players:GetPlayerFromCharacter(playerWhoClicked.Parent)
		if player then
			TeleportService:Teleport(4934070831, player)
			print("teleporting")
	end
end
script.Parent.ClickDetector.MouseClick:connect(onClicked) 

You don't do game.Players:GetPlayerFromCharacter(playerWhoClicked.Parent) if you are getting the player from a click detector. I would do...

local TeleportService = game:GetService("TeleportService")

local placeID_1 = 4934070831
-----
function onClicked(playerWhoClicked)
        if playerWhoClicked then
            TeleportService:Teleport(4934070831, playerWhoClicked)
            print("teleporting")
    end
end
script.Parent.ClickDetector.MouseClick:connect(onClicked)