/** * Accept any edit changes into the database * Also update the indirec we will use to generate the page */ function acceptChanges() { global $GEDCOM; if (!PGV_USER_CAN_ACCEPT) { return; } if (accept_changes($this->nid . "_" . $GEDCOM)) { $this->show_changes = false; $this->accept_success = true; $indirec = find_other_record($this->nid); //-- check if we just deleted the record and redirect to index if (empty($indirec)) { header("Location: index.php?ctype=gedcom"); exit; } $this->note = new Note($indirec); } }
function print_gedcom_stats($block = true, $config = '', $side, $index) { global $PGV_BLOCKS, $pgv_lang, $ALLOW_CHANGE_GEDCOM, $ctype, $COMMON_NAMES_THRESHOLD, $PGV_IMAGE_DIR, $PGV_IMAGES, $MULTI_MEDIA; global $top10_block_present; if (empty($config)) { $config = $PGV_BLOCKS['print_gedcom_stats']['config']; } if (!isset($config['stat_indi'])) { $config = $PGV_BLOCKS['print_gedcom_stats']['config']; } if (!isset($config['stat_first_death'])) { $config['stat_first_death'] = $PGV_BLOCKS['print_gedcom_stats']['config']['stat_first_death']; } if (!isset($config['stat_last_death'])) { $config['stat_last_death'] = $PGV_BLOCKS['print_gedcom_stats']['config']['stat_last_death']; } if (!isset($config['stat_media'])) { $config['stat_media'] = $PGV_BLOCKS['print_gedcom_stats']['config']['stat_media']; } if (!isset($config['stat_link'])) { $config['stat_link'] = $PGV_BLOCKS['print_gedcom_stats']['config']['stat_link']; } $id = 'gedcom_stats'; $title = print_help_link('index_stats_help', 'qm', '', false, true); if ($PGV_BLOCKS['print_gedcom_stats']['canconfig']) { if ($ctype == 'gedcom' && PGV_USER_GEDCOM_ADMIN || $ctype == 'user' && PGV_USER_ID) { if ($ctype == 'gedcom') { $name = PGV_GEDCOM; } else { $name = PGV_USER_NAME; } $title .= "<a href=\"javascript: configure block\" onclick=\"window.open('" . encode_url("index_edit.php?name={$name}&ctype={$ctype}&action=configure&side={$side}&index={$index}") . "', '_blank', 'top=50,left=50,width=700,height=400,scrollbars=1,resizable=1'); return false;\">"; $title .= "<img class=\"adminicon\" src=\"{$PGV_IMAGE_DIR}/" . $PGV_IMAGES['admin']['small'] . "\" width=\"15\" height=\"15\" border=\"0\" alt=\"" . $pgv_lang['config_block'] . "\" /></a>"; } } $title .= $pgv_lang['gedcom_stats']; $stats = new stats(PGV_GEDCOM); $content = "<b><a href=\"index.php?ctype=gedcom\">" . PrintReady(strip_tags(get_gedcom_setting(PGV_GED_ID, 'title'))) . "</a></b><br />"; $head = find_other_record('HEAD', PGV_GED_ID); $ct = preg_match('/1 SOUR (.*)/', $head, $match); if ($ct > 0) { $softrec = get_sub_record(1, '1 SOUR', $head); $tt = preg_match('/2 NAME (.*)/', $softrec, $tmatch); if ($tt > 0) { $software = printReady(trim($tmatch[1])); } else { $software = trim($match[1]); } if (!empty($software)) { $text = str_replace(array('#SOFTWARE#', '#CREATED_SOFTWARE#'), $software, $pgv_lang['gedcom_created_using']); $tt = preg_match('/2 VERS (.*)/', $softrec, $tmatch); if ($tt > 0) { $version = printReady(trim($tmatch[1])); } else { $version = ''; } $text = str_replace(array('#VERSION#', '#CREATED_VERSION#'), $version, $text); $content .= $text; } } if (preg_match('/1 DATE (.+)/', $head, $match)) { if (empty($software)) { $content .= str_replace(array('#DATE#', '#CREATED_DATE#'), $stats->gedcomDate(), $pgv_lang['gedcom_created_on']); } else { $content .= str_replace(array('#DATE#', '#CREATED_DATE#'), $stats->gedcomDate(), $pgv_lang['gedcom_created_on2']); } } $content .= '<br /><table><tr><td valign="top" class="width20"><table cellspacing="1" cellpadding="0">'; if ($config['stat_indi'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_individuals'] . '</td><td class="facts_value"><div dir="rtl"><a href="' . encode_url("indilist.php?surname_sublist=no&ged=" . PGV_GEDCOM) . '">' . $stats->totalIndividuals() . '</a></div></td></tr>'; $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_males'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->totalSexMales() . '<br />' . $stats->totalSexMalesPercentage() . '%</div></td></tr>'; $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_females'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->totalSexFemales() . '<br />' . $stats->totalSexFemalesPercentage() . '%</div></td></tr>'; } if ($config['stat_surname'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_surnames'] . '</td><td class="facts_value"><div dir="rtl"><a href="' . encode_url("indilist.php?show_all=yes&surname_sublist=yes&ged=" . PGV_GEDCOM) . '">' . $stats->totalSurnames() . '</a></div></td></tr>'; } if ($config['stat_fam'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_families'] . '</td><td class="facts_value"><div dir="rtl"><a href="famlist.php">' . $stats->totalFamilies() . '</a></div></td></tr>'; } if ($config['stat_sour'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_sources'] . '</td><td class="facts_value"><div dir="rtl"><a href="sourcelist.php">' . $stats->totalSources() . '</a></div></td></tr>'; } if ($config['stat_media'] == 'yes' && $MULTI_MEDIA == true) { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_media'] . '</td><td class="facts_value"><div dir="rtl"><a href="medialist.php">' . $stats->totalMedia() . '</a></div></td></tr>'; } if ($config['stat_other'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_other'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->totalOtherRecords() . '</div></td></tr>'; } if ($config['stat_events'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_events'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->totalEvents() . '</div></td></tr>'; } if ($config['stat_users'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_users'] . '</td><td class="facts_value"><div dir="rtl">'; if (PGV_USER_GEDCOM_ADMIN) { $content .= '<a href="useradmin.php">' . $stats->totalUsers() . '</a>'; } else { $content .= $stats->totalUsers(); } $content .= '</div> </td> </tr>'; } if (!$block) { $content .= '</table></td><td><br /></td><td valign="top"><table cellspacing="1" cellpadding="1" border="0">'; } if ($config['stat_first_birth'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_earliest_birth'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->firstBirthYear() . '</div></td>'; if (!$block) { $content .= '<td class="facts_value">' . $stats->firstBirth() . '</td>'; } $content .= '</tr>'; } if ($config['stat_last_birth'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_latest_birth'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->lastBirthYear() . '</div></td>'; if (!$block) { $content .= '<td class="facts_value">' . $stats->lastBirth() . '</td>'; } $content .= '</tr>'; } if ($config['stat_first_death'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_earliest_death'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->firstDeathYear() . '</div></td>'; if (!$block) { $content .= '<td class="facts_value">' . $stats->firstDeath() . '</td>'; } $content .= '</tr>'; } if ($config['stat_last_death'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_latest_death'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->lastDeathYear() . '</div> </td>'; if (!$block) { $content .= '<td class="facts_value">' . $stats->lastDeath() . '</td>'; } $content .= '</tr>'; } if ($config['stat_long_life'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_longest_life'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->LongestLifeAge() . '</div></td>'; if (!$block) { $content .= '<td class="facts_value">' . $stats->LongestLife() . '</td>'; } $content .= '</tr>'; } if ($config['stat_avg_life'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_avg_age_at_death'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->averageLifespan() . '</div></td>'; if (!$block) { $content .= '<td class="facts_value">' . $pgv_lang['stat_males'] . ': ' . $stats->averageLifespanMale(); $content .= ' ' . $pgv_lang['stat_females'] . ': ' . $stats->averageLifespanFemale() . '</td>'; } $content .= '</tr>'; } if ($config['stat_most_chil'] == 'yes' && !$block) { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_most_children'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->largestFamilySize() . '</div></td>'; if (!$block) { $content .= '<td class="facts_value">' . $stats->largestFamily() . '</td>'; } $content .= '</tr>'; } if ($config['stat_avg_chil'] == 'yes') { $content .= '<tr><td class="facts_label">' . $pgv_lang['stat_average_children'] . '</td><td class="facts_value"><div dir="rtl">' . $stats->averageChildren() . '</div></td>'; if (!$block) { $content .= '<td class="facts_value"> </td>'; } $content .= '</tr>'; } $content .= '</table></td></tr></table>'; if ($config['stat_link'] == 'yes') { $content .= '<a href="statistics.php"><b>' . $pgv_lang['stat_link'] . '</b></a><br />'; } // NOTE: Print the most common surnames if ($config['show_common_surnames'] == 'yes') { $surnames = get_common_surnames($COMMON_NAMES_THRESHOLD); if (count($surnames) > 0) { $content .= '<br />'; $content .= print_help_link('index_common_names_help', 'qm', '', false, true); $content .= '<b>' . $pgv_lang['common_surnames'] . '</b><br />'; $i = 0; foreach ($surnames as $indexval => $surname) { if (stristr($surname['name'], '@N.N') === false) { if ($i > 0) { $content .= ', '; } $content .= '<a href="' . encode_url("indilist.php?ged=" . PGV_GEDCOM . "&surname=" . $surname['name']) . '">' . PrintReady($surname['name']) . '</a>'; $i++; } } } } global $THEME_DIR; if ($block) { require $THEME_DIR . 'templates/block_small_temp.php'; } else { require $THEME_DIR . 'templates/block_main_temp.php'; } }
/** * get gedcom tag value * * returns the value of a gedcom tag from the given gedcom record * @param string $tag The tag to find, use : to delineate subtags * @param int $level The gedcom line level of the first tag to find, setting level to 0 will cause it to use 1+ the level of the incoming record * @param string $gedrec The gedcom record to get the value from * @param int $truncate Should the value be truncated to a certain number of characters * @param boolean $convert Should data like dates be converted using the configuration settings * @return string */ function get_gedcom_value($tag, $level, $gedrec, $truncate = '', $convert = true) { global $SHOW_PEDIGREE_PLACES, $pgv_lang; if (empty($gedrec)) { return ""; } $tags = explode(':', $tag); $origlevel = $level; if ($level == 0) { $level = $gedrec[0] + 1; } $subrec = $gedrec; foreach ($tags as $indexval => $t) { $lastsubrec = $subrec; $subrec = get_sub_record($level, "{$level} {$t}", $subrec); if (empty($subrec) && $origlevel == 0) { $level--; $subrec = get_sub_record($level, "{$level} {$t}", $lastsubrec); } if (empty($subrec)) { if ($t == "TITL") { $subrec = get_sub_record($level, "{$level} ABBR", $lastsubrec); if (!empty($subrec)) { $t = "ABBR"; } } if (empty($subrec)) { if ($level > 0) { $level--; } $subrec = get_sub_record($level, "@ {$t}", $gedrec); if (empty($subrec)) { return; } } } $level++; } $level--; $ct = preg_match("/{$level} {$t}(.*)/", $subrec, $match); if ($ct == 0) { $ct = preg_match("/{$level} @.+@ (.+)/", $subrec, $match); } if ($ct == 0) { $ct = preg_match("/@ {$t} (.+)/", $subrec, $match); } if ($ct > 0) { $value = trim($match[1]); $ct = preg_match("/@(.*)@/", $value, $match); if ($ct > 0 && $t != "DATE") { $oldsub = $subrec; switch ($t) { case 'HUSB': case 'WIFE': case 'CHIL': $subrec = find_person_record($match[1]); break; case 'FAMC': case 'FAMS': $subrec = find_family_record($match[1]); break; case 'SOUR': $subrec = find_source_record($match[1]); break; case 'REPO': $subrec = find_other_record($match[1]); break; default: $subrec = find_gedcom_record($match[1]); break; } if ($subrec) { $value = $match[1]; $ct = preg_match("/0 @{$match['1']}@ {$t} (.+)/", $subrec, $match); if ($ct > 0) { $value = $match[1]; $level = 0; } else { $subrec = $oldsub; } } else { //-- set the value to the id without the @ $value = $match[1]; } } if ($level != 0 || $t != "NOTE") { $value .= get_cont($level + 1, $subrec); } $value = preg_replace("'\n'", "", $value); $value = preg_replace("'<br />'", "\n", $value); $value = trim($value); //-- if it is a date value then convert the date if ($convert && $t == "DATE") { $g = new GedcomDate($value); $value = $g->Display(); if (!empty($truncate)) { if (UTF8_strlen($value) > $truncate) { $value = preg_replace("/\\(.+\\)/", "", $value); //if (UTF8_strlen($value)>$truncate) { // $value = preg_replace_callback("/([a-zśź]+)/ui", create_function('$matches', 'return UTF8_substr($matches[1], 0, 3);'), $value); //} } } } else { //-- if it is a place value then apply the pedigree place limit if ($convert && $t == "PLAC") { if ($SHOW_PEDIGREE_PLACES > 0) { $plevels = explode(',', $value); $value = ""; for ($plevel = 0; $plevel < $SHOW_PEDIGREE_PLACES; $plevel++) { if (!empty($plevels[$plevel])) { if ($plevel > 0) { $value .= ", "; } $value .= trim($plevels[$plevel]); } } } if (!empty($truncate)) { if (strlen($value) > $truncate) { $plevels = explode(',', $value); $value = ""; for ($plevel = 0; $plevel < count($plevels); $plevel++) { if (!empty($plevels[$plevel])) { if (strlen($plevels[$plevel]) + strlen($value) + 3 < $truncate) { if ($plevel > 0) { $value .= ", "; } $value .= trim($plevels[$plevel]); } else { break; } } } } } } else { if ($convert && $t == "SEX") { if ($value == "M") { $value = get_first_letter($pgv_lang["male"]); } elseif ($value == "F") { $value = get_first_letter($pgv_lang["female"]); } else { $value = get_first_letter($pgv_lang["unknown"]); } } else { if (!empty($truncate)) { if (strlen($value) > $truncate) { $plevels = explode(' ', $value); $value = ""; for ($plevel = 0; $plevel < count($plevels); $plevel++) { if (!empty($plevels[$plevel])) { if (strlen($plevels[$plevel]) + strlen($value) + 3 < $truncate) { if ($plevel > 0) { $value .= " "; } $value .= trim($plevels[$plevel]); } else { break; } } } } } } } } return $value; } return ""; }
static function gedcomDate() { global $DATE_FORMAT; $head = find_other_record('HEAD'); if (preg_match("/1 DATE (.+)/", $head, $match)) { $date = new GedcomDate($match[1]); return $date->Display(false, $DATE_FORMAT); // Override $PUBLIC_DATE_FORMAT } return ''; }