fisharebest /
webtrees
| Total Complexity | 120 |
| Total Lines | 806 |
| Duplicated Lines | 0 % |
| Changes | 1 | ||
| Bugs | 0 | Features | 0 |
Complex classes like GedcomImportService often do a lot of different things. To break such a class down, we need to identify a cohesive component within that class. A common approach to find such a component is to look for fields/methods that share the same prefixes, or suffixes.
Once you have determined the fields that belong together, you can apply the Extract Class refactoring. If the component makes sense as a sub-class, Extract Subclass is also a candidate, and is often faster.
While breaking up the class, it is a good idea to analyze how other classes use GedcomImportService, and based on these observations, apply Extract Interface, too.
| 1 | <?php |
||
| 70 | class GedcomImportService |
||
| 71 | { |
||
| 72 | /** |
||
| 73 | * Tidy up a gedcom record on import, so that we can access it consistently/efficiently. |
||
| 74 | */ |
||
| 75 | private function reformatRecord(string $rec, Tree $tree): string |
||
| 76 | { |
||
| 77 | $gedcom_service = Registry::container()->get(GedcomService::class); |
||
| 78 | |||
| 79 | // Strip out mac/msdos line endings |
||
| 80 | $rec = preg_replace("/[\r\n]+/", "\n", $rec); |
||
| 81 | |||
| 82 | // Extract lines from the record; lines consist of: level + optional xref + tag + optional data |
||
| 83 | $num_matches = preg_match_all('/^[ \t]*(\d+)[ \t]*(@[^@]*@)?[ \t]*(\w+)[ \t]?(.*)$/m', $rec, $matches, PREG_SET_ORDER); |
||
| 84 | |||
| 85 | // Process the record line-by-line |
||
| 86 | $newrec = ''; |
||
| 87 | foreach ($matches as $n => $match) { |
||
| 88 | [, $level, $xref, $tag, $data] = $match; |
||
| 89 | |||
| 90 | $tag = $gedcom_service->canonicalTag($tag); |
||
| 91 | |||
| 92 | switch ($tag) { |
||
| 93 | case 'DATE': |
||
| 94 | // Preserve text from INT dates |
||
| 95 | if (str_contains($data, '(')) { |
||
| 96 | [$date, $text] = explode('(', $data, 2); |
||
| 97 | $text = ' (' . $text; |
||
| 98 | } else { |
||
| 99 | $date = $data; |
||
| 100 | $text = ''; |
||
| 101 | } |
||
| 102 | // Capitals |
||
| 103 | $date = strtoupper($date); |
||
| 104 | // Temporarily add leading/trailing spaces, to allow efficient matching below |
||
| 105 | $date = ' ' . $date . ' '; |
||
| 106 | // Ensure space digits and letters |
||
| 107 | $date = preg_replace('/([A-Z])(\d)/', '$1 $2', $date); |
||
| 108 | $date = preg_replace('/(\d)([A-Z])/', '$1 $2', $date); |
||
| 109 | // Ensure space before/after calendar escapes |
||
| 110 | $date = preg_replace('/@#[^@]+@/', ' $0 ', $date); |
||
| 111 | // "BET." => "BET" |
||
| 112 | $date = preg_replace('/(\w\w)\./', '$1', $date); |
||
| 113 | // "CIR" => "ABT" |
||
| 114 | $date = str_replace(' CIR ', ' ABT ', $date); |
||
| 115 | $date = str_replace(' APX ', ' ABT ', $date); |
||
| 116 | // B.C. => BC (temporarily, to allow easier handling of ".") |
||
| 117 | $date = str_replace(' B.C. ', ' BC ', $date); |
||
| 118 | // TMG uses "EITHER X OR Y" |
||
| 119 | $date = preg_replace('/^ EITHER (.+) OR (.+)/', ' BET $1 AND $2', $date); |
||
| 120 | // "BET X - Y " => "BET X AND Y" |
||
| 121 | $date = preg_replace('/^(.* BET .+) - (.+)/', '$1 AND $2', $date); |
||
| 122 | $date = preg_replace('/^(.* FROM .+) - (.+)/', '$1 TO $2', $date); |
||
| 123 | // "@#ESC@ FROM X TO Y" => "FROM @#ESC@ X TO @#ESC@ Y" |
||
| 124 | $date = preg_replace('/^ +(@#[^@]+@) +FROM +(.+) +TO +(.+)/', ' FROM $1 $2 TO $1 $3', $date); |
||
| 125 | $date = preg_replace('/^ +(@#[^@]+@) +BET +(.+) +AND +(.+)/', ' BET $1 $2 AND $1 $3', $date); |
||
| 126 | // "@#ESC@ AFT X" => "AFT @#ESC@ X" |
||
| 127 | $date = preg_replace('/^ +(@#[^@]+@) +(FROM|BET|TO|AND|BEF|AFT|CAL|EST|INT|ABT) +(.+)/', ' $2 $1 $3', $date); |
||
| 128 | // Ignore any remaining punctuation, e.g. "14-MAY, 1900" => "14 MAY 1900" |
||
| 129 | // (don't change "/" - it is used in NS/OS dates) |
||
| 130 | $date = preg_replace('/[.,:;-]/', ' ', $date); |
||
| 131 | // BC => B.C. |
||
| 132 | $date = str_replace(' BC ', ' B.C. ', $date); |
||
| 133 | // Append the "INT" text |
||
| 134 | $data = $date . $text; |
||
| 135 | break; |
||
| 136 | case 'HEAD': |
||
| 137 | case 'TRLR': |
||
| 138 | // HEAD and TRLR records do not have an XREF or DATA |
||
| 139 | if ($level === '0') { |
||
| 140 | $xref = ''; |
||
| 141 | $data = ''; |
||
| 142 | } |
||
| 143 | break; |
||
| 144 | case 'NAME': |
||
| 145 | // Tidy up non-printing characters |
||
| 146 | $data = preg_replace('/ +/', ' ', trim($data)); |
||
| 147 | break; |
||
| 148 | case 'PLAC': |
||
| 149 | // Consistent commas |
||
| 150 | $data = preg_replace('/ *[,，،] */u', ', ', $data); |
||
| 151 | // The Master Genealogist stores LAT/LONG data in the PLAC field, e.g. Pennsylvania, USA, 395945N0751013W |
||
| 152 | if (preg_match('/(.*), (\d\d)(\d\d)(\d\d)([NS])(\d\d\d)(\d\d)(\d\d)([EW])$/', $data, $match) === 1) { |
||
| 153 | $degns = (int) $match[2]; |
||
| 154 | $minns = (int) $match[3]; |
||
| 155 | $secns = (int) $match[4]; |
||
| 156 | $degew = (int) $match[6]; |
||
| 157 | $minew = (int) $match[7]; |
||
| 158 | $secew = (int) $match[8]; |
||
| 159 | $data = |
||
| 160 | $match[1] . "\n" . |
||
| 161 | (1 + (int) $level) . " MAP\n" . |
||
| 162 | (2 + (int) $level) . ' LATI ' . ($match[5] . round($degns + $minns / 60 + $secns / 3600, 4)) . "\n" . |
||
| 163 | (2 + (int) $level) . ' LONG ' . ($match[9] . round($degew + $minew / 60 + $secew / 3600, 4)); |
||
| 164 | } |
||
| 165 | break; |
||
| 166 | case 'SEX': |
||
| 167 | $data = strtoupper($data); |
||
| 168 | break; |
||
| 169 | } |
||
| 170 | // Suppress "Y", for facts/events with a DATE or PLAC |
||
| 171 | if ($data === 'y') { |
||
| 172 | $data = 'Y'; |
||
| 173 | } |
||
| 174 | if ($level === '1' && $data === 'Y') { |
||
| 175 | for ($i = $n + 1; $i < $num_matches - 1 && $matches[$i][1] !== '1'; ++$i) { |
||
| 176 | if ($matches[$i][3] === 'DATE' || $matches[$i][3] === 'PLAC') { |
||
| 177 | $data = ''; |
||
| 178 | break; |
||
| 179 | } |
||
| 180 | } |
||
| 181 | } |
||
| 182 | // Reassemble components back into a single line |
||
| 183 | switch ($tag) { |
||
| 184 | default: |
||
| 185 | // Remove tabs and multiple/leading/trailing spaces |
||
| 186 | $data = strtr($data, ["\t" => ' ']); |
||
| 187 | $data = trim($data, ' '); |
||
| 188 | while (str_contains($data, ' ')) { |
||
| 189 | $data = strtr($data, [' ' => ' ']); |
||
| 190 | } |
||
| 191 | $newrec .= ($newrec !== '' ? "\n" : '') . $level . ' ' . ($level === '0' && $xref !== '' ? $xref . ' ' : '') . $tag . ($data === '' ? '' : ' ' . $data); |
||
| 192 | break; |
||
| 193 | case 'NOTE': |
||
| 194 | case 'TEXT': |
||
| 195 | case 'DATA': |
||
| 196 | case 'CONT': |
||
| 197 | $newrec .= ($newrec !== '' ? "\n" : '') . $level . ' ' . ($level === '0' && $xref !== '' ? $xref . ' ' : '') . $tag . ($data === '' ? '' : ' ' . $data); |
||
| 198 | break; |
||
| 199 | case 'FILE': |
||
| 200 | // Strip off the user-defined path prefix |
||
| 201 | $GEDCOM_MEDIA_PATH = $tree->getPreference('GEDCOM_MEDIA_PATH'); |
||
| 202 | if ($GEDCOM_MEDIA_PATH !== '' && str_starts_with($data, $GEDCOM_MEDIA_PATH)) { |
||
| 203 | $data = substr($data, strlen($GEDCOM_MEDIA_PATH)); |
||
| 204 | } |
||
| 205 | // convert backslashes in filenames to forward slashes |
||
| 206 | $data = preg_replace("/\\\\/", '/', $data); |
||
| 207 | |||
| 208 | $newrec .= ($newrec !== '' ? "\n" : '') . $level . ' ' . ($level === '0' && $xref !== '' ? $xref . ' ' : '') . $tag . ($data === '' ? '' : ' ' . $data); |
||
| 209 | break; |
||
| 210 | case 'CONC': |
||
| 211 | // Merge CONC lines, to simplify access later on. |
||
| 212 | $newrec .= ($tree->getPreference('WORD_WRAPPED_NOTES') ? ' ' : '') . $data; |
||
| 213 | break; |
||
| 214 | } |
||
| 215 | } |
||
| 216 | |||
| 217 | return $newrec; |
||
| 218 | } |
||
| 219 | |||
| 220 | /** |
||
| 221 | * import record into database |
||
| 222 | * this function will parse the given gedcom record and add it to the database |
||
| 223 | * |
||
| 224 | * @param string $gedrec the raw gedcom record to parse |
||
| 225 | * @param Tree $tree import the record into this tree |
||
| 226 | * @param bool $update whether this is an updated record that has been accepted |
||
| 227 | * |
||
| 228 | * @throws GedcomErrorException |
||
| 229 | */ |
||
| 230 | public function importRecord(string $gedrec, Tree $tree, bool $update): void |
||
| 231 | { |
||
| 232 | $tree_id = $tree->id(); |
||
| 233 | |||
| 234 | // Escaped @ signs (only if importing from file) |
||
| 235 | if (!$update) { |
||
| 236 | $gedrec = str_replace('@@', '@', $gedrec); |
||
| 237 | } |
||
| 238 | |||
| 239 | // Standardise gedcom format |
||
| 240 | $gedrec = $this->reformatRecord($gedrec, $tree); |
||
| 241 | |||
| 242 | // import different types of records |
||
| 243 | if (preg_match('/^0 @(' . Gedcom::REGEX_XREF . ')@ (' . Gedcom::REGEX_TAG . ')/', $gedrec, $match)) { |
||
| 244 | [, $xref, $type] = $match; |
||
| 245 | } elseif (str_starts_with($gedrec, '0 HEAD')) { |
||
| 246 | $type = 'HEAD'; |
||
| 247 | $xref = 'HEAD'; // For records without an XREF, use the type as a pseudo XREF. |
||
| 248 | } elseif (str_starts_with($gedrec, '0 TRLR')) { |
||
| 249 | $tree->setPreference('imported', '1'); |
||
| 250 | $type = 'TRLR'; |
||
| 251 | $xref = 'TRLR'; // For records without an XREF, use the type as a pseudo XREF. |
||
| 252 | } elseif (str_starts_with($gedrec, '0 _PLAC_DEFN')) { |
||
| 253 | $this->importLegacyPlacDefn($gedrec); |
||
| 254 | |||
| 255 | return; |
||
| 256 | } elseif (str_starts_with($gedrec, '0 _PLAC ')) { |
||
| 257 | $this->importTNGPlac($gedrec); |
||
| 258 | |||
| 259 | return; |
||
| 260 | } else { |
||
| 261 | foreach (Gedcom::CUSTOM_RECORDS_WITHOUT_XREFS as $record_type) { |
||
| 262 | if (preg_match('/^0 ' . $record_type . '\b/', $gedrec) === 1) { |
||
| 263 | return; |
||
| 264 | } |
||
| 265 | } |
||
| 266 | |||
| 267 | throw new GedcomErrorException($gedrec); |
||
| 268 | } |
||
| 269 | |||
| 270 | // Add a _UID |
||
| 271 | if ($tree->getPreference('GENERATE_UIDS') === '1' && !str_contains($gedrec, "\n1 _UID ")) { |
||
| 272 | $gedrec .= "\n1 _UID " . Registry::idFactory()->pafUid(); |
||
| 273 | } |
||
| 274 | |||
| 275 | // If the user has downloaded their GEDCOM data (containing media objects) and edited it |
||
| 276 | // using an application which does not support (and deletes) media objects, then add them |
||
| 277 | // back in. |
||
| 278 | if ($tree->getPreference('keep_media') === '1') { |
||
| 279 | $old_linked_media = DB::table('link') |
||
| 280 | ->where('l_from', '=', $xref) |
||
| 281 | ->where('l_file', '=', $tree_id) |
||
| 282 | ->where('l_type', '=', 'OBJE') |
||
| 283 | ->pluck('l_to'); |
||
| 284 | |||
| 285 | // Delete these links - so that we do not insert them again in updateLinks() |
||
| 286 | DB::table('link') |
||
| 287 | ->where('l_from', '=', $xref) |
||
| 288 | ->where('l_file', '=', $tree_id) |
||
| 289 | ->where('l_type', '=', 'OBJE') |
||
| 290 | ->delete(); |
||
| 291 | |||
| 292 | foreach ($old_linked_media as $media_id) { |
||
| 293 | $gedrec .= "\n1 OBJE @" . $media_id . '@'; |
||
| 294 | } |
||
| 295 | } |
||
| 296 | |||
| 297 | // Convert inline media into media objects |
||
| 298 | $gedrec = $this->convertInlineMedia($tree, $gedrec); |
||
| 299 | |||
| 300 | switch ($type) { |
||
| 301 | case Individual::RECORD_TYPE: |
||
| 302 | $record = Registry::individualFactory()->new($xref, $gedrec, null, $tree); |
||
| 303 | |||
| 304 | if (preg_match('/\n1 RIN (.+)/', $gedrec, $match)) { |
||
| 305 | $rin = $match[1]; |
||
| 306 | } else { |
||
| 307 | $rin = $xref; |
||
| 308 | } |
||
| 309 | |||
| 310 | // The database can only store MFU, and many of the stats queries assume this. |
||
| 311 | $sex = $record->sex(); |
||
| 312 | $sex = $sex === 'M' || $sex === 'F' ? $sex : 'U'; |
||
| 313 | |||
| 314 | DB::table('individuals')->insert([ |
||
| 315 | 'i_id' => $xref, |
||
| 316 | 'i_file' => $tree_id, |
||
| 317 | 'i_rin' => $rin, |
||
| 318 | 'i_sex' => $sex, |
||
| 319 | 'i_gedcom' => $gedrec, |
||
| 320 | ]); |
||
| 321 | |||
| 322 | // Update the cross-reference/index tables. |
||
| 323 | $this->updatePlaces($xref, $tree, $gedrec); |
||
| 324 | $this->updateDates($xref, $tree_id, $gedrec); |
||
| 325 | $this->updateNames($xref, $tree_id, $record); |
||
| 326 | break; |
||
| 327 | |||
| 328 | case Family::RECORD_TYPE: |
||
| 329 | if (preg_match('/\n1 HUSB @(' . Gedcom::REGEX_XREF . ')@/', $gedrec, $match)) { |
||
| 330 | $husb = $match[1]; |
||
| 331 | } else { |
||
| 332 | $husb = ''; |
||
| 333 | } |
||
| 334 | if (preg_match('/\n1 WIFE @(' . Gedcom::REGEX_XREF . ')@/', $gedrec, $match)) { |
||
| 335 | $wife = $match[1]; |
||
| 336 | } else { |
||
| 337 | $wife = ''; |
||
| 338 | } |
||
| 339 | $nchi = preg_match_all('/\n1 CHIL @(' . Gedcom::REGEX_XREF . ')@/', $gedrec, $match); |
||
| 340 | if (preg_match('/\n1 NCHI (\d+)/', $gedrec, $match)) { |
||
| 341 | $nchi = max($nchi, $match[1]); |
||
| 342 | } |
||
| 343 | |||
| 344 | DB::table('families')->insert([ |
||
| 345 | 'f_id' => $xref, |
||
| 346 | 'f_file' => $tree_id, |
||
| 347 | 'f_husb' => $husb, |
||
| 348 | 'f_wife' => $wife, |
||
| 349 | 'f_gedcom' => $gedrec, |
||
| 350 | 'f_numchil' => $nchi, |
||
| 351 | ]); |
||
| 352 | |||
| 353 | // Update the cross-reference/index tables. |
||
| 354 | $this->updatePlaces($xref, $tree, $gedrec); |
||
| 355 | $this->updateDates($xref, $tree_id, $gedrec); |
||
| 356 | break; |
||
| 357 | |||
| 358 | case Source::RECORD_TYPE: |
||
| 359 | if (preg_match('/\n1 TITL (.+)/', $gedrec, $match)) { |
||
| 360 | $name = $match[1]; |
||
| 361 | } elseif (preg_match('/\n1 ABBR (.+)/', $gedrec, $match)) { |
||
| 362 | $name = $match[1]; |
||
| 363 | } else { |
||
| 364 | $name = $xref; |
||
| 365 | } |
||
| 366 | |||
| 367 | DB::table('sources')->insert([ |
||
| 368 | 's_id' => $xref, |
||
| 369 | 's_file' => $tree_id, |
||
| 370 | 's_name' => mb_substr($name, 0, 255), |
||
| 371 | 's_gedcom' => $gedrec, |
||
| 372 | ]); |
||
| 373 | break; |
||
| 374 | |||
| 375 | case Repository::RECORD_TYPE: |
||
| 376 | case Note::RECORD_TYPE: |
||
| 377 | case Submission::RECORD_TYPE: |
||
| 378 | case Submitter::RECORD_TYPE: |
||
| 379 | case Location::RECORD_TYPE: |
||
| 380 | DB::table('other')->insert([ |
||
| 381 | 'o_id' => $xref, |
||
| 382 | 'o_file' => $tree_id, |
||
| 383 | 'o_type' => $type, |
||
| 384 | 'o_gedcom' => $gedrec, |
||
| 385 | ]); |
||
| 386 | break; |
||
| 387 | |||
| 388 | case Header::RECORD_TYPE: |
||
| 389 | // Force HEAD records to have a creation date. |
||
| 390 | if (!str_contains($gedrec, "\n1 DATE ")) { |
||
| 391 | $today = strtoupper(date('d M Y')); |
||
| 392 | $gedrec .= "\n1 DATE " . $today; |
||
| 393 | } |
||
| 394 | |||
| 395 | DB::table('other')->insert([ |
||
| 396 | 'o_id' => $xref, |
||
| 397 | 'o_file' => $tree_id, |
||
| 398 | 'o_type' => Header::RECORD_TYPE, |
||
| 399 | 'o_gedcom' => $gedrec, |
||
| 400 | ]); |
||
| 401 | break; |
||
| 402 | |||
| 403 | case Media::RECORD_TYPE: |
||
| 404 | $record = Registry::mediaFactory()->new($xref, $gedrec, null, $tree); |
||
| 405 | |||
| 406 | DB::table('media')->insert([ |
||
| 407 | 'm_id' => $xref, |
||
| 408 | 'm_file' => $tree_id, |
||
| 409 | 'm_gedcom' => $gedrec, |
||
| 410 | ]); |
||
| 411 | |||
| 412 | foreach ($record->mediaFiles() as $media_file) { |
||
| 413 | DB::table('media_file')->insert([ |
||
| 414 | 'm_id' => $xref, |
||
| 415 | 'm_file' => $tree_id, |
||
| 416 | 'multimedia_file_refn' => mb_substr($media_file->filename(), 0, 248), |
||
| 417 | 'multimedia_format' => mb_substr($media_file->format(), 0, 4), |
||
| 418 | 'source_media_type' => mb_substr($media_file->type(), 0, 15), |
||
| 419 | 'descriptive_title' => mb_substr($media_file->title(), 0, 248), |
||
| 420 | ]); |
||
| 421 | } |
||
| 422 | break; |
||
| 423 | |||
| 424 | default: // Custom record types. |
||
| 425 | DB::table('other')->insert([ |
||
| 426 | 'o_id' => $xref, |
||
| 427 | 'o_file' => $tree_id, |
||
| 428 | 'o_type' => mb_substr($type, 0, 15), |
||
| 429 | 'o_gedcom' => $gedrec, |
||
| 430 | ]); |
||
| 431 | break; |
||
| 432 | } |
||
| 433 | |||
| 434 | // Update the cross-reference/index tables. |
||
| 435 | $this->updateLinks($xref, $tree_id, $gedrec); |
||
| 436 | } |
||
| 437 | |||
| 438 | /** |
||
| 439 | * Legacy Family Tree software generates _PLAC_DEFN records containing LAT/LONG values |
||
| 440 | */ |
||
| 441 | private function importLegacyPlacDefn(string $gedcom): void |
||
| 442 | { |
||
| 443 | $gedcom_service = new GedcomService(); |
||
| 444 | |||
| 445 | if (preg_match('/\n1 PLAC (.+)/', $gedcom, $match)) { |
||
| 446 | $place_name = $match[1]; |
||
| 447 | } else { |
||
| 448 | return; |
||
| 449 | } |
||
| 450 | |||
| 451 | if (preg_match('/\n3 LATI ([NS].+)/', $gedcom, $match)) { |
||
| 452 | $latitude = $gedcom_service->readLatitude($match[1]); |
||
| 453 | } else { |
||
| 454 | return; |
||
| 455 | } |
||
| 456 | |||
| 457 | if (preg_match('/\n3 LONG ([EW].+)/', $gedcom, $match)) { |
||
| 458 | $longitude = $gedcom_service->readLongitude($match[1]); |
||
| 459 | } else { |
||
| 460 | return; |
||
| 461 | } |
||
| 462 | |||
| 463 | $location = new PlaceLocation($place_name); |
||
| 464 | |||
| 465 | if ($location->latitude() === null && $location->longitude() === null) { |
||
| 466 | DB::table('place_location') |
||
| 467 | ->where('id', '=', $location->id()) |
||
| 468 | ->update([ |
||
| 469 | 'latitude' => $latitude, |
||
| 470 | 'longitude' => $longitude, |
||
| 471 | ]); |
||
| 472 | } |
||
| 473 | } |
||
| 474 | |||
| 475 | /** |
||
| 476 | * TNG generates _PLAC records containing LAT/LONG values |
||
| 477 | */ |
||
| 478 | private function importTNGPlac(string $gedcom): void |
||
| 479 | { |
||
| 480 | if (preg_match('/^0 _PLAC (.+)/', $gedcom, $match)) { |
||
| 481 | $place_name = $match[1]; |
||
| 482 | } else { |
||
| 483 | return; |
||
| 484 | } |
||
| 485 | |||
| 486 | if (preg_match('/\n2 LATI (.+)/', $gedcom, $match)) { |
||
| 487 | $latitude = (float) $match[1]; |
||
| 488 | } else { |
||
| 489 | return; |
||
| 490 | } |
||
| 491 | |||
| 492 | if (preg_match('/\n2 LONG (.+)/', $gedcom, $match)) { |
||
| 493 | $longitude = (float) $match[1]; |
||
| 494 | } else { |
||
| 495 | return; |
||
| 496 | } |
||
| 497 | |||
| 498 | $location = new PlaceLocation($place_name); |
||
| 499 | |||
| 500 | if ($location->latitude() === null && $location->longitude() === null) { |
||
| 501 | DB::table('place_location') |
||
| 502 | ->where('id', '=', $location->id()) |
||
| 503 | ->update([ |
||
| 504 | 'latitude' => $latitude, |
||
| 505 | 'longitude' => $longitude, |
||
| 506 | ]); |
||
| 507 | } |
||
| 508 | } |
||
| 509 | |||
| 510 | /** |
||
| 511 | * Extract all level 2 places from the given record and insert them into the places table |
||
| 512 | */ |
||
| 513 | public function updatePlaces(string $xref, Tree $tree, string $gedrec): void |
||
| 514 | { |
||
| 515 | // Insert all new rows together |
||
| 516 | $rows = []; |
||
| 517 | |||
| 518 | preg_match_all('/\n2 PLAC (.+)/', $gedrec, $matches); |
||
| 519 | |||
| 520 | $places = array_unique($matches[1]); |
||
| 521 | |||
| 522 | foreach ($places as $place_name) { |
||
| 523 | $place = new Place($place_name, $tree); |
||
| 524 | |||
| 525 | // Calling Place::id() will create the entry in the database, if it doesn't already exist. |
||
| 526 | while ($place->id() !== 0) { |
||
| 527 | $rows[] = [ |
||
| 528 | 'pl_p_id' => $place->id(), |
||
| 529 | 'pl_gid' => $xref, |
||
| 530 | 'pl_file' => $tree->id(), |
||
| 531 | ]; |
||
| 532 | |||
| 533 | $place = $place->parent(); |
||
| 534 | } |
||
| 535 | } |
||
| 536 | |||
| 537 | // array_unique doesn't work with arrays of arrays |
||
| 538 | $rows = array_intersect_key($rows, array_unique(array_map(serialize(...), $rows))); |
||
| 539 | |||
| 540 | // PDO has a limit of 65535 placeholders, and each row requires 3 placeholders. |
||
| 541 | foreach (array_chunk($rows, 20000) as $chunk) { |
||
| 542 | DB::table('placelinks')->insert($chunk); |
||
| 543 | } |
||
| 544 | } |
||
| 545 | |||
| 546 | /** |
||
| 547 | * Extract all the dates from the given record and insert them into the database. |
||
| 548 | */ |
||
| 549 | private function updateDates(string $xref, int $ged_id, string $gedrec): void |
||
| 590 | } |
||
| 591 | |||
| 592 | /** |
||
| 593 | * Extract all the links from the given record and insert them into the database |
||
| 594 | */ |
||
| 595 | private function updateLinks(string $xref, int $ged_id, string $gedrec): void |
||
| 616 | } |
||
| 617 | |||
| 618 | /** |
||
| 619 | * Extract all the names from the given record and insert them into the database. |
||
| 620 | */ |
||
| 621 | private function updateNames(string $xref, int $ged_id, Individual $record): void |
||
| 661 | } |
||
| 662 | |||
| 663 | /** |
||
| 664 | * Extract inline media data, and convert to media objects. |
||
| 665 | */ |
||
| 666 | private function convertInlineMedia(Tree $tree, string $gedcom): string |
||
| 682 | } |
||
| 683 | |||
| 684 | /** |
||
| 685 | * Create a new media object, from inline media data. |
||
| 686 | * |
||
| 687 | * GEDCOM 5.5.1 specifies: +1 FILE / +2 FORM / +3 MEDI / +1 TITL |
||
| 688 | * GEDCOM 5.5 specifies: +1 FILE / +1 FORM / +1 TITL |
||
| 689 | * GEDCOM 5.5.1 says that GEDCOM 5.5 specifies: +1 FILE / +1 FORM / +2 MEDI |
||
| 690 | * |
||
| 691 | * Legacy generates: +1 FORM / +1 FILE / +1 TITL / +1 _SCBK / +1 _PRIM / +1 _TYPE / +1 NOTE |
||
| 692 | * RootsMagic generates: +1 FILE / +1 FORM / +1 TITL |
||
| 693 | */ |
||
| 694 | private function createMediaObject(string $gedcom, Tree $tree): string |
||
| 784 | } |
||
| 785 | |||
| 786 | public function updateRecord(string $gedrec, Tree $tree, bool $delete): void |
||
| 876 | } |
||
| 877 | } |
||
| 878 | } |
||
| 879 |
Loading history...
The issue could also be caused by a filter entry in the build configuration. If the path has been excluded in your configuration, e.g.
excluded_paths: ["lib/*"], you can move it to the dependency path list as follows:For further information see https://scrutinizer-ci.com/docs/tools/php/php-scrutinizer/#list-dependency-paths