".i18n::translate('Re-order media').""; print "  ---  " . i18n::translate('Click a row, then drag-and-drop to re-order media '); global $MULTI_MEDIA, $MEDIA_EXTERNAL, $MEDIATYPE; global $WORD_WRAPPED_NOTES, $MEDIA_DIRECTORY, $WT_IMAGES, $TEXT_DIRECTION; global $is_media, $cntm1, $cntm2, $cntm3, $cntm4, $t, $mgedrec; global $edit, $tabno, $currtab; global $ids, $pid, $related, $level, $gedrec, $media_data, $order, $order1, $order2, $j; print "\n"; ?>

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 $media_id) { $orderbylist .= "m_media='$media_id[1]' DESC, "; } $orderbylist = rtrim($orderbylist, ', '); // print_r($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 DISTINCT "; $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 ("; $i=0; $vars=array(); foreach ($ids as $key=>$media_id) { if ($i>0) $sqlmm .= ","; $sqlmm .= "?"; $vars[]=$media_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%"; } 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 (preg_match("'://'", $rowm["m_file"])) { if (in_array($rowm["m_ext"], $MEDIATYPE)) { $imgwidth = 400+40; $imgheight = 500+150; } else { $imgwidth = 800+40; $imgheight = 400+150; } } else if (file_exists(filename_decode(check_media_depth($rowm["m_file"], "NOTRUNC")))) { $imgsize = findImageSize(check_media_depth($rowm["m_file"], "NOTRUNC")); $imgwidth = $imgsize[0]+40; $imgheight = $imgsize[1]+150; } $rows = array(); $rows['normal'] = $rowm; if (isset($current_objes[$rowm['m_media']])) $current_objes[$rowm['m_media']]--; foreach($rows as $rtype => $rowm) { $res = media_reorder_row($rtype, $rowm, $pid); $media_found = $media_found || $res; $foundObjs[$rowm['m_media']] = true; print "\n\n"; $j++; } } ?>

"; echo i18n::translate('Admin Option'), help_link('no_update_CHAN'), "\n"; if ($NO_UPDATE_CHAN) { echo "\n"; } else { echo "\n"; } echo i18n::translate('Do not update the CHAN (Last Change) record'), "
\n"; $event = new Event(get_sub_record(1, "1 CHAN", $gedrec)); echo format_fact_date($event, false, true); echo "
\n"; } ?>