.
*/
/**
* Defined in session.php
*
* @global Tree $WT_TREE
*/
global $WT_TREE;
use Fisharebest\Webtrees\Functions\FunctionsPrint;
$more_links = Filter::get('more_links');
$exist_links = Filter::get('exist_links');
$gid = Filter::get('gid', WT_REGEX_XREF);
$update_CHAN = Filter::get('preserve_last_changed');
$controller
->addExternalJavascript(WT_AUTOCOMPLETE_JS_URL)
->addInlineJavascript('autocomplete();');
$paramok = true;
if (!empty($linktoid)) {
$paramok = GedcomRecord::getInstance($linktoid, $WT_TREE)->canShow();
}
if ($action == 'choose' && $paramok) {
?>
';
echo '';
if (!empty($mediaid)) {
echo '';
}
if (!empty($linktoid)) {
echo '';
}
echo '';
echo '';
echo '
';
echo '
';
echo I18N::translate('Link to an existing media object');
echo '
', I18N::translate('Media'), '
';
echo '
';
if (!empty($mediaid)) {
//-- Get the title of this existing Media item
$title =
Database::prepare("SELECT m_titl FROM `##media` where m_id=? AND m_file=?")
->execute(array($mediaid, $WT_TREE->getTreeId()))
->fetchOne();
if ($title) {
echo '', $title, '';
} else {
echo '', $mediaid, '';
}
echo '
';
//-- Get the filename of this existing Media item
$filename =
Database::prepare("SELECT m_filename FROM `##media` where m_id=? AND m_file=?")
->execute(array($mediaid, $WT_TREE->getTreeId()))
->fetchOne();
$media = Media::getInstance($mediaid, $WT_TREE);
echo $media->displayImage();
echo '
';
echo '
';
echo '
', I18N::translate('Links'), '
';
echo '
';
echo "
";
echo "
";
echo "
";
echo '
#
';
echo '
', I18N::translate('Record'), '
';
echo '
', I18N::translate('Name'), '
';
echo '
', I18N::translate('Keep'), '
';
echo '
', I18N::translate('Remove'), '
';
echo '
', I18N::translate('Navigator'), '
';
echo "
";
$links = array_merge(
$media->linkedIndividuals('OBJE'),
$media->linkedFamilies('OBJE'),
$media->linkedSources('OBJE'),
$media->linkedNotes('OBJE'), // Invalid GEDCOM - you cannot link a NOTE to an OBJE
$media->linkedRepositories('OBJE') // Invalid GEDCOM - you cannot link a REPO to an OBJE
);
$i = 1;
foreach ($links as $record) {
echo "
';
echo "" . I18N::translate('Enter or search for the ID of the individual, family, or source to which this media item should be linked.') . "";
echo '
';
echo '';
?>
#
";
echo GedcomTag::getLabel('CHAN'), "
";
if ($WT_TREE->getPreference('NO_UPDATE_CHAN')) {
echo "";
} else {
echo "";
}
echo I18N::translate('Do not update the “last change” record');
echo "
";
}
?>
removeLinks($mediaid, $update_CHAN != 'no_change');
}
}
// Add new Links ====================================
if ($more_links) {
// array_unique() because parseAddLinks() may includes the gid field, even
// when it is also in the list.
foreach (array_unique(explode(',', $more_links)) as $addLinkId) {
$indi = GedcomRecord::getInstance($addLinkId, $WT_TREE);
$indi->createFact('1 OBJE @' . $mediaid . '@', $update_CHAN != 'no_change');
}
}
$controller->addInlineJavascript('closePopupAndReloadParent();');
}