. */ $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)->canShow(); } if ($action == 'choose' && $paramok) { ?> '; echo ''; if (!empty($mediaid)) { echo ''; } if (!empty($linktoid)) { echo ''; } echo ''; echo ''; echo ''; echo ''; echo ''; echo ''; echo ''; } if (!isset($linktoid)) { $linktoid = ""; } echo '"; } ?>
'; echo I18N::translate('Link to an existing media object'); echo '
', I18N::translate('Media'), ''; 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_GED_ID)) ->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_GED_ID)) ->fetchOne(); $media = Media::getInstance($mediaid); echo $media->displayImage(); echo '
'; echo '
', I18N::translate('Links'), ''; echo "
"; echo ""; echo ""; echo ''; echo ''; echo ''; echo ''; echo ''; echo ''; 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 ""; echo ""; if ($record instanceof Individual) { ?> getHusband()) { $head = $record->getHusband()->getXref(); } elseif ($record->getWife()) { $head = $record->getWife()->getXref(); } else { $head = ''; } ?> '; } echo ''; } echo "
#', I18N::translate('Record'), '', I18N::translate('Name'), '', I18N::translate('Keep'), '', I18N::translate('Remove'), '', I18N::translate('Navigator'), '
"; echo $i++; echo ""; echo $record->getXref(); echo ""; echo $record->getFullName(); echo "
"; echo "
"; echo '
'; echo I18N::translate('Add links'); echo ''; if ($linktoid == "") { // ---- } else { $record = Individual::getInstance($linktoid); echo '', $record->getFullName(), ''; } echo '
'; echo ''; echo ''; echo ' '; echo '', I18N::translate('Add'), ' '; echo ' ', print_findindi_link('gid'); echo ' ', print_findfamily_link('gid'); echo ' ', print_findsource_link('gid'); 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 WT_Gedcom_Tag::getLabel('CHAN'), ""; if ($NO_UPDATE_CHAN) { echo ""; } else { echo ""; } echo I18N::translate('Do not update the “last change” record'), help_link('no_update_CHAN'); 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); $indi->createFact('1 OBJE @' . $mediaid . '@', $update_CHAN != 'no_change'); } } $controller->addInlineJavascript('closePopupAndReloadParent();'); }