";
echo "| ";
if ($SHOW_FACT_ICONS)
echo $eventObj->Icon(), ' ';
if ($ct>0) {
if ($factref=='image_size') echo i18n::translate('Image Dimensions');
else if ($factref=='file_size') echo i18n::translate('File Size');
else if (!$noedit && WT_USER_CAN_EDIT && $styleadd!="change_old" && $linenum>0 && $eventObj->canEdit()) {
echo "". $factref. "";
echo "";
} else {
echo $factref;
}
} else if (!$noedit && WT_USER_CAN_EDIT && $styleadd!="change_old" && $linenum>0 && $eventObj->canEdit()) {
echo "". translate_fact($factref, $label_person). "";
echo "";
} else {
echo translate_fact($factref, $label_person);
}
echo " | ";
}
$align = "";
echo "";
//echo " | ";
if ((canDisplayFact($pid, WT_GED_ID, $factrec))) {
// -- first print TYPE for some facts
if ($fact!="EVEN" && $fact!="FACT") {
if (preg_match("/2 TYPE (.*)/", $factrec, $match)) {
if ($fact=="MARR") {
echo translate_fact("MARR_".strtoupper($match[1]), $label_person);
} else {
echo $match[1];
}
echo "
";
}
}
//-- print spouse name for marriage events
if (preg_match("/_WTS @(.*)@/", $factrec, $match)) {
$spouse=Person::getInstance($match[1]);
if ($spouse) {
echo " getHtmlUrl(), "\">";
if ($spouse->canDisplayName()) {
echo PrintReady($spouse->getFullName());
} else {
echo i18n::translate('Private');
}
echo "";
}
if (empty($SEARCH_SPIDER)) {
$family = Family::getInstance($pid);
if ($family) {
if ($spouse) echo " - ";
echo '', i18n::translate('View Family'), '';
echo '
';
}
}
}
// -- find date for each fact
echo format_fact_date($eventObj, true, true);
//-- print other characterizing fact information
if ($event!="" && $fact!="ASSO") {
echo " ";
$ct = preg_match("/@(.*)@/", $event, $match);
if ($ct>0) {
$gedrec=GedcomRecord::getInstance($match[1]);
if (is_object($gedrec)) {
if ($gedrec->getType()=='INDI') {
echo '', $gedrec->getFullName(), '
';
} elseif ($fact=='REPO') {
print_repository_record($match[1]);
} else {
print_submitter_info($match[1]);
}
}
}
else if ($fact=="ALIA") {
//-- strip // from ALIA tag for FTM generated gedcoms
echo preg_replace("'/'", "", $event), "
";
}
/* -- see the format_fact_date function where this is handled
else if ($event=="Y") {
if (get_sub_record(2, "2 DATE", $factrec)=="") {
echo i18n::translate('Yes'), "
";
}
}*/
elseif ($event=="N") {
if (get_sub_record(2, "2 DATE", $factrec)=="") {
echo i18n::translate('No');
}
} elseif (strstr("URL WWW ", $fact." ")) {
echo "", PrintReady($event), "";
} elseif (strstr("_EMAIL", $fact)) {
echo "", $event, "";
} elseif (strstr("AFN", $fact)) {
echo '', $event, '';
} elseif (strstr('FAX PHON ', $fact.' ')) {
echo getLRM(), $event, ' ' , getLRM();
} elseif (strstr('FILE ', $fact.' ')) {
if ($SHOW_MEDIA_FILENAME || WT_USER_GEDCOM_ADMIN) echo getLRM(), $event, ' ' , getLRM();
} elseif ($fact=='RESN' && array_key_exists($event, $RESN_CODES)) {
echo $RESN_CODES[$event];
} elseif ($event!='Y') {
if (!strstr('ADDR _CREM ', substr($fact, 0, 5).' ')) {
if ($factref=='file_size' || $factref=='image_size') {
echo PrintReady($rawEvent);
} else {
echo PrintReady($event);
}
}
}
$temp = trim(get_cont(2, $factrec));
if (strstr("PHON ADDR ", $fact." ")===false && $temp!="") {
echo PrintReady($temp);
}
}
//-- find description for some facts
$ct = preg_match("/2 DESC (.*)/", $factrec, $match);
if ($ct>0) echo PrintReady($match[1]);
// -- print PLACe, TEMPle and STATus
echo '', format_fact_place($eventObj, true, true, true), ' ';
if (preg_match("/ (PLAC)|(STAT)|(TEMP)|(SOUR) /", $factrec)>0 || ($event && $fact!="ADDR")) print "
";
// -- print BURIal -> CEMEtery
$ct = preg_match("/2 CEME (.*)/", $factrec, $match);
if ($ct>0) {
if ($SHOW_FACT_ICONS && file_exists(WT_THEME_DIR."images/facts/CEME.gif"))
//echo $eventObj->Icon(), ' '; // echo incorrect fact icon !!!
echo "![\"".translate_fact('CEME')."\"](\"".WT_THEME_DIR."images/facts/CEME.gif\" "\\"\".translate_fact('CEME').\"\\"") ";
echo "", translate_fact('CEME'), ": ", $match[1], "
";
}
//-- print address structure
if ($fact!="ADDR") {
print_address_structure($factrec, 2);
}
else {
print_address_structure($factrec, 1);
}
// -- Enhanced ASSOciates > RELAtionship
print_asso_rela_record($pid, $factrec, true, gedcom_record_type($pid, get_id_from_gedcom($GEDCOM)));
// -- find _WT_USER field
if (preg_match("/\n2 _WT_USER (.+)/", $factrec, $match)) {
$fullname=getUserFullname(getUserId($match[1])); // may not exist
echo ' - ', translate_fact('_WT_USER'), ': ';
if ($fullname) {
echo ''.$match[1].'';
} else {
echo $match[1];
}
}
// -- Find RESN tag
if (isset($resn_value)) {
echo '![', $RESN_CODES[$resn_value], '](images/RESN_', $resn_value, '.gif "', $RESN_CODES[$resn_value], '") ';
echo help_link('RESN');
}
if (preg_match("/\n2 FAMC @(.+)@/", $factrec, $match)) {
echo "
", translate_fact('FAMC'), ": ";
$family=Family::getInstance($match[1]);
if ($family) { // May be a pointer to a non-existant record
echo '', $family->getFullName(), '';
} else {
echo '', $match[1], '';
}
if (preg_match("/\n3 ADOP (HUSB|WIFE|BOTH)/", utf8_strtoupper($factrec), $match)) {
echo '
', translate_fact('ADOP'), ': ';
echo '';
switch ($match[1]) {
case 'HUSB':
case 'WIFE':
echo translate_fact($match[1]);
break;
case 'BOTH':
echo translate_fact('HUSB'), '+', translate_fact('WIFE');
break;
}
echo '';
}
}
// 0 SOUR/1 DATA/2 EVEN/3 DATE/3 PLAC
$data_rec = get_sub_record(1, "1 DATA", $factrec, 1);
if (!empty($data_rec)) {
for ($even_num=1; $even_rec=get_sub_record(2, "2 EVEN", $data_rec, $even_num); ++$even_num) {
$tmp1=get_gedcom_value('EVEN', 2, $even_rec, $truncate='', $convert=false);
$tmp2=new GedcomDate(get_gedcom_value('DATE', 3, $even_rec, $truncate='', $convert=false));
$tmp3=get_gedcom_value('PLAC', 3, $even_rec, $truncate='', $convert=false);
$fact_string = "";
if ($even_num>1)
$fact_string .= "
";
$fact_string .= "";
foreach (preg_split('/\W+/', $tmp1) as $key=>$value) {
if ($key>0)
$fact_string .= ", ";
$fact_string .= i18n::translate($value);
}
$fact_string .= "";
if ($tmp2->Display(false, '', array())!=" ") $fact_string .= " - ".$tmp2->Display(false, '', array());
if ($tmp3!='') $fact_string .= " - ".$tmp3;
echo $fact_string;
}
}
if ($fact!="ADDR") {
//-- catch all other facts that could be here
$special_facts = array("ADDR", "ALIA", "ASSO", "CEME", "CONT", "DATE", "DESC", "EMAIL",
"FAMC", "FAMS", "FAX", "NOTE", "OBJE", "PHON", "PLAC", "RESN", "RELA", "SOUR", "STAT", "TEMP",
"TIME", "TYPE", "WWW", "_EMAIL", "_WT_USER", "URL", "AGE", "_WTS", "_WTFS");
$ct = preg_match_all("/\n2 (\w+) (.*)/", $factrec, $match, PREG_SET_ORDER);
if ($ct>0) echo "
";
for ($i=0; $i<$ct; $i++) {
$factref = $match[$i][1];
if (!in_array($factref, $special_facts)) {
$label = translate_fact($fact.':'.$factref, $label_person);
if (!$HIDE_GEDCOM_ERRORS || array_key_exists($fact, $FACTS)) {
if ($SHOW_FACT_ICONS && file_exists(WT_THEME_DIR."images/facts/".$factref.".gif")) {
echo "![\"{$label}\"](\"".WT_THEME_DIR."images/facts/", "\\"{$label}\\"") ";
} else {
echo "", $label, ": ";
}
echo htmlspecialchars($match[$i][2]);
$sub_rec = get_sub_record(2, "2 ".$factref, $factrec, 1);
$tmp=new GedcomDate(get_gedcom_value('DATE', 3, $sub_rec, $truncate='', $convert=false));
if ($tmp->Display(true)!=" ") echo " - ".$tmp->Display(true);
echo "
";
}
}
}
}
// -- find source for each fact
print_fact_sources($factrec, 2);
// -- find notes for each fact
print_fact_notes($factrec, 2);
//-- find multimedia objects
print_media_links($factrec, 2, $pid);
}
echo "
";
echo " | ";
echo "
";
}
//------------------- end print fact function
/**
* print a submitter record
*
* find and print submitter information
* @param string $sid the Gedcom Xref ID of the submitter to print
*/
function print_submitter_info($sid) {
global $GEDCOM;
$ged_id=get_id_from_gedcom($GEDCOM);
$srec = find_gedcom_record($sid, $ged_id);
preg_match("/1 NAME (.*)/", $srec, $match);
// PAF creates REPO record without a name
// Check here if REPO NAME exists or not
if (isset($match[1])) echo $match[1], "";
$cn = preg_match("/$nlevel _NAME (.*)/", $arec, $cmatch);
if ($cn>0) $resultText .= str_replace("/", "", $cmatch[1])."
";
$resultText .= PrintReady(trim($omatch[$i][1]));
$cont = get_cont($nlevel, $arec);
if (!empty($cont)) $resultText .= str_replace(array(" ", " 0) echo "
";
$cs = preg_match("/$nlevel ADR1 (.*)/", $arec, $cmatch);
if ($cs>0) {
if ($cn==0) {
$resultText .= "
";
$cn=0;
}
$resultText .= PrintReady($cmatch[1]);
}
$cs = preg_match("/$nlevel ADR2 (.*)/", $arec, $cmatch);
if ($cs>0) {
if ($cn==0) {
$resultText .= "
";
$cn=0;
}
$resultText .= PrintReady($cmatch[1]);
}
if (!$POSTAL_CODE) {
$cs = preg_match("/$nlevel POST (.*)/", $arec, $cmatch);
if ($cs>0) {
$resultText .= "
".PrintReady($cmatch[1]);
}
$cs = preg_match("/$nlevel CITY (.*)/", $arec, $cmatch);
if ($cs>0) {
$resultText .= " ".PrintReady($cmatch[1]);
}
$cs = preg_match("/$nlevel STAE (.*)/", $arec, $cmatch);
if ($cs>0) {
$resultText .= ", ".PrintReady($cmatch[1]);
}
}
else {
$cs = preg_match("/$nlevel CITY (.*)/", $arec, $cmatch);
if ($cs>0) {
$resultText .= "
".PrintReady($cmatch[1]);
}
$cs = preg_match("/$nlevel STAE (.*)/", $arec, $cmatch);
if ($cs>0) {
$resultText .= ", ".PrintReady($cmatch[1]);
}
$cs = preg_match("/$nlevel POST (.*)/", $arec, $cmatch);
if ($cs>0) {
$resultText .= " ".PrintReady($cmatch[1]);
}
}
$cs = preg_match("/$nlevel CTRY (.*)/", $arec, $cmatch);
if ($cs>0) {
$resultText .= "
".PrintReady($cmatch[1]);
}
}
if ($level>1) $resultText .= "
";
// Here we can examine the resultant text and remove empty tags
echo $resultText;
}
$resultText = "";
$resultText .= "";
echo "";
$temp = preg_match("/^\d (\w*)/", $factrec, $factname);
$factlines = explode("\n", $factrec); // 1 BIRT Y\n2 SOUR ...
$factwords = explode(" ", $factlines[0]); // 1 BIRT Y
$factname = $factwords[1]; // BIRT
$parent=GedcomRecord::getInstance($pid);
if ($factname == "EVEN" || $factname=="FACT") {
// Add ' EVEN' to provide sensible output for an event with an empty TYPE record
$ct = preg_match("/2 TYPE (.*)/", $factrec, $ematch);
if ($ct>0) {
$factname = trim($ematch[1]);
echo $factname;
} else {
echo translate_fact($factname, $parent);
}
} else
if (!$noedit && WT_USER_CAN_EDIT && !FactEditRestricted($pid, $factrec) && $styleadd!="red") {
echo "";
if ($level==1) echo "![\"\"](\"",) ";
echo translate_fact($factname, $parent). "";
echo "";
} else {
echo translate_fact($factname, $parent);
}
echo " | ";
echo "";
//echo " | ";
$source=Source::getInstance($sid);
if ($source) {
echo "getHtmlUrl(), "\">", PrintReady($source->getFullName()), "";
// PUBL
$text = get_gedcom_value("PUBL", "1", $source->getGedcomRecord());
if (!empty($text)) {
echo "
", translate_fact('PUBL'), ": ";
echo $text;
}
// See if RESN tag prevents display or edit/delete
$resn_tag = preg_match("/2 RESN (.*)/", $factrec, $rmatch);
if ($resn_tag > 0) $resn_value = strtolower(trim($rmatch[1]));
// -- Find RESN tag
if (isset($resn_value)) {
echo '';
echo help_link('RESN');
}
$cs = preg_match("/$nlevel EVEN (.*)/", $srec, $cmatch);
if ($cs>0) {
echo "
", translate_fact('EVEN'), " ", $cmatch[1], "";
$cs = preg_match("/".($nlevel+1)." ROLE (.*)/", $srec, $cmatch);
if ($cs>0) echo "
", translate_fact('ROLE'), " $cmatch[1]";
}
if ($source) {
echo printSourceStructure(getSourceStructure($srec));
echo "";
print_media_links($srec, $nlevel);
if ($nlevel==2) {
print_media_links($source->getGedcomRecord(), 1);
}
print_fact_notes($srec, $nlevel);
if ($nlevel==2) {
print_fact_notes($source->getGedcomRecord(), 1);
}
echo " ";
}
}
echo " |
";
}
}
}
/**
* Print SOUR structure
*
* This function prints the input array of SOUR sub-records built by the
* getSourceStructure() function.
*/
function printSourceStructure($textSOUR) {
$html='';
if ($textSOUR['PAGE']) {
$html.='0) {
$nid = $nmatch[1];
if (empty($styleadd) && find_updated_record($nid, WT_GED_ID)!==null) {
$styleadd = "change_old";
$newfactrec = $factrec.="\nWT_NEW";
print_main_notes($factrec, $level, $pid, $linenum, $noedit);
}
}
if ($level>=2) echo "";
else echo "
";
echo "| =2) echo " rela";
echo " $styleadd width20\">";
if (!$noedit && WT_USER_CAN_EDIT && !FactEditRestricted($pid, $factrec) && $styleadd!="change_old") {
echo "";
if ($level<2) {
echo "";
if (strstr($factrec, "1 NOTE @" )) {
echo translate_fact('SHARED_NOTE');
} else {
echo translate_fact('NOTE');
}
echo "";
echo "";
}
} else {
if ($level<2) {
echo "";
if (strstr($factrec, "1 NOTE @" )) {
echo translate_fact('SHARED_NOTE');
} else {
echo translate_fact('NOTE');
}
}
$factlines = explode("\n", $factrec); // 1 BIRT Y\n2 NOTE ...
$factwords = explode(" ", $factlines[0]); // 1 BIRT Y
$factname = $factwords[1]; // BIRT
$parent=GedcomRecord::getInstance($pid);
if ($factname == "EVEN" || $factname=="FACT") {
// Add ' EVEN' to provide sensible output for an event with an empty TYPE record
$ct = preg_match("/2 TYPE (.*)/", $factrec, $ematch);
if ($ct>0) {
$factname = trim($ematch[1]);
echo $factname;
} else {
echo translate_fact($factname, $parent);
}
} else if ($factname != "NOTE") {
// Note is already printed
echo translate_fact($factname, $parent);
}
}
echo " | ";
if ($nt==0) {
//-- print embedded note records
$text = preg_replace("/~~/", "
", trim($match[$j][1]));
$text .= get_cont($nlevel, $nrec);
$text = expand_urls($text);
$text = PrintReady($text);
} else {
//-- print linked/shared note records
$note=Note::getInstance($nid);
if ($note) {
$noterec=$note->getGedcomRecord();
$nt = preg_match("/^0 @[^@]+@ NOTE (.*)/", $noterec, $n1match);
$text = "";
$centitl = "";
if ($nt>0) {
// If Census assistant installed, enable hotspot link on shared note title ---------------------
if (file_exists(WT_ROOT.'modules/GEDFact_assistant/_CENS/census_note_decode.php')) {
$centitl = str_replace("~~", "", trim($n1match[1]));
$centitl = str_replace("
", "", $centitl);
$centitl = "".$centitl."";
} else {
$text = preg_replace("/~~/", "
", trim($n1match[1]));
}
}
$text .= get_cont(1, $noterec);
$text = expand_urls($text);
$text = PrintReady($text)."
";
// If Census assistant installed, and if Formatted Shared Note (using pipe "|" as delimiter) -------
if (strstr($text, "|") && file_exists(WT_ROOT.'modules/GEDFact_assistant/_CENS/census_note_decode.php')) {
require WT_ROOT.'modules/GEDFact_assistant/_CENS/census_note_decode.php';
} else {
$text = $centitl."".$text;
}
} else {
$text = '' . i18n::translate('** WARNING **
There is no shared note with id = ') . $nid . '';
if (WT_USER_CAN_EDIT) {
$text .= '' . i18n::translate('
Choose Edit and verify the shared note id by clicking on the icon "Find Shared Note".') . '';
}
}
}
$align = "";
if (!empty($text)) {
if ($TEXT_DIRECTION=="rtl" && !hasRTLText($text) && hasLTRText($text)) $align=" align=\"left\"";
if ($TEXT_DIRECTION=="ltr" && !hasLTRText($text) && hasRTLText($text)) $align=" align=\"right\"";
}
echo "";
if (!empty($text)) {
echo $text;
if (!empty($noterec)) print_fact_sources($noterec, 1);
// See if RESN tag prevents display or edit/delete
$resn_tag = preg_match("/2 RESN (.*)/", $factrec, $rmatch);
if ($resn_tag > 0) $resn_value = strtolower(trim($rmatch[1]));
// -- Find RESN tag
if (isset($resn_value)) {
echo '';
echo help_link('RESN');
}
echo "
";
print_fact_sources($nrec, $nlevel);
}
echo " |
";
}
}
/**
* Print the links to multi-media objects
* @param string $pid The the xref id of the object to find media records related to
* @param int $level The level of media object to find
* @param boolean $related Whether or not to grab media from related records
*/
function print_main_media($pid, $level=1, $related=false, $noedit=false) {
global $GEDCOM, $MEDIATYPE;
$ged_id=get_id_from_gedcom($GEDCOM);
$gedrec = find_gedcom_record($pid, $ged_id, true);
$ids = array($pid);
//-- find all of the related ids
if ($related) {
$ct = preg_match_all("/1 FAMS @(.*)@/", $gedrec, $match, PREG_SET_ORDER);
for ($i=0; $i<$ct; $i++) {
$ids[] = trim($match[$i][1]);
}
}
//LBox -- if exists, get a list of the sorted current objects in the indi gedcom record - (1 _WT_OBJE_SORT @xxx@ .... etc) ----------
$sort_current_objes = array();
if ($level>0) $sort_regexp = "/".$level." _WT_OBJE_SORT @(.*)@/";
else $sort_regexp = "/_WT_OBJE_SORT @(.*)@/";
$sort_ct = preg_match_all($sort_regexp, $gedrec, $sort_match, PREG_SET_ORDER);
for ($i=0; $i<$sort_ct; $i++) {
if (!isset($sort_current_objes[$sort_match[$i][1]])) $sort_current_objes[$sort_match[$i][1]] = 1;
else $sort_current_objes[$sort_match[$i][1]]++;
$sort_obje_links[$sort_match[$i][1]][] = $sort_match[$i][0];
}
// -----------------------------------------------------------------------------------------------
// create ORDER BY list from Gedcom sorted records list ---------------------------
$orderbylist = 'ORDER BY '; // initialize
foreach ($sort_match as $id) {
$orderbylist .= "m_media='$id[1]' DESC, ";
}
$orderbylist = rtrim($orderbylist, ', ');
// -----------------------------------------------------------------------------------------------
//-- get a list of the current objects in the record
$current_objes = array();
if ($level>0) $regexp = "/".$level." OBJE @(.*)@/";
else $regexp = "/OBJE @(.*)@/";
$ct = preg_match_all($regexp, $gedrec, $match, PREG_SET_ORDER);
for ($i=0; $i<$ct; $i++) {
if (!isset($current_objes[$match[$i][1]])) $current_objes[$match[$i][1]] = 1;
else $current_objes[$match[$i][1]]++;
$obje_links[$match[$i][1]][] = $match[$i][0];
}
$media_found = false;
$sqlmm = "SELECT ";
$sqlmm .= "m_media, m_ext, m_file, m_titl, m_gedfile, m_gedrec, mm_gid, mm_gedrec FROM `##media`, `##media_mapping` where ";
$sqlmm .= "mm_gid IN (";
$vars=array();
$i=0;
foreach ($ids as $key=>$id) {
if ($i>0) $sqlmm .= ", ";
$sqlmm .= "?";
$vars[]=$id;
$i++;
}
$sqlmm .= ") AND mm_gedfile=? AND mm_media=m_media AND mm_gedfile=m_gedfile ";
$vars[]=WT_GED_ID;
//-- for family and source page only show level 1 obje references
if ($level>0) {
$sqlmm .= "AND mm_gedrec LIKE ?";
$vars[]="{$level} OBJE%";
}
// LBox --- media sort -------------------------------------
if ($sort_ct>0) {
$sqlmm .= $orderbylist;
} else {
$sqlmm .= " ORDER BY mm_gid DESC ";
}
// ---------------------------------------------------------------
$rows=WT_DB::prepare($sqlmm)->execute($vars)->fetchAll(PDO::FETCH_ASSOC);
$foundObjs = array();
foreach ($rows as $rowm) {
if (isset($foundObjs[$rowm['m_media']])) {
if (isset($current_objes[$rowm['m_media']])) $current_objes[$rowm['m_media']]--;
continue;
}
// NOTE: Determine the size of the mediafile
$imgwidth = 300+40;
$imgheight = 300+150;
if (isFileExternal($rowm["m_file"])) {
if (in_array($rowm["m_ext"], $MEDIATYPE)) {
$imgwidth = 400+40;
$imgheight = 500+150;
}
else {
$imgwidth = 800+40;
$imgheight = 400+150;
}
}
else {
$imgsize = @findImageSize(check_media_depth($rowm["m_file"], "NOTRUNC"));
if ($imgsize[0]) {
$imgwidth = $imgsize[0]+40;
$imgheight = $imgsize[1]+150;
}
}
$rows=array();
//-- if there is a change to this media item then get the
//-- updated media item and show it
if ($newrec=find_updated_record($rowm["m_media"], $ged_id)) {
$row = array();
$row['m_media'] = $rowm["m_media"];
$row['m_gedfile']=$rowm["m_gedfile"];
$row['m_file'] = get_gedcom_value("FILE", 1, $newrec);
$row['m_titl'] = get_gedcom_value("TITL", 1, $newrec);
if (empty($row['m_titl'])) $row['m_titl'] = get_gedcom_value("FILE:TITL", 1, $newrec);
$row['m_gedrec'] = $newrec;
$et = preg_match("/(\.\w+)$/", $row['m_file'], $ematch);
$ext = "";
if ($et>0) $ext = substr(trim($ematch[1]), 1);
$row['m_ext'] = $ext;
$row['mm_gid'] = $pid;
$row['mm_gedrec'] = $rowm["mm_gedrec"];
$rows['new'] = $row;
$rows['old'] = $rowm;
// $current_objes[$rowm['m_media']]--;
} else {
if (!isset($current_objes[$rowm['m_media']]) && ($rowm['mm_gid']==$pid)) {
$rows['old'] = $rowm;
} else {
$rows['normal'] = $rowm;
if (isset($current_objes[$rowm['m_media']])) {
$current_objes[$rowm['m_media']]--;
}
}
}
foreach ($rows as $rtype => $rowm) {
$res = print_main_media_row($rtype, $rowm, $pid);
$media_found = $media_found || $res;
$foundObjs[$rowm['m_media']]=true;
}
$media_found = true;
}
//-- objects are removed from the $current_objes list as they are printed
//-- any objects left in the list are new objects recently added to the gedcom
//-- but not yet accepted into the database. We will print them too.
foreach ($current_objes as $media_id=>$value) {
while ($value>0) {
$objSubrec = array_pop($obje_links[$media_id]);
//-- check if we need to get the object from a remote location
$ct = preg_match("/(.*):(.*)/", $media_id, $match);
if ($ct>0) {
require_once WT_ROOT.'includes/classes/class_serviceclient.php';
$client = ServiceClient::getInstance($match[1]);
if (!is_null($client)) {
$newrec = $client->getRemoteRecord($match[2]);
$row['m_media'] = $media_id;
$row['m_gedfile']=$ged_id;
$row['m_file'] = get_gedcom_value("FILE", 1, $newrec);
$row['m_titl'] = get_gedcom_value("TITL", 1, $newrec);
if (empty($row['m_titl'])) $row['m_titl'] = get_gedcom_value("FILE:TITL", 1, $newrec);
$row['m_gedrec'] = $newrec;
$et = preg_match("/(\.\w+)$/", $row['m_file'], $ematch);
$ext = "";
if ($et>0) $ext = substr(trim($ematch[1]), 1);
$row['m_ext'] = $ext;
$row['mm_gid'] = $pid;
$row['mm_gedrec'] = get_sub_record($objSubrec{0}, $objSubrec, $gedrec);
$res = print_main_media_row('normal', $row, $pid);
$media_found = $media_found || $res;
}
} else {
$row = array();
$newrec = find_gedcom_record($media_id, $ged_id, true);
$row['m_media'] = $media_id;
$row['m_gedfile']=$ged_id;
$row['m_file'] = get_gedcom_value("FILE", 1, $newrec);
$row['m_titl'] = get_gedcom_value("TITL", 1, $newrec);
if (empty($row['m_titl'])) $row['m_titl'] = get_gedcom_value("FILE:TITL", 1, $newrec);
$row['m_gedrec'] = $newrec;
$et = preg_match("/(\.\w+)$/", $row['m_file'], $ematch);
$ext = "";
if ($et>0) $ext = substr(trim($ematch[1]), 1);
$row['m_ext'] = $ext;
$row['mm_gid'] = $pid;
$row['mm_gedrec'] = get_sub_record($objSubrec{0}, $objSubrec, $gedrec);
$res = print_main_media_row('new', $row, $pid);
$media_found = $media_found || $res;
}
$value--;
}
}
if ($media_found) return true;
else return false;
}
/**
* print a media row in a table
* @param string $rtype whether this is a 'new', 'old', or 'normal' media row... this is used to determine if the rows should be printed with an outline color
* @param array $rowm An array with the details about this media item
* @param string $pid The record id this media item was attached to
*/
function print_main_media_row($rtype, $rowm, $pid) {
global $WT_IMAGES, $TEXT_DIRECTION, $GEDCOM, $THUMBNAIL_WIDTH, $USE_MEDIA_VIEWER, $SEARCH_SPIDER, $MEDIA_TYPES;
if (!canDisplayRecord($rowm['m_gedfile'], $rowm['m_gedrec'])) {
return false;
}
$styleadd="";
if ($rtype=='new') $styleadd = "change_new";
if ($rtype=='old') $styleadd = "change_old";
// NOTEStart printing the media details
$thumbnail = thumbnail_file($rowm["m_file"], true, false, $pid);
$isExternal = isFileExternal($thumbnail);
$linenum = 0;
echo "| ";
if ($rowm['mm_gid']==$pid && WT_USER_CAN_EDIT && (!FactEditRestricted($rowm['m_media'], $rowm['m_gedrec'])) && ($styleadd!="change_old")) {
echo "";
echo "". translate_fact('OBJE'). "";
echo "";
echo " | ";
}
// NOTE Print the title of the media
echo "";
$mediaTitle = $rowm["m_titl"];
$mainMedia = check_media_depth($rowm["m_file"], "NOTRUNC");
if ($mediaTitle=="") $mediaTitle = basename($rowm["m_file"]);
$imgsize = findImageSize($mainMedia);
$imgwidth = $imgsize[0]+40;
$imgheight = $imgsize[1]+150;
// Check Filetype of media item ( URL, Local or Other )
if (preg_match("/^https?:\/\//i", $rowm['m_file'])) {
$file_type = 'url_';
} else {
$file_type = 'local_';
}
if (preg_match("/\.flv$/i", $rowm['m_file']) && file_exists(WT_ROOT.'js/jw_player/flvVideo.php')) {
$file_type .= 'flv';
} elseif (preg_match("/\.(jpg|jpeg|gif|png)$/i", $rowm['m_file'])) {
$file_type .= 'image';
} elseif (preg_match("/\.(pdf|avi)$/i", $rowm['m_file'])) {
$file_type .= 'page';
} elseif (preg_match("/\.mp3$/i", $rowm['m_file'])) {
$file_type .= 'audio';
} else {
$file_type = 'other';
}
//Get media item Notes
$haystack = $rowm["m_gedrec"];
$needle = "1 NOTE";
$before = substr($haystack, 0, strpos($haystack, $needle));
$after = substr(strstr($haystack, $needle), strlen($needle));
$final = $before.$needle.$after;
$notes = PrintReady(htmlspecialchars(addslashes(print_fact_notes($final, 1, true, true))));
$name = trim($rowm['m_titl']);
// Get info on how to handle this media file
//$mediaInfo = mediaFileInfo($rowm['m_file'], $thumbnail, $rowm['m_media'], $name, $notes);
$mediaInfo = mediaFileInfo($mainMedia, $thumbnail, $rowm['m_media'], $name, $notes);
//-- Thumbnail field
echo '';
echo ' ';
}
if (empty($SEARCH_SPIDER)) {
echo "";
}
if ($TEXT_DIRECTION=="rtl" && !hasRTLText($mediaTitle)) {
echo "", getLRM(), PrintReady(htmlspecialchars($mediaTitle));
} else {
echo "", PrintReady(htmlspecialchars($mediaTitle));
}
$addtitle = get_gedcom_value("TITL:_HEB", 2, $rowm["m_gedrec"]);
if (empty($addtitle)) $addtitle = get_gedcom_value("TITL:_HEB", 1, $rowm["m_gedrec"]);
if (!empty($addtitle)) echo "
", PrintReady(htmlspecialchars($addtitle));
$addtitle = get_gedcom_value("TITL:ROMN", 2, $rowm["m_gedrec"]);
if (empty($addtitle)) $addtitle = get_gedcom_value("TITL:ROMN", 1, $rowm["m_gedrec"]);
if (!empty($addtitle)) echo "
", PrintReady(htmlspecialchars($addtitle));
echo "";
if (empty($SEARCH_SPIDER)) {
echo "";
}
// NOTE: echo the format of the media
if (!empty($rowm["m_ext"])) {
echo "
", translate_fact('FORM'), ": ", $rowm["m_ext"], "";
if (isset($imgsize) and $imgsize[2]!==false) {
echo "
", i18n::translate('Image Dimensions'), ": ", $imgsize[0], $TEXT_DIRECTION =="rtl"?(" " . getRLM() . "x" . getRLM(). " ") : " x ", $imgsize[1], "";
}
}
if (preg_match('/2 DATE (.+)/', get_sub_record("FILE", 1, $rowm["m_gedrec"]), $match)) {
$media_date=new GedcomDate($match[1]);
$md = $media_date->Display(true);
echo "
", translate_fact('DATE'), ": ", $md;
}
$ttype = preg_match("/\d TYPE (.*)/", $rowm["m_gedrec"], $match);
if ($ttype>0) {
$mediaType = trim($match[1]);
$varName = strtolower($mediaType);
if (array_key_exists($varName, $MEDIA_TYPES)) {
$mediaType = $MEDIA_TYPES[$varName];
} else {
$mediaType = i18n::translate('Other');
}
echo "
", i18n::translate('Type'), ": $mediaType";
}
echo "";
echo "
";
//-- print spouse name for marriage events
if ($rowm['mm_gid']!=$pid) {
$spouse=null;
$parents = find_parents($rowm['mm_gid']);
if ($parents) {
if (!empty($parents['HUSB']) && $parents['HUSB']!=$pid) {
$spouse = Person::getInstance($parents['HUSB']);
}
if (!empty($parents['WIFE']) && $parents['WIFE']!=$pid) {
$spouse = Person::getInstance($parents['WIFE']);
}
}
if ($spouse) {
echo "getHtmlUrl(), "\">";
if ($spouse->canDisplayName()) {
echo PrintReady($spouse->getFullName());
} else {
echo i18n::translate('Private');
}
echo "";
}
if (empty($SEARCH_SPIDER)) {
$famid = $rowm['mm_gid'];
$family = Family::getInstance($famid);
if ($family) {
if ($spouse) echo " - ";
echo '', i18n::translate('View Family'), '';
}
}
echo "
";
}
//-- don't show _PRIM option to regular users
if (WT_USER_GEDCOM_ADMIN) {
$prim = get_gedcom_value("_PRIM", 1, $rowm["m_gedrec"]);
if (!empty($prim)) {
echo "", translate_fact('_PRIM'), ": ";
if ($prim=="Y") echo i18n::translate('Yes'); else echo i18n::translate('No');
echo "
";
}
}
//-- don't show _THUM option to regular users
if (WT_USER_GEDCOM_ADMIN) {
$thum = get_gedcom_value("_THUM", 1, $rowm["m_gedrec"]);
if (!empty($thum)) {
echo "", translate_fact('_THUM'), ": ";
if ($thum=="Y") echo i18n::translate('Yes'); else echo i18n::translate('No');
echo "
";
}
}
print_fact_notes($rowm["m_gedrec"], 1);
print_fact_sources($rowm["m_gedrec"], 1);
echo " |
";
return true;
}
// -----------------------------------------------------------------------------
// Extra print_facts_functions for lightbox and reorder media
// -----------------------------------------------------------------------------
if (WT_USE_LIGHTBOX) {
require_once WT_ROOT.'modules/lightbox/functions/lightbox_print_media.php';
require_once WT_ROOT.'modules/lightbox/functions/lightbox_print_media_row.php';
}
require_once WT_ROOT.'includes/functions/functions_media_reorder.php';
// -----------------------------------------------------------------------------
// End extra print_facts_functions for lightbox and reorder media
// -----------------------------------------------------------------------------