function addClipping(WT_GedcomRecord $record) { global $WT_SESSION; if ($record->canShowName()) { $WT_SESSION->cart[WT_GED_ID][$record->getXref()] = true; // Add directly linked records preg_match_all('/\\n\\d (?:OBJE|NOTE|SOUR|REPO) @(' . WT_REGEX_XREF . ')@/', $record->getGedcom(), $matches); foreach ($matches[1] as $match) { $WT_SESSION->cart[WT_GED_ID][$match] = true; } } }