/**
* Create a new image object from WT_Media Object - WT_Report_PDF
*
* @param WT_Media $mediaobject
* @param mixed $x
* @param mixed $y
* @param int $w Image width
* @param int $h Image height
* @param string $align L:left, C:center, R:right or empty to use x/y
* @param string $ln T:same line, N:next line
*
* @return WT_Report_PDF_Image
*/
function createImageFromObject($mediaobject, $x, $y, $w, $h, $align, $ln)
{
return new WT_Report_PDF_Image($mediaobject->getServerFilename('thumb'), $x, $y, $w, $h, $align, $ln);
}
if ($multi_gedcom) {
WT_FlashMessages::addMessage(WT_I18N::translate('This file is linked to another genealogical database on this server. It cannot be deleted, moved, or renamed until these links have been removed.'));
break;
}
// Cannot rename local to external or vice-versa
if (isFileExternal($oldFilename) != isFileExternal($filename)) {
WT_FlashMessages::addMessage(WT_I18N::translate('Media file %1$s could not be renamed to %2$s.', '<span class="filename">' . $oldFilename . '</span>', '<span class="filename">' . $newFilename . '</span>'));
break;
}
$messages = false;
// Move files on disk (if we can) to reflect the change to the GEDCOM data
if (!$media->isExternal()) {
$oldServerFile = $media->getServerFilename('main');
$oldServerThumb = $media->getServerFilename('thumb');
$newmedia = new WT_Media("xxx", "0 @xxx@ OBJE\n1 FILE " . $newFilename, null, WT_GED_ID);
$newServerFile = $newmedia->getServerFilename('main');
$newServerThumb = $newmedia->getServerFilename('thumb');
// We could be either renaming an existing file, or updating a record (with no valid file) to point to a new file
if ($oldServerFile != $newServerFile) {
if (!file_exists($newServerFile) || @md5_file($oldServerFile) == md5_file($newServerFile)) {
if (@rename($oldServerFile, $newServerFile)) {
WT_FlashMessages::addMessage(WT_I18N::translate('Media file %1$s successfully renamed to %2$s.', '<span class="filename">' . $oldFilename . '</span>', '<span class="filename">' . $newFilename . '</span>'));
} else {
WT_FlashMessages::addMessage(WT_I18N::translate('Media file %1$s could not be renamed to %2$s.', '<span class="filename">' . $oldFilename . '</span>', '<span class="filename">' . $newFilename . '</span>'));
}
$messages = true;
}
if (!file_exists($newServerFile)) {
WT_FlashMessages::addMessage(WT_I18N::translate('Media file %s does not exist.', '<span class="filename">' . $newFilename . '</span>'));
$messages = true;
}
