PHP GedcomRecord::getXref示例

     foreach ($value as $tag => $value1) {
         foreach ($value1 as $key => $setting) {
             if (isset($v_person_facts_del[$id][$tag][$key]) || $id == $v_new_person_facts_access_ID && $tag == $v_new_person_facts_abbr && $key == $v_new_person_facts_choice) {
                 continue;
             }
             if (isset($v_person_facts[$id][$tag][$key])) {
                 $person_privacy_text .= "\$person_facts['{$id}']['{$tag}']['{$key}'] = " . $v_person_facts[$id][$tag][$key] . ";\n";
             } else {
                 $person_privacy_text .= "\$person_facts['{$id}']['{$tag}']['{$key}'] = " . $PRIVACY_CONSTANTS[$setting] . ";\n";
             }
         }
     }
 }
 if ($v_new_person_facts_access_ID && $v_new_person_facts_abbr && $v_new_global_facts_choice && $v_new_global_facts_access_option) {
     $gedobj = new GedcomRecord(find_gedcom_record($v_new_person_facts_access_ID, PGV_GED_ID));
     $v_new_person_facts_access_ID = $gedobj->getXref();
     if ($v_new_person_facts_access_ID) {
         $person_privacy_text .= "\$person_facts['{$v_new_person_facts_access_ID}']['{$v_new_person_facts_abbr}']['{$v_new_person_facts_choice}'] = " . $v_new_person_facts_access_option . ";\n";
     }
 }
 $configtext = $configtext_beg . $person_privacy_text . $configtext_end;
 $PRIVACY_MODULE = $INDEX_DIRECTORY . $GEDCOM . "_priv.php";
 $fp = @fopen($PRIVACY_MODULE, "wb");
 if (!$fp) {
     global $whichFile;
     $whichFile = $PRIVACY_MODULE;
     print "<span class=\"error\">" . print_text("gedcom_config_write_error", 0, 1) . "<br /></span>\n";
 } else {
     fwrite($fp, $configtext);
     fclose($fp);
 }