fisharebest / webtrees

				$par[$i] = 'unknown';

			}

			$placelist = $this->createPossiblePlaceNames($par[$i], $i + 1);

			foreach ($placelist as $key => $placename) {

				$pl_id = (int) Database::prepare(

					"SELECT pl_id FROM `##placelocation` WHERE pl_level = :level AND pl_parent_id = :parent_id AND pl_place LIKE :placename"

				)->execute([

					'level'     => $i,

					'parent_id' => $place_id,

					'placename' => $placename,

				])->fetchOne();

				if ($pl_id) {

					break;

				}

			}

			if (!$pl_id) {

				break;

			}

		for ($i = 0; $i < $num_par; $i++) {

			$par[$i]   = trim($par[$i]);

			$placelist = $this->createPossiblePlaceNames($par[$i], $i + 1);

			foreach ($placelist as $placename) {

				$pl_id = (int) Database::prepare(

					"SELECT p_id FROM `##places` WHERE p_parent_id = :place_id AND p_file = :tree_id AND p_place = :placename"

				)->execute([

					'place_id'  => $place_id,

					'tree_id'   => $WT_TREE->getTreeId(),

					'placename' => $placename,

				])->fetchOne();

				if ($pl_id) {

					break;

				}

			}

			if (!$pl_id) {

				break;

			}

		Database::prepare("DELETE FROM `##dates`      WHERE d_gid =? AND d_file =?")->execute([$gid, $ged_id]);

		//-- delete any unlinked places

		foreach ($placeids as $p_id) {

			$num =

				Database::prepare("SELECT count(pl_p_id) FROM `##placelinks` WHERE pl_p_id=? AND pl_file=?")

					->execute([$p_id, $ged_id])

					->fetchOne();

			if ($num == 0) {

				Database::prepare("DELETE FROM `##places` WHERE p_id=? AND p_file=?")->execute([$p_id, $ged_id]);

			}

		}

		Database::prepare("DELETE FROM `##name` WHERE n_id=? AND n_file=?")->execute([$gid, $ged_id]);

		Database::prepare("DELETE FROM `##link` WHERE l_from=? AND l_file=?")->execute([$gid, $ged_id]);