xXx

Hexid M1n1 5h3ll MobiLe

C:/www/familytree/mods/_[ Writable ]

File:C:/www/familytree/mods/burial_website_media_import_v9.0.0.11.cfg

This is a TNG mod directive file
%name:Burial Website Media Import%
%version:V9.0.0.11%
%description:This mod adds <strong>Find A Grave</strong> external media links to the Burial events where the <strong>Burial</strong> Source/Citations contain the keyword 'findagrave.com' (case insensitive) and the Citation references a recognized Memorial number.
Also supports <strong>Billion Graves</strong>.<br /><br />
To use, go to <strong>Administration</strong> >> <strong>Import/Export</strong> >> <strong>Secondary Processes</strong> >> <strong>Burial Website Media Import</strong>.<br />
This mod can be customized to support other websites. See TNG Wiki <a href="http://tng.lythgoes.net/wiki/index.php?title=Burial_Website_Media_Import" target="_blank">Burial Website Media Import</a> for additional information.
%
%wikipage:Burial_Website_Media_Import%

##############################
Version History
9.0.0.11: Made the following changes:
* Fixed warning about array value.  Changed number to 'number'.

9.0.0.10: Made the following changes:
* Change to new URL for Find A Grave.  This includes adding "/memorial/" in the match_url
* Expanded the search for existing media by matching IDs for media and burial citations instead of just the media URL.  This allows for updating older links even if the URL structure changes.

9.0.0.9: Made the following changes:
* ignore changes in case and in http/https when checking if a media event at that URL exists.

9.0.0.8: Made the following changes:
* When just doing updates (i.e., $BWMI_mod['update'] = 0), only print out results of added entries.  This reduces the displayed clutter.
* Allow mod to follow website redirection
* Print error information when having trouble getting a URL
* Changed default Find-A-Grave to be https instead of http

9.0.0.7: Made the following changes:
* Various updates to accomodate BillionGraves updated website.  Including updated default $BWMI_mod['web']['BG']['match_url'], $BWMI_mod['web']['BG']['url'], and $BWMI_mod['web']['BG']['tagline'].
* Added $BWMI_mod['web']['x']['match_name'] for better name extraction from each site's title

9.0.0.6: Made the following changes:
* Added $BWMI_mod['update'].  If 1 (default), it will update all entries.  If 0, it will skip getting updated information from websites for existing citations. It will only do new citations.
* Added $BWMI_mod['refresh']. If 0 (default), behaves as before.  If provided number x>0, it will do an automatic "refresh" of the page after every x burial website inquiries.
  Restructured some code to accommodate the $BWMI_mod['refresh'].  Makes use of TNG's "saveimport" table to hold data, so the process can be resumed.

9.0.0.5: Made the following changes:
* changed $BWMI_mod['web']['x']['tagline'] to be a regular expression to match more complicated web site taglines
* added dash to $BWMI_mod['web']['BG']['match_url']
* minor formating of mod to conform to the new mod standards
* fixed one more mysql_ statement

9.0.0.4: Made the following changes:
* Fixed problem with using $text['BWMI_web'] multi-dimentional arrays by changing $text[] to $BWMI_mod[] to hold all mod settings.
* To help with "What's New", only set media changedate upon creation.
* Added option to delete years like '(yyyy - yyyy)' from the link title.  $BWMI_mod['web']['x']['title_no_year']='1';
* Added definition of website tag line (i.e., the extra stuff on the title, like name of the website) $BWMI_mod['web']['x']['tagline'] = '- Find A Grave Memorial';
* Added option to change the title used in the link.  $BWMI_mod['web']['x']['title_template'] can be used to define the title.
  symbols %f%  = full title from web (default),
  symbols %e%  = extra tagline from website that maches $BWMI_mod['web']['x']['tagline'],
  symbols %t%  = title from website without the tagline set by $BWMI_mod['web']['x']['tagline'],
  symbols %T%  = generic title set by $BWMI_mod['web']['x']['title'],
  symbols %n%  = name from website title after the tagline and years removed
  symbols %y%  = birth - death years from website title,
  symbols %N%  = name from TNG (women's married names appended to surname in order of marriage),
  symbols %Y%  = birth - death years from TNG
  The default is $BWMI_mod['web']['xxx']['title_template'] = "%f%", the full title from the website.
  EXAMPLE: $BWMI_mod['web']['FAG']['title_template'] = "%T% - %n% (%Y%)" will show the generic Title, the name from the website, and the years from TNG
  WARNING: Using %N% and %Y% makes the ASSUMPTION that the person being referenced on the website is the same person on which the citation is located.
  If you have citations that reference other individuals, then you will get strange results.  So use with caution.
* Added tng_ versons of mysql_ to be compatible with TNG 10.1.0 as well as backwards compatible.
* Added %wikipage% in cfg file for TNG 10.1.0
* Updated mod description and added link to the TNG Wiki mod page.
* Minor tweaks on the Dutch 'match_record' entries (removed ID references)

9.0.0.3: Made the following changes:
* Changed the website specific items into the $text['BWMI_web']['x'] array.  This will allow for easier user addition of other websites.
* Added unique site matching parameters for matching record numbers in URLs, the terms for Records, Numbers, and Number abbreviations.
* Gave many common website parameters most often used defaults.
* Added the ability to disable a website ($text['BWMI_web']['x']['enable'] = 0; ).
* Added the ability to search the Death event instead of the Burial event ($text['BWMI_web']['x']['event'] = 'Death';).
* Added Dutch sites graftombe.nl and www.online-begraafplaatsen.nl as example, but default is disabled.
* Moved Success or Fail message to the beginning of the line to make it easier to sort afterwards.
* Added media "Owner" as the website name.
* Added logging to {mod directory}/burial_website_media_import/log.txt.  Can be disabled with $text['BWMI_log'] = 0;.
* Bug fix: now handles cases where the media is used by more than one person.

9.0.0.2: Made the following changes:
* Made sure external source was checked for all versions of TNG (was only below v 10.0.3 in previous versions)
* Added $text['BWMI_NewWindow'] = 1 (default).  1=open link in new window.  0=open in existing window.
* Added lat/lng information from BillionGraves to media (experimental)
* Added default values to more media fields. abspath, alwayson, status.
* Changed mediatype liketype field to be 'headstones' instead of 'photos'.

9.0.0.1: Renamed to burial_website_media_import.  Added the following features:
* Added support for BillionGraves.com
* changed collection type icon to be the same as headstones
* changed media thumbnail to a small version of the website icon
* changed the findagrave icon
* added more ways to get to website depending upon system setup.  Tries curl, then file_get_contents, then provides an error if those do not work.

9.0.0.0: Orignally called findagrave_import.  This was the initial release and supported findagrave.com only.

##############################

  Saved State mapping
    This program                type/size             saveimport table
    $Site                        varchar()            filename
    $citation['personNumber']    unsigned int         ioffset
    $citation['citationID']      int(11)              soffset
    $citation['gedcom']          varchar(20)          branch
    $BWMI_mod['txt_savestate']   varchar(20)          gedcom   # Including this so it does not mess with imports/exports

##############################
<?php // for editor formating
%target:admin_secondmenu.php%
%location:%
<input type="submit" name="secaction" value="<?php echo $admtext['relabelbranches']; ?>">
%end:%
%insert:before%
    <input type="submit" name="secaction" value="<?php echo $admtext['BURI'].' '.$admtext['website'].' '.$admtext['media'].' '.$admtext['import']; ?>">
%end:%


%target:admin_secondary.php%

%location:%
include("adminlib.php");
%end:%
%insert:after%
include("tngdblib.php");
%end:%

%location:%
elseif( $secaction == $admtext['relabelbranches'] ) {
%end:%
%insert:before%
elseif( $secaction == $admtext['BURI'].' '.$admtext['website'].' '.$admtext['media'].' '.$admtext['import'] || $secaction == "burial_website_media_import" ) {
    $this_section_name = $admtext['BURI'].' '.$admtext['website'].' '.$admtext['media'].' '.$admtext['import'];
    echo "<p><strong>".$this_section_name."...</strong></p>";

    // Make sure we have mysql functions.  Calling as in TNG 10.1.0+, but making sure they are defined if using older TNG versions
    if (!function_exists('tng_real_escape_string')){ function tng_real_escape_string($x) {return mysql_real_escape_string($x); } }
    if (!function_exists('tng_query'             )){ function tng_query($x)              {return mysql_query($x);              } }
    if (!function_exists('tng_num_rows'          )){ function tng_num_rows($x)           {return mysql_num_rows($x);           } }
    if (!function_exists('tng_fetch_assoc'       )){ function tng_fetch_assoc($x)        {return mysql_fetch_assoc($x);        } }
    if (!function_exists('tng_free_result'       )){ function tng_free_result($x)        {return mysql_free_result($x);        } }
    if (!function_exists('tng_affected_rows'     )){ function tng_affected_rows()        {return mysql_affected_rows();        } }
    if (!function_exists('tng_insert_id'         )){ function tng_insert_id()            {return mysql_insert_id();            } }

    // Various Constants
    if (!isset($BWMI_mod['connecttimeout']))  { $BWMI_mod['connecttimeout']  = 5;}  // Connection timeout
    if (!isset($BWMI_mod['timeout']))         { $BWMI_mod['timeout']         = 4;}  // timeout
    if (!isset($BWMI_mod['NewWindow']))       { $BWMI_mod['NewWindow']       = 1;}  // 1 = open link in new window, 0 = use same window //added 9.0.0.2
    if (!isset($BWMI_mod['log']))             { $BWMI_mod['log']             = 1;}  // 1 = use log file,  0 = do not use //added 9.0.0.3
    if (!isset($BWMI_mod['update']))          { $BWMI_mod['update']          = 1;}  // 1 = update existing entries. 1=yes, 0=no //added 9.0.0.6
    if (!isset($BWMI_mod['refresh']))         { $BWMI_mod['refresh']         = 0;}  // Number of web page accesses before a page refresh.  0=off //added 9.0.0.6

    if (!isset($BWMI_mod['txt_eol']))         { $BWMI_mod['txt_eol']          = "\r\n"; }
    if (!isset($BWMI_mod['txt_exists']))      { $BWMI_mod['txt_exists']       = "Media type '%s' already exists.  No need to add."; }
    if (!isset($BWMI_mod['txt_insert']))      { $BWMI_mod['txt_insert']       = "Media type addition of '%s' %s."; }
    if (!isset($BWMI_mod['txt_look']))        { $BWMI_mod['txt_look']         = "Examine all %s ('%s') citations..."; }
    if (!isset($BWMI_mod['txt_noID']))        { $BWMI_mod['txt_noID']         = "No Memorial or Record found in the citation."; }
    if (!isset($BWMI_mod['txt_record']))      { $BWMI_mod['txt_record']       = "Person:%s/%s, Citation:%s, "; }
    if (!isset($BWMI_mod['txt_data']))        { $BWMI_mod['txt_data']         = "Web:(%s) '%s'"; }
    if (!isset($BWMI_mod['txt_timeout']))     { $BWMI_mod['txt_timeout']      = "Web:(%s) WEBSITE ERROR %s: %s"; }
    if (!isset($BWMI_mod['txt_media']))       { $BWMI_mod['txt_media']        = "mediaID:%s %s, medialinkID:%s %s, "; }
    if (!isset($BWMI_mod['txt_results']))     { $BWMI_mod['txt_results']      = "%s: %s";}
    if (!isset($BWMI_mod['txt_succeeded']))   { $BWMI_mod['txt_succeeded']    = 'SUCCESS';}
    if (!isset($BWMI_mod['txt_failed']))      { $BWMI_mod['txt_failed']       = 'FAILED';}
    if (!isset($BWMI_mod['txt_warning']))     { $BWMI_mod['txt_warning']      = 'WARNING';}
    if (!isset($BWMI_mod['txt_unchanged']))   { $BWMI_mod['txt_unchanged']    = 'UNCHANGED';}
    if (!isset($BWMI_mod['txt_update_full'])) { $BWMI_mod['txt_updated']      = 'updated';}
    if (!isset($BWMI_mod['txt_update_part'])) { $BWMI_mod['txt_update_error'] = 'update Error';}
    if (!isset($BWMI_mod['txt_add_full']))    { $BWMI_mod['txt_added']        = 'added';}
    if (!isset($BWMI_mod['txt_add_part']))    { $BWMI_mod['txt_add_error']    = 'add Error';}
    if (!isset($BWMI_mod['txt_nochange']))    { $BWMI_mod['txt_nochange']     = 'no change';}
    if (!isset($BWMI_mod['txt_unknown']))     { $BWMI_mod['txt_unknown']      = 'unknown';}
    if (!isset($BWMI_mod['txt_errors0']))     { $BWMI_mod['txt_errors0']      = "had no errors";}
    if (!isset($BWMI_mod['txt_errors1']))     { $BWMI_mod['txt_errors1']      = "had trouble with getting website information";}
    if (!isset($BWMI_mod['txt_errors2']))     { $BWMI_mod['txt_errors2']      = "had trouble with the TNG database";}
    if (!isset($BWMI_mod['txt_errors3']))     { $BWMI_mod['txt_errors3']      = $BWMI_mod['txt_errors1']." and ".$BWMI_mod['txt_errors2'];}
    if (!isset($BWMI_mod['txt_errsummary']))  { $BWMI_mod['txt_errsummary']   = "SUMMARY: Citations:%s, Media Adds:%s, Media Updates:%s, Media Skipped:%s, Media Errors: %s, MediaLink Adds:%s, MediaLink Updates:%s, MediaLink Unchanged:%s, MediaLink Errors:%s, Website Errors:%s"; }
    if (!isset($BWMI_mod['txt_savestate']))   { $BWMI_mod['txt_savestate']    = "BWMI_save_state";}
    if (!isset($BWMI_mod['txt_savefails']))   { $BWMI_mod['txt_savefails']    = "If this does not complete ";} //added 9.0.0.6
    if (!isset($BWMI_mod['txt_sym_TNGname'])) { $BWMI_mod['txt_sym_TNGname']  = '%N%';}  // Title template symbols for Name of person in TNG
    if (!isset($BWMI_mod['txt_sym_TNGyear'])) { $BWMI_mod['txt_sym_TNGyear']  = '%Y%';}  // Title template symbols for birth and death years of person in TNG
    if (!isset($BWMI_mod['txt_sym_TNGtitle'])){ $BWMI_mod['txt_sym_TNGtitle'] = '%T%';}  // Title template symbols for the generic title for the website $BWMI_mod['web'][x]['title']
    if (!isset($BWMI_mod['txt_sym_WEBname'])) { $BWMI_mod['txt_sym_WEBname']  = '%n%';}  // Title template symbols for Name of the person on the website
    if (!isset($BWMI_mod['txt_sym_WEByear'])) { $BWMI_mod['txt_sym_WEByear']  = '%y%';}  // Title template symbols for birth and death year of person on website
    if (!isset($BWMI_mod['txt_sym_WEBtag']))  { $BWMI_mod['txt_sym_WEBtag']   = '%e%';}  // Title template symbols for extra Tagline for website
    if (!isset($BWMI_mod['txt_sym_WEBtitle'])){ $BWMI_mod['txt_sym_WEBtitle'] = '%t%';}  // Title template symbols for title for website with the tagline removed
    if (!isset($BWMI_mod['txt_sym_WEBfull'])) { $BWMI_mod['txt_sym_WEBfull']  = '%f%';}  // Title template symbols for Full title from the website.

    // Find A Grave
    if (!isset($BWMI_mod['web']['FAG']['name']))           { $BWMI_mod['web']['FAG']['name']           = 'Find A Grave';}                      // Name of website
    if (!isset($BWMI_mod['web']['FAG']['search']))         { $BWMI_mod['web']['FAG']['search']         = 'FindAGrave.com';}                    // Primary search - case does not matter
    if (!isset($BWMI_mod['web']['FAG']['url']))            { $BWMI_mod['web']['FAG']['url']            = "https://www.findagrave.com/memorial/%s";}
    if (!isset($BWMI_mod['web']['FAG']['title']))          { $BWMI_mod['web']['FAG']['title']          = 'Find A Grave Memorial';}             // Default title if can't get real one
    if (!isset($BWMI_mod['web']['FAG']['tagline']))        { $BWMI_mod['web']['FAG']['tagline']        = '\-[\s]*Find A Grave Memorial[\s]*';} // Tag Line on Title, ie., extra stuff
    if (!isset($BWMI_mod['web']['FAG']['thumb']))          { $BWMI_mod['web']['FAG']['thumb']          = 'findagrave_small.png';}              // Displays on Media list
    if (!isset($BWMI_mod['web']['FAG']['type_ID']))        { $BWMI_mod['web']['FAG']['type_ID']        = 'findagrave';}
    if (!isset($BWMI_mod['web']['FAG']['type_thumb']))     { $BWMI_mod['web']['FAG']['type_thumb']     = 'findagrave.png';}                    // Displays on getperson
    if (!isset($BWMI_mod['web']['FAG']['match_url']))      { $BWMI_mod['web']['FAG']['match_url']      = "[?&]GRid=|/memorial/";}              // record prefix in URL
    if (!isset($BWMI_mod['web']['FAG']['match_name']))     { $BWMI_mod['web']['FAG']['match_name']     = "^(.*)[\(]+[^a-zA-Z]+";}              // Name in title

    // Billion Graves
    if (!isset($BWMI_mod['web']['BG']['name']))            { $BWMI_mod['web']['BG']['name']            = 'Billion Graves';}           // Name of website
    if (!isset($BWMI_mod['web']['BG']['search']))          { $BWMI_mod['web']['BG']['search']          = 'BillionGraves.com';}        // Primary search - case does not matter
    if (!isset($BWMI_mod['web']['BG']['url']))             { $BWMI_mod['web']['BG']['url']             = "https://billiongraves.com/grave/number/%s";}
    if (!isset($BWMI_mod['web']['BG']['title']))           { $BWMI_mod['web']['BG']['title']           = 'Billion Graves Record';}     // Default title if can't get real one
    if (!isset($BWMI_mod['web']['BG']['tagline']))         { $BWMI_mod['web']['BG']['tagline']         = '\|[\s]*Billion[\s]*Graves.*';}  // Tag Line on Title, ie., extra stuff
    if (!isset($BWMI_mod['web']['BG']['thumb']))           { $BWMI_mod['web']['BG']['thumb']           = 'billiongraves_small.png';}  // Displays on Media list
    if (!isset($BWMI_mod['web']['BG']['type_ID']))         { $BWMI_mod['web']['BG']['type_ID']         = 'billiongraves';}
    if (!isset($BWMI_mod['web']['BG']['type_thumb']))      { $BWMI_mod['web']['BG']['type_thumb']      = 'billiongraves.png';}        // Displays on getperson
    if (!isset($BWMI_mod['web']['BG']['match_url']))       { $BWMI_mod['web']['BG']['match_url']       = "/(?:record|grave)/[a-zA-Z\-]+/";}       // record prefix in URL
    if (!isset($BWMI_mod['web']['BG']['match_name']))      { $BWMI_mod['web']['BG']['match_name']      = "^(.*)[\(]+[^a-zA-Z]+";}                 // Name in title

    // graftombe.nl
    if (!isset($BWMI_mod['web']['GTNL']['enable']))        { $BWMI_mod['web']['GTNL']['enable']        = 0;} // Disable by default
    if (!isset($BWMI_mod['web']['GTNL']['name']))          { $BWMI_mod['web']['GTNL']['name']          = 'Graftombe';}           // Name of website
    if (!isset($BWMI_mod['web']['GTNL']['search']))        { $BWMI_mod['web']['GTNL']['search']        = 'graftombe.nl';}        // Primary search - case does not matter
    if (!isset($BWMI_mod['web']['GTNL']['url']))           { $BWMI_mod['web']['GTNL']['url']           = "http://graftombe.nl/names/info/%s";}
    if (!isset($BWMI_mod['web']['GTNL']['title']))         { $BWMI_mod['web']['GTNL']['title']         = 'Graftombe Graf';}              // Default title if can't get real one
    if (!isset($BWMI_mod['web']['GTNL']['tagline']))       { $BWMI_mod['web']['GTNL']['tagline']       = '[\s]*Graftombe.nl[\s]*\-[\s]*Informatie over[\s]*';} // Tag Line on Title, ie., extra stuff
    if (!isset($BWMI_mod['web']['GTNL']['type_ID']))       { $BWMI_mod['web']['GTNL']['type_ID']       = 'graftombe';}
    if (!isset($BWMI_mod['web']['GTNL']['match_url']))     { $BWMI_mod['web']['GTNL']['match_url']     = "/names/info/";}                // record prefix in URL
    if (!isset($BWMI_mod['web']['GTNL']['match_record']))  { $BWMI_mod['web']['GTNL']['match_record']  = "Graf|Grafsteen";}// record prefix in URL
    if (!isset($BWMI_mod['web']['GTNL']['match_name']))    { $BWMI_mod['web']['GTNL']['match_name']    = "Informatie over (.*)$";}                 // Name in title

    // http://www.online-begraafplaatsen.nl/
    if (!isset($BWMI_mod['web']['BGPNL']['enable']))       { $BWMI_mod['web']['BGPNL']['enable']       = 0;} // Disable by default
    if (!isset($BWMI_mod['web']['BGPNL']['name']))         { $BWMI_mod['web']['BGPNL']['name']         = 'Online Begraafplaatsen';}        // Name of website
    if (!isset($BWMI_mod['web']['BGPNL']['search']))       { $BWMI_mod['web']['BGPNL']['search']       = 'online-begraafplaatsen.nl';}     // Primary search - case does not matter
    if (!isset($BWMI_mod['web']['BGPNL']['url']))          { $BWMI_mod['web']['BGPNL']['url']          = "http://www.online-begraafplaatsen.nl/zerken.asp?g=%s";}
    if (!isset($BWMI_mod['web']['BGPNL']['title']))        { $BWMI_mod['web']['BGPNL']['title']        = 'Online Begraafplaatsen Graf';}   // Default title if can't get real one
    if (!isset($BWMI_mod['web']['BGPNL']['type_ID']))      { $BWMI_mod['web']['BGPNL']['type_ID']      = 'begraafplaatsen';}
    if (!isset($BWMI_mod['web']['BGPNL']['match_url']))    { $BWMI_mod['web']['BGPNL']['match_url']    = "[?&]g=";}                         // record prefix in URL
    if (!isset($BWMI_mod['web']['BGPNL']['match_record'])) { $BWMI_mod['web']['BGPNL']['match_record'] = "Graf|Grafsteen";}  // record prefix in URL
    //if (!isset($BWMI_mod['web']['BGPNL']['match_name']))   { $BWMI_mod['web']['BGPNL']['match_name']   = "";}                 // Name in title

    $TheWebsites = $BWMI_mod['web'];

    // Sanity check each of the website settings
    foreach ($TheWebsites as $Site => $TheWebsite) {

        // Set up common default settings, so everyone only needs to add if something is different
        if (!isset($TheWebsite['enable']))          { $TheWebsite['enable']           = 1;}
        if (!isset($TheWebsite['event']))           { $TheWebsite['event']            = 'BURI';}                     // GEDCOM tag.  Burial = BURI
        if (!isset($TheWebsite['match_url']))       { $TheWebsite['match_url']        = "[?&]GRid=|/record/[a-zA-Z]+/";}
        if (!isset($TheWebsite['match_name']))      { $TheWebsite['match_name']       = "^(.*)[\(]+[^a-zA-Z]+";}
        if (!isset($TheWebsite['match_record']))    { $TheWebsite['match_record']     = "Memorial|Record|Item";}
        if (!isset($TheWebsite['match_number']))    { $TheWebsite['match_number']     = "number|nummer";}
        if (!isset($TheWebsite['match_numabbr']))   { $TheWebsite['match_numabbr']    = "nr|nbr|no|n";}
        if (!isset($TheWebsite['tagline']))         { $TheWebsite['tagline']          = '';}                            // '' = No tag line. The "extra stuff" in website title
        if (!isset($TheWebsite['title_no_year']))   { $TheWebsite['title_no_year']     = 0 ;}                           // 1= removed (yyyy - yyyy) from Title
        if (!isset($TheWebsite['title_template']))  { $TheWebsite['title_template']   = $BWMI_mod['txt_sym_WEBfull'];}  // template for displayed title
        if (!isset($TheWebsite['type_ordernum']))   { $TheWebsite['type_ordernum']    = 0 ;}
        if (!isset($TheWebsite['type_path']))       { $TheWebsite['type_path']        = 'img';}
        if (!isset($TheWebsite['type_liketype']))   { $TheWebsite['type_liketype']    = 'headstones';}
        if (!isset($TheWebsite['type_form']))       { $TheWebsite['type_form']        = 'html';}
        if (!isset($TheWebsite['type_display']))    { $TheWebsite['type_display']     =  $TheWebsite['name'];}         // Default to the same as name
        if (!isset($TheWebsite['type_icon']))       { $TheWebsite['type_icon']        = 'img/tng_hs.gif';}            // Displays on menu pulldown
        if (!isset($TheWebsite['type_thumb']))      { $TheWebsite['type_thumb']       = 'tombstone_color_small.png';} // Displays on getperson
        if (!isset($TheWebsite['thumb']))           { $TheWebsite['thumb']            = 'tombstone_color_small.png';} // Displays on Media list
        if (!isset($TheWebsite['exportas']))        { $TheWebsite['exportas']         =  $TheWebsite['type_ID'];}      // Default to the same as type_ID
        if (!isset($TheWebsite['type_disabled']))   { $TheWebsite['type_disabled']    =  0 ;}

        // make sure these are correct case
        $TheWebsite['search']        = strtolower($TheWebsite['search']);
        $TheWebsite['type_ID']       = strtolower($TheWebsite['type_ID']);
        $TheWebsite['type_liketype'] = strtolower($TheWebsite['type_liketype']);

        // sanity check event
        switch (strtoupper($TheWebsite['event'])) {
            case 'DEAT'  :
            case 'DEATH' :  $TheWebsite['event'] = 'DEAT';
                            $Event_name          = $admtext['DEAT'];
                            break;
            case 'BURI'  :
            case 'BURIAL':
            default      :  $TheWebsite['event'] = 'BURI';
                            $Event_name          = $admtext['BURI'];
        }

        // make sure these are escaped
        $TheWebsite['match_url']     = str_replace('/','\/',tng_real_escape_string(trim($TheWebsite['match_url']     )));
        $TheWebsite['match_name']    = str_replace('/','\/',tng_real_escape_string(trim($TheWebsite['match_name']    )));
        $TheWebsite['match_record']  = str_replace('/','\/',tng_real_escape_string(trim($TheWebsite['match_record']  )));
        $TheWebsite['match_number']  = str_replace('/','\/',tng_real_escape_string(trim($TheWebsite['match_number']  )));
        $TheWebsite['match_numabbr'] = str_replace('/','\/',tng_real_escape_string(trim($TheWebsite['match_numabbr'] )));
        // Add optional period after all the abbreviations
        $TheWebsite['match_numabbr'] .= '|';                                                    // add | at the end for now
        $TheWebsite['match_numabbr'] = str_replace("|","[\.]?|",$TheWebsite['match_numabbr']);  // add the [\.]? before each |
        $TheWebsite['match_numabbr'] = rtrim($TheWebsite['match_numabbr'],"|");                 // now take off the added |
        // Fix up the tagline
        $TheWebsite['tagline']       = str_replace('/','\/',trim($TheWebsite['tagline']       ));

        if ($TheWebsite['enable']){
            $TheWebsites[$Site] = $TheWebsite; // save the updates
        } else {
            unset($TheWebsites[$Site]);        // remove so we don't even process
        }
    }

    // Set up the keeper of totals
    $BWMI_totals = array ('media_adds'     => 0, 'media_adds_errors' => 0, 'media_updates'    => 0, 'media_updates_errors' => 0, 'media_skips'    => 0,
                          'links_adds'     => 0, 'links_adds_errors' => 0, 'links_updates'    => 0, 'links_updates_errors' => 0, 'links_nochange' => 0,
                          'mediatype_adds' => 0, 'mediatype_errors'  => 0, 'mediatype_exists' => 0, 'citations'            => 0, 'web_errors'     => 0
                          );

    $newdate = date ("Y-m-d H:i:s", time() + ( 3600 * $time_offset ) );       //  the time
    $datapair = "%s='%s',"; // used to set values in SQL
    $logfile  = $rootpath.$modspath."/burial_website_media_import/log.txt";

    // Set up resume information
    $saved['site']         = "";
    $saved['personNumber'] = "";
    $saved['citationID']   = "";
    $saved['gedcom']       = "";
    $saved['resume']       = False;
    $saved['go_site']      = True;
    $saved['go_citation']  = True;

    $resume_count = 0;
    $resumeURL    = "admin_secondary.php?secaction=burial_website_media_import&resume=1";
    echo "<p>{$BWMI_mod['txt_savefails']} <a href=\"{$resumeURL}\">{$admtext['clickresume']}</a>.</p>\n";

    // Check if we are resuming from a prior start
	if( $resume ) {
        // Get the saved information
		$checksql = "SELECT * FROM $saveimport_table WHERE gedcom = \"{$BWMI_mod['txt_savestate']}\"";
		$result = @tng_query( $checksql ) or die ($admtext['cannotexecutequery'] . ": $checksql");
		$saved['resume'] = (tng_num_rows( $result ) > 0) ? True : False;
		if( $saved['resume'] ) {
			$row = tng_fetch_assoc($result);
			$saved['site']         = $row['filename'];
            $saved['personNumber'] = $row['ioffset'];
            $saved['citationID']   = $row['soffset'];
            $saved['gedcom']       = $row['branch'];
            $saved['go_site']      = False;
            $saved['go_citation']  = False;
            $saved_totals          = json_decode( $row['lastid'] );
            // restore the totals from the saved state
            $index = 0;
            foreach ($BWMI_totals as $key => $value) {
                $BWMI_totals[$key] = $saved_totals[$index++];
            }
        }
		tng_free_result($result);
	}
	else {
        // Not resuming, so get rid if any prior saved data if it exists
		$query = "DELETE from $saveimport_table WHERE gedcom = \"{$BWMI_mod['txt_savestate']}\"";
		$result = tng_query($query);

        // And now start a new table entry to save out intermediate state information
		$sql = "INSERT INTO $saveimport_table (gedcom) VALUES(\"{$BWMI_mod['txt_savestate']}\")";
		$result = @tng_query( $sql ) or die ($admtext['cannotexecutequery'] . ": $sql");
	}

    // Start the log file
    if ($BWMI_mod['log']) {
        if ( $saved['resume'] ){
            $fp = @fopen( $logfile, "a" ); // append
        } else {
            $fp = @fopen( $logfile, "w" ); // create or overwrite
        }
        fwrite( $fp, $newdate  . $BWMI_mod['txt_eol'] );
    }

    foreach ($TheWebsites as $Site => $TheWebsite) {
        if ($saved['go_site'] || ($saved['site'] == $Site ) || ($saved['site'] == "") ) {
            if (!$saved['go_site'] && ($saved['site'] != "")) {     // For a site to have been saved, this was already done before...
                $saved['go_site'] = True;     // So the saved Site was already done, so start with the next one
            } else {
                $message = $TheWebsite['name'].' '.$admtext['import']."...";
                echo "<strong>".$message."</strong><br />\n";
                if ($BWMI_mod['log']) { fwrite( $fp, $BWMI_mod['txt_eol'] . $message . $BWMI_mod['txt_eol'] );}

                // Reset counters
                foreach ($BWMI_totals as $key => $value) {
                    $BWMI_totals[$key] = 0;
                }

                //1. Add Media type if it does not exist
                $query = "SELECT mediatypeID FROM $mediatypes_table WHERE mediatypeID='".$TheWebsite['type_ID'] ."'";
                $result = tng_query($query) or die ($admtext['cannotexecutequery'] . ": $query");
                if (!tng_num_rows($result)) {
                    // mediatypeID does not exist, so insert one
                    $query = "INSERT INTO $mediatypes_table (mediatypeID, display, path, liketype, icon, thumb, exportas, ordernum)
                              VALUES ('".$TheWebsite['type_ID']       ."','".$TheWebsite['type_display']  ."','".$TheWebsite['type_path']  ."',
                                      '".$TheWebsite['type_liketype'] ."','".$TheWebsite['type_icon']     ."','".$TheWebsite['type_thumb'] ."',
                                      '".$TheWebsite['exportas']      ."','".$TheWebsite['type_ordernum'] ."')";
                    $result = tng_query($query) or die ($admtext['cannotexecutequery'] . ": $query");
                    if ($result) {
                        $message = sprintf($BWMI_mod['txt_insert'],$TheWebsite['type_ID'],$BWMI_mod['txt_succeeded']);
                        echo $message."<br />\n";
                        if ($BWMI_mod['log']) { fwrite( $fp, $message . $BWMI_mod['txt_eol'] );}
                        $BWMI_totals['mediatype_adds']++;
                    } else {
                        $message = sprintf($BWMI_mod['txt_insert'],$TheWebsite['type_ID'],$BWMI_mod['txt_failed']);
                        echo $message."<br />\n";
                        if ($BWMI_mod['log']) { fwrite( $fp, $message . $BWMI_mod['txt_eol'] );}
                        $BWMI_totals['mediatype_errors']++;
                    }
                } else {
                    $message = sprintf($BWMI_mod['txt_exists'],$TheWebsite['type_ID'] );
                    echo $message."<br />\n";
                    if ($BWMI_mod['log']) { fwrite( $fp, $message . $BWMI_mod['txt_eol'] );}
                    $BWMI_totals['mediatype_exists']++;
                }
                // Now print out message for next section (only once!)
                $message = sprintf($BWMI_mod['txt_look'], $Event_name, $TheWebsite['event']);
                echo $message . "<br />\n";
                if ($BWMI_mod['log']) { fwrite( $fp, $message . $BWMI_mod['txt_eol'] );}
                $message = "";
            }

            //2. Now search for key name such as website name like 'FindAGrave.com' or billionGraves.com (case should not matter)
            $query = "SELECT citationID, c.gedcom as gedcom, s.sourceID as sourceID, persfamID, CAST(TRIM(LEADING 'I' FROM persfamID) AS UNSIGNED INTEGER) AS personNumber,
                             CONCAT(s.actualtext, ' ',c.description, ' ',c.citetext,' ',c.page,' ',c.note) as info
                      FROM $citations_table AS c, $sources_table AS s
                      WHERE c.eventID      = '{$TheWebsite['event']}' AND
                            c.sourceID     = s.sourceID AND
                            (
                                s.title       LIKE '%".$TheWebsite['search']."%' OR
                                s.publisher   LIKE '%".$TheWebsite['search']."%' OR
                                s.shorttitle  LIKE '%".$TheWebsite['search']."%' OR
                                s.actualtext  LIKE '%".$TheWebsite['search']."%' OR
                                s.callnum     LIKE '%".$TheWebsite['search']."%' OR
                                c.page        LIKE '%".$TheWebsite['search']."%' OR
                                c.note        LIKE '%".$TheWebsite['search']."%' OR
                                c.citetext    LIKE '%".$TheWebsite['search']."%' OR
                                c.description LIKE '%".$TheWebsite['search']."%'
                            )
                      ORDER BY personNumber, citationID";
            $result = tng_query($query) or die ($admtext['cannotexecutequery'] . ": $query");

            // Find GRid=xxxx or Memorial <number> xxxx, where <number> = blank, =, #, number, nbr[.], no[.], n[.]   Case and white space does not matter.
            // $pattern = '/(?i:GRid=|\/record\/[a-zA-Z]+\/|(?:Memorial|Record)[\s]*(?:#|=|number|nummer|nr[\.]?|nbr[\.]?|no[\.]?|n[\.]?|)?[\s]*)(?P<number>[0-9]+)/';
            $pattern = sprintf("/(?i:%s|(?:%s)[\s]*(?:#|=|%s|%s|)?[\s]*)(?P<number>[0-9]+)/",$TheWebsite['match_url'],$TheWebsite['match_record'],$TheWebsite['match_number'],$TheWebsite['match_numabbr'] );

            // Set if we need to get data from the website
            $GetWebData = false;
            if (     strpos($TheWebsite['title_template'],$BWMI_mod['txt_sym_WEBname'])  !== false ||
                     strpos($TheWebsite['title_template'],$BWMI_mod['txt_sym_WEByear'])  !== false ||
                     strpos($TheWebsite['title_template'],$BWMI_mod['txt_sym_WEBtitle']) !== false ||
                     strpos($TheWebsite['title_template'],$BWMI_mod['txt_sym_WEBfull'])  !== false    ) {
                $GetWebData = true;
            }

            // Set if we need to get data from TNG
            $GetTNGData = false;
            if ( strpos($TheWebsite['title_template'],$BWMI_mod['txt_sym_TNGname'])  !== false || strpos($TheWebsite['title_template'],$BWMI_mod['txt_sym_TNGyear'])  !== false ) {
                $GetTNGData = true;
            }

            while( $citation = tng_fetch_assoc( $result ) ) {
                $status_error   = 0;
                $status_warning = false;

                // Now look at each citation
                $citation['id']    = '';
                $citation['url']   = '';
                $citation['title'] = '';
                $citation['lat']   = '';
                $citation['lng']   = '';
                $WEBname           = $BWMI_mod['txt_unknown'] ;
                $WEByear           = '';
                $WEBfull           = $TheWebsite['title'];
                $WEBtitle          = $TheWebsite['title'];
                $TNGname           = $BWMI_mod['txt_unknown'] ;
                $TNGyear           = ' - ';
                $WEBtag            = '';
                $HaveNewData       = false;

                if ($saved['go_citation'] || ($saved['site'] == "") || ($saved['personNumber'] == $citation['personNumber'] && $saved['citationID'] == $citation['citationID'] ) ) {
                    if (!$saved['go_citation'] && ($saved['site'] != "")) {
                        $saved['go_citation'] = True; // The saved entry was already done, but from now on, proceed as normal
                    } else {
                        $BWMI_totals['citations']++;
                        $message = sprintf($BWMI_mod['txt_record'],$citation['gedcom'], $citation['persfamID'], $citation['citationID']);

                        // Look for Memorial or Record number
                        $matches = array();
                        if (!preg_match( $pattern, $citation['info'], $matches) ) {
                            // no memorial number found
                            $message    .= $BWMI_mod['txt_noID'];
                            $status_warning = true;
                        } else {
                            // Found a memorial number
                            //printf("--> match0=%s match1=%s match2=%s match3=%s number=%s<br />\n",$matches[0], $matches[1], $matches[2], $matches[3], $matches['number']);
                            $citation['id']  = trim($matches['number']);
                            $citation['url'] = sprintf($TheWebsite['url'] , $citation['id']);

                            // Now see if already have media and media link
                            $match_entry_portion =  '\\(' . $TheWebsite['match_url'] . '\\)' . $citation['id'];
                            $query = "SELECT $medialinks_table.medialinkID as medialinkID,
                                             $medialinks_table.personID as personID,
                                             $media_table.mediaID as mediaID,
                                             $media_table.path as path,
                                             $media_table.description as title
                                        FROM $medialinks_table, $media_table
                                        WHERE   $media_table.gedcom        = '{$citation['gedcom']}'    AND
                                                $media_table.mediatypeID   = '{$TheWebsite['type_ID']}' AND
                                                $media_table.mediaID       = $medialinks_table.mediaID  AND
                                                $media_table.path            LIKE '%{$citation['id']}%' AND 
                                                $medialinks_table.personID = '{$citation['persfamID']}' AND
                                                $medialinks_table.eventID  = '{$TheWebsite['event']}'   ";                                          
                                                
                            $result2 = tng_query($query) or die ($admtext['cannotexecutequery'] . ": $query");
                            $this_mediaID     = "";
                            $this_medialinkID = "";
                            if (tng_num_rows($result2) ) {
                                while( $the_media = tng_fetch_assoc( $result2 ) ) {
                                    // NOTE:  This should be cleaned up.  The query *should* return just the records that match.  The following if statement are probably redundant.
                                    if ( strpos(strtolower($the_media['path']), $TheWebsite['search']) !== false && strpos(strtolower($the_media['path']), strtolower($citation['id'])) !== false) {
                                        // If here, we know at least the media exists.  Should only be one that matches everything to this point, but if not, last one will get updated
                                        $this_mediaID = $the_media['mediaID']; 
                                        if ($the_media['personID'] == $citation['persfamID'] ) {
                                            $this_medialinkID = $the_media['medialinkID']; // so have the right medialink entry
                                            $this_title = $the_media['title'];
                                        }
                                    }
                                }
                            }
                            else {
                            }

                            if ( !$BWMI_mod['update'] && $this_mediaID!="" && $this_medialinkID!="" ) {
                                // Skip the update
                                $BWMI_totals['media_skips']++;

                                // The following line added, and the 3 after commented out in v9.0.0.8
                                $message = "";
                                //$message .= sprintf($BWMI_mod['txt_media'], $this_mediaID, $BWMI_mod['txt_nochange'], $this_medialinkID, $BWMI_mod['txt_nochange']);
                                //$message .= sprintf($BWMI_mod['txt_data'], $citation['id'], $this_title );
                                //$message = sprintf($BWMI_mod['txt_results'], $BWMI_mod['txt_unchanged'], $message .'.');
                            } else {
                                // If we need it for the Title or other data, get the website page and extract the title and data
                                if ( $GetWebData ) {
                                    if (is_callable('curl_init')){
                                        $ch = curl_init($citation['url']);
                                        curl_setopt($ch, CURLOPT_HEADER, false);
                                        curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); // to a variable
                                        curl_setopt($ch, CURLOPT_FOLLOWLOCATION, true); // follow redirections
                                        curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, $BWMI_mod['connecttimeout']); // 3 sec timeout
                                        curl_setopt($ch, CURLOPT_TIMEOUT, $BWMI_mod['timeout']  );             // 2 sec timeout
                                        $html = curl_exec($ch);
                                        $curl_errno = curl_errno($ch);
                                        $curl_error = curl_error($ch);
                                        curl_close($ch);
                                    } else if (ini_get('allow_url_fopen')) {
                                        $html = file_get_contents($citation['url']);
                                    } else {
                                        $curl_errno = 1;  // Force an error.  Hack for now
                                    }

                                    if ($curl_errno > 0) {
                                        // Error getting data from website
                                        $message = sprintf($BWMI_mod['txt_timeout'], $citation['id'], $curl_errno, $curl_error);
                                        echo $message . "<br />\n";
                                        if ($BWMI_mod['log']) { fwrite( $fp, $message . $BWMI_mod['txt_eol'] );}
                                        $BWMI_totals['Web_errors']++;
                                        $status_error = 1;
                                    } else {
                                        // Have data, let's see if we can get something useful
                                        $matches = array();
                                        if (preg_match("/\<title.*\>(.*)\<\/title\>/isU", $html, $matches)){ // Get the Title
                                            $WEBfull = trim($matches[1]);

                                            // Extract tag line
                                            $match = array();
                                            if (preg_match(sprintf("/%s/isU",$TheWebsite['tagline']), $WEBfull, $match) ) {
                                                $WEBtag = trim($match[0]);
                                            }

                                            //$year_search = "/[\s]+[\(|\[]+.*[\s]+\-[\s]+.*[\)|\]]+[\s]+/isU";
                                            $year_search = "/[\s]+[\(|\[]+[^a-zA-Z]+[\s]*\-[\s]*.*[\)|\]]+[\s]+/isU";
                                            // Extract Year
                                            $match = array();
                                            if (preg_match($year_search, $WEBfull, $match) ) {
                                                $WEByear = trim($match[0]);
                                                $WEByear = trim($WEByear,'()[]');
                                            }

                                            // Extract Title and Name
                                            $WEBtitle = trim(str_replace($WEBtag,'', $WEBfull)); // first remove tagline

                                            $matches = array();
                                            if (preg_match(sprintf("/%s/isU",$TheWebsite['match_name']), $WEBfull, $matches)){
                                                $WEBname = trim($matches[1]);
                                            } else {
                                                // do the old way by taking out things
                                                $WEBname  = preg_replace ( $year_search, ' ', $WEBtitle, 1);
                                                $WEBname  = preg_replace('/\s+/', ' ', $WEBname);
                                                $WEBname  = trim($WEBname);
                                            }

                                            // Remove (* - *) from title
                                            if ($TheWebsite['title_no_year'] ) {
                                                //$WEBfull= preg_replace ( "/[\s]+[\(|\[].*[\s]+\-[\s]+.*[\)|\]][\s]+/", ' ', $WEBfull, 1);
                                                $WEBfull= preg_replace ( $year_search, ' ', $WEBfull, 1);
                                            }
                                            // Remove extra spaces
                                            $WEBfull = trim(preg_replace('/\s+/', ' ', $WEBfull));

                                            if ($Site=='BG') { // Billion Graves specific
                                                // Get Lat/Lng ---- This no longer works due to website changes
                                                //$matches = array();
                                                // <meta property="og:latitude" content="29.38633615619446"/>
                                                //if (preg_match("/\<meta[\s]+property[\s]*=[\s]*\"og:latitude\"[\s]+content=[\s]*\"(.*)\"[\s]*\/\>/isU", $html, $matches)){
                                                //    $citation['lat'] = trim($matches[1]);
                                                //}
                                                //$matches = array();
                                                // <meta property="og:longitude" content="-98.55339607233047"/>
                                                //if (preg_match("/\<meta[\s]+property[\s]*=[\s]*\"og:longitude\"[\s]+content=[\s]*\"(.*)\"[\s]*\/\>/isU", $html, $matches)){
                                                //    $citation['lng'] = trim($matches[1]);
                                                //}
                                            }
                                            $HaveNewData=true;
                                        } else {
                                            $BWMI_totals['web_errors']++;
                                            $status_error = 2;
                                        }
                                    }
                                    $resume_count++;
                                }

                                // If we need it for the Title, get the TNG data
                                if ( $GetTNGData ) {
                                    $result3   = getPersonData($citation['gedcom'], $citation['persfamID']);
                                    if( tng_num_rows($result3) ) {
                                        $person = tng_fetch_assoc( $result3 );
                                        $firstname = trim( $title . " " . $person['firstname'] );
                                        $surnames  = trim( $person['lnprefix'] . " " . $person['lastname'] );
                                        if ($person['sex']=='F') {
                                            // Get surnames of all husbands
                                            $result4 = getSpousesSimple($citation['gedcom'], "wife", $citation['persfamID'], "husband", "wifeorder");
                                            if( tng_num_rows($result4) ) {
                                                while( $spouserow = tng_fetch_assoc( $result4 )) {
                                                    $result5  = getPersonSimple($citation['gedcom'], $spouserow['husband']);
                                                    if (tng_num_rows($result5) ) {
                                                        $row = tng_fetch_assoc( $result5 );
                                                        $surnames .= " ".trim( $row['lnprefix'] . " " . $row['lastname'] );
                                                    }
                                                }
                                            }
                                        }
                                        $TNGname =  $firstname .' '.$surnames;
                                        // Get birth and death years
                                        $person['birthdatetr'] = ($person['birthdatetr'] =='0000-00-00') ? $person['altbirthdatetr'] : $person['birthdatetr'];
                                        $birthyear = ($person['birthdatetr'] == '0000-00-00') ? $BWMI_mod['txt_unknown'] : substr($person['birthdatetr'],0,4);
                                        $deathyear = ($person['deathdatetr'] == '0000-00-00') ? $BWMI_mod['txt_unknown'] : substr($person['deathdatetr'],0,4);
                                        $TNGyear = sprintf("%s - %s", $birthyear, $deathyear);
                                        $HaveNewData=true;
                                    }
                                }

                                // Now create the title from the template
                                $citation['title'] = $TheWebsite['title_template'];
                                $citation['title'] = str_replace ( $BWMI_mod['txt_sym_TNGname'],  $TNGname,             $citation['title']); // %N%
                                $citation['title'] = str_replace ( $BWMI_mod['txt_sym_TNGyear'],  $TNGyear,             $citation['title']); // %Y%
                                $citation['title'] = str_replace ( $BWMI_mod['txt_sym_TNGtitle'], $TheWebsite['title'], $citation['title']); // %T%
                                $citation['title'] = str_replace ( $BWMI_mod['txt_sym_WEBname'],  $WEBname,             $citation['title']); // %n%
                                $citation['title'] = str_replace ( $BWMI_mod['txt_sym_WEByear'],  $WEByear,             $citation['title']); // %y%
                                $citation['title'] = str_replace ( $BWMI_mod['txt_sym_WEBtitle'], $WEBtitle,            $citation['title']); // %t%
                                $citation['title'] = str_replace ( $BWMI_mod['txt_sym_WEBtag'],   $WEBtag,              $citation['title']); // %e%
                                $citation['title'] = str_replace ( $BWMI_mod['txt_sym_WEBfull'],  $WEBfull,             $citation['title']); // %f%

                                $msg_title = sprintf($BWMI_mod['txt_data'], $citation['id'], $citation['title'] );

                                $new_mediaID     = false;
                                $new_medialinkID = false;
                                $title_to_use  = ($HaveNewData) ? $citation['title'] : $TheWebsite['title'];

                                // Take care of the media file
                                // Always update these, just in case we want them changed (because settings changed)
                                $UpdateString  = sprintf($datapair, 'form',          tng_real_escape_string($TheWebsite['type_form']));
                                $UpdateString .= sprintf($datapair, 'mediakey',      tng_real_escape_string($citation['url']));
                                $UpdateString .= sprintf($datapair, 'path',          tng_real_escape_string($citation['url']));
                                $UpdateString .= sprintf($datapair, 'thumbpath',     tng_real_escape_string($TheWebsite['thumb']));
                                $UpdateString .= sprintf($datapair, 'newwindow',     tng_real_escape_string($BWMI_mod['NewWindow'])); //added 9.0.0.2
                                $UpdateString .= sprintf($datapair, 'owner',         tng_real_escape_string($TheWebsite['name']));     //added 9.0.0.3
                                $UpdateString .= sprintf($datapair, 'usecollfolder', 1           );
                                $UpdateString .= sprintf($datapair, 'abspath',       1           );
                                $UpdateString .= sprintf($datapair, 'alwayson',      0           );
                                $UpdateString .= sprintf($datapair, 'status',        ""          );

                                if ($citation['lng'] != "" && $citation['lat'] != "" ) {
                                    $UpdateString .= sprintf($datapair, 'latitude',  tng_real_escape_string($citation['lat']));
                                    $UpdateString .= sprintf($datapair, 'longitude', tng_real_escape_string($citation['lng']));
                                    $UpdateString .= sprintf($datapair, 'zoom',      20);
                                }

                                if ($this_mediaID == "") {
                                    // So did not find existing media, so need to create one.
                                    $UpdateString .= sprintf($datapair, 'description', tng_real_escape_string($title_to_use));
                                    $UpdateString .= sprintf($datapair, 'mediatypeID', tng_real_escape_string($TheWebsite['type_ID']));
                                    $UpdateString .= sprintf($datapair, 'gedcom',      tng_real_escape_string($citation['gedcom']));
                                    $UpdateString .= sprintf($datapair, 'changedate',    $newdate    ); // set for all versions as of 9.0.0.2,
                                    $UpdateString .= sprintf($datapair, 'changedby',     $currentuser);
                                    $UpdateString  = rtrim($UpdateString,',');
                                    $query = "INSERT IGNORE INTO $media_table SET $UpdateString ";
                                    $result_update = tng_query($query) or die ($admtext['cannotexecutequery'] . ": $query");
                                    if( $result_update && tng_affected_rows()) {
                                        $this_mediaID = tng_insert_id();
                                        $new_mediaID  = true;
                                        $msg_mediaID  = $BWMI_mod['txt_added'];
                                        $BWMI_totals['media_adds']++;
                                    } else {
                                        $msg_mediaID = $BWMI_mod['txt_add_errors'];
                                        $BWMI_totals['media_adds_errors']++;
                                        $status_error = 3;
                                    }
                                } else {
                                    // It already exists, so just update it.
                                    $UpdateString .= ($HaveNewData) ? sprintf($datapair, 'description', tng_real_escape_string($citation['title'])) : ''; //only update if have new data
                                    $UpdateString = rtrim($UpdateString,',');
                                    $query = "UPDATE $media_table SET $UpdateString WHERE mediaID='{$this_mediaID}'";
                                    $result_update = tng_query($query) or die ($admtext['cannotexecutequery'] . ": $query");
                                    if ($result_update) {
                                        $msg_mediaID = $BWMI_mod['txt_updated'];
                                        $BWMI_totals['media_updates']++;
                                    } else {
                                        $msg_mediaID = $BWMI_mod['txt_update_error'];
                                        $BWMI_totals['media_updates_errors']++;
                                        $status_warning = true;
                                    }
                                }


                                // Take care of the media link file
                                if ($this_mediaID != "") { // Only add/update if have the corresponding media entry
                                    if ($this_medialinkID == ""){ // Need to add it
                                        $UpdateString  = sprintf($datapair, 'mediaID',       $this_mediaID);
                                        $UpdateString .= sprintf($datapair, 'linktype',      'I');
                                        $UpdateString .= sprintf($datapair, 'eventID',       $TheWebsite['event'] );
                                        $UpdateString .= sprintf($datapair, 'ordernum',       1);
                                        $UpdateString .= sprintf($datapair, 'gedcom',         tng_real_escape_string($citation['gedcom']));
                                        $UpdateString .= sprintf($datapair, 'personID',       $citation['persfamID']);
                                        $UpdateString .= sprintf($datapair, 'altdescription', tng_real_escape_string($title_to_use));
                                        // not updating: defphoto, altnotes,
                                        $UpdateString  = rtrim($UpdateString,',');
                                        $query = "INSERT IGNORE INTO $medialinks_table SET $UpdateString ";
                                        $result_update = tng_query($query) or die ($admtext['cannotexecutequery'] . ": $query");
                                        if ($result_update && tng_affected_rows()) {
                                            $this_medialinkID  = tng_insert_id();
                                            $new_medialinkID   = true;
                                            $msg_medialinkID   = $BWMI_mod['txt_added'];
                                            $BWMI_totals['links_adds']++;
                                        } else {
                                            // Error with medialinks_table addition
                                            $msg_medialinkID = $BWMI_mod['txt_add_error'];
                                            $BWMI_totals['links_adds_errors']++;
                                            $status_error = 4;
                                        }

                                    } elseif ($HaveNewData) { // Update it if it has changed
                                        $LinkString  = sprintf($datapair, 'altdescription', tng_real_escape_string($title_to_use));
                                        $LinkString  = rtrim($LinkString,',');
                                        $query  = "UPDATE $medialinks_table SET $LinkString WHERE medialinkID='".$this_medialinkID."' ";
                                        $result_update = tng_query($query) or die ($admtext['cannotexecutequery'] . ": $query");
                                        if ($result_update) {
                                            $msg_medialinkID = $BWMI_mod['txt_updated'];
                                            $BWMI_totals['links_updates']++;
                                        } else {
                                            $msg_medialinkID = $BWMI_mod['txt_update_error'];
                                            $BWMI_totals['links_updates_errors']++;
                                            $status_warning = true;
                                        }
                                    } else {
                                            $msg_medialinkID = $BWMI_mod['txt_nochange'];
                                            $BWMI_totals['links_nochange']++;
                                    }
                                }

                                $message .= sprintf($BWMI_mod['txt_media'], $this_mediaID, $msg_mediaID, $this_medialinkID, $msg_medialinkID);
                                $message .= $msg_title;

                                // added the following message code in v9.0.0.8
                                $msg_status = ($status_warning) ? $BWMI_mod['txt_warning']  : $BWMI_mod['txt_succeeded'] ;
                                $msg_status = ($status_error > 0)   ? $BWMI_mod['txt_failed'].' ('.$status_error.')' : $msg_status ;
                                $message = sprintf($BWMI_mod['txt_results'], $msg_status, $message .'.');
                                $message .= "<br />\n";
                            }

                            // commented out in v9.0.0.8
                            //$msg_status = ($status_warning) ? $BWMI_mod['txt_warning']  : $BWMI_mod['txt_succeeded'] ;
                            //$msg_status = ($status_error)   ? $BWMI_mod['txt_failed']   : $msg_status ;
                            //$message = sprintf($BWMI_mod['txt_results'], $msg_status, $message .'.');
                            //$message .= "<br />\n";
                        }
                        echo $message;
                        if ($BWMI_mod['log']) { fwrite( $fp, $message . $BWMI_mod['txt_eol'] );}

                        // Save our state
                        $saved_totals = array();
                        $index = 0;
                        foreach ($BWMI_totals as $key => $value) {
                            $saved_totals[$index++] = $BWMI_totals[$key];
                        }
                        $saved_totals_string = tng_real_escape_string(json_encode( $saved_totals ));
                        $query = "UPDATE $saveimport_table SET filename  =\"{$Site}\",
                                                               branch    =\"{$citation['gedcom'] }\",
                                                               ioffset   = {$citation['personNumber']},
                                                               soffset   = {$citation['citationID']},
                                                               lastid    = \"{$saved_totals_string}\"
                                                           WHERE gedcom = \"{$BWMI_mod['txt_savestate']}\"";
                        $saveresult = @tng_query( $query ) or die ($admtext['cannotexecutequery'] . ": $query");
                    }
                }
                if ($BWMI_mod['refresh'] > 0 && $resume_count >= $BWMI_mod['refresh'] ) {
                    // This is a long opperation. Force a browser refresh to keep from timing out
                    echo "<script>location.href=\"{$resumeURL}\"</script>";
                    echo "<META HTTP-EQUIV=\"Refresh\" Content=\"0; URL={$resumeURL}\">";
                    exit();
                }
            }

            // Give a Summary for this website
            $message = sprintf($BWMI_mod['txt_errsummary'], $BWMI_totals['citations'], $BWMI_totals['media_adds'], $BWMI_totals['media_updates'], $BWMI_totals['media_skips'],
                                                             $BWMI_totals['media_adds_errors'] + $BWMI_totals['media_updates_errors'],
                                                             $BWMI_totals['links_adds'], $BWMI_totals['links_updates'], $BWMI_totals['links_nochange'],
                                                             $BWMI_totals['links_adds_errors'] + $BWMI_totals['links_updates_errors'],
                                                             $BWMI_totals['web_errors']);
            echo "<br />".$message . "<br />\n";
            if ($BWMI_mod['log']) { fwrite( $fp, $message . $BWMI_mod['txt_eol'] );}

            // Final Overall Status
            $web_errors = ($BWMI_totals['web_errors'] > 0 ) ? true : false;

            $db_errors   = $BWMI_totals['media_adds_errors'] + $BWMI_totals['media_updates_errors'] + $BWMI_totals['links_adds_errors']
                                                             + $BWMI_totals['links_updates_errors'] + $BWMI_totals['mediatype_errors'];
            $db_errors  = ($db_errors > 0 ) ? true : false;

            if      ( $web_errors && !$db_errors ) { $msg1 = $BWMI_mod['txt_errors1'];}
            else if (!$web_errors &&  $db_errors)  { $msg1 = $BWMI_mod['txt_errors2'];}
            else if ( $web_errors &&  $db_errors)  { $msg1 = $BWMI_mod['txt_errors3'];}
            else                                   { $msg1 = $BWMI_mod['txt_errors0'];}

            $message = sprintf($BWMI_mod['txt_results'], $TheWebsite['name'], $msg1 . '.');
            echo $message . "<br /><br />\n";
            if ($BWMI_mod['log']) { fwrite( $fp, $message . $BWMI_mod['txt_eol'] );}
        }
    }
    if ($BWMI_mod['log']) {
        fclose( $fp );
        //echo "<script type=\"text/javascript\">\n";
        //echo "textcode = window.open(\"{$logfile}\",\"Log\", \"width=300, height=500\");\n";
        //echo "</script>\n";
    }

    // Remove the saved state
	$sql = "DELETE from $saveimport_table WHERE gedcom = \"{$BWMI_mod['txt_savestate']}\"";
	$result = @tng_query($sql) or die ($admtext['cannotexecutequery'] . ": $query");
}
%end:%

%copyfile2:burial_website_media_import/findagrave.png:img/findagrave.png%
%copyfile2:burial_website_media_import/findagrave_small.png:img/findagrave_small.png%
%copyfile2:burial_website_media_import/billiongraves.png:img/billiongraves.png%
%copyfile2:burial_website_media_import/billiongraves_small.png:img/billiongraves_small.png%
%copyfile2:burial_website_media_import/tombstone_color_small.png:img/tombstone_color_small.png%
%copyfile2:burial_website_media_import/tombstone_black_small.png:img/tombstone_black_small.png%

Your Access Expired	Date. in : 30-10-2025
Regist : 09-12-2024	Expired : 01-12-2027