Switzerland extends ban on large events for a month