/**
* Generate the HTML content of this block.
*
* @param int $block_id
* @param bool $template
* @param string[] $cfg
*
* @return string
*/
public function getBlock($block_id, $template = true, $cfg = array())
{
global $ctype, $controller, $WT_TREE;
$days = $this->getBlockSetting($block_id, 'days', '7');
$infoStyle = $this->getBlockSetting($block_id, 'infoStyle', 'table');
$calendar = $this->getBlockSetting($block_id, 'calendar', 'jewish');
$block = $this->getBlockSetting($block_id, 'block', '1');
foreach (array('days', 'infoStyle', 'block') as $name) {
if (array_key_exists($name, $cfg)) {
${$name} = $cfg[$name];
}
}
$startjd = WT_CLIENT_JD;
$endjd = WT_CLIENT_JD + $days - 1;
$id = $this->getName() . $block_id;
$class = $this->getName() . '_block';
if ($ctype === 'gedcom' && Auth::isManager($WT_TREE) || $ctype === 'user' && Auth::check()) {
$title = '<a class="icon-admin" title="' . I18N::translate('Configure') . '" href="block_edit.php?block_id=' . $block_id . '&ged=' . $WT_TREE->getNameHtml() . '&ctype=' . $ctype . '"></a>';
} else {
$title = '';
}
$title .= $this->getTitle();
$content = '';
// The standard anniversary rules cover most of the Yahrzeit rules, we just
// need to handle a few special cases.
// Fetch normal anniversaries...
$yahrzeits = array();
for ($jd = $startjd - 1; $jd <= $endjd + $days; ++$jd) {
foreach (FunctionsDb::getAnniversaryEvents($jd, 'DEAT _YART', $WT_TREE) as $fact) {
// Exact hebrew dates only
$date = $fact->getDate();
if ($date->minimumDate() instanceof JewishDate && $date->minimumJulianDay() === $date->maximumJulianDay()) {
$fact->jd = $jd;
$yahrzeits[] = $fact;
}
}
}
// ...then adjust dates
$jewish_calendar = new JewishCalendar();
foreach ($yahrzeits as $yahrzeit) {
if ($yahrzeit->getTag() === 'DEAT') {
$today = new JewishDate($yahrzeit->jd);
$hd = $yahrzeit->getDate()->minimumDate();
$hd1 = new JewishDate($hd);
$hd1->y += 1;
$hd1->setJdFromYmd();
// Special rules. See http://www.hebcal.com/help/anniv.html
// Everything else is taken care of by our standard anniversary rules.
if ($hd->d == 30 && $hd->m == 2 && $hd->y != 0 && $hd1->daysInMonth() < 30) {
// 30 CSH - Last day in CSH
$yahrzeit->jd = $jewish_calendar->ymdToJd($today->y, 3, 1) - 1;
} elseif ($hd->d == 30 && $hd->m == 3 && $hd->y != 0 && $hd1->daysInMonth() < 30) {
// 30 KSL - Last day in KSL
$yahrzeit->jd = $jewish_calendar->ymdToJd($today->y, 4, 1) - 1;
} elseif ($hd->d == 30 && $hd->m == 6 && $hd->y != 0 && $today->daysInMonth() < 30 && !$today->isLeapYear()) {
// 30 ADR - Last day in SHV
$yahrzeit->jd = $jewish_calendar->ymdToJd($today->y, 6, 1) - 1;
}
}
}
switch ($infoStyle) {
case 'list':
foreach ($yahrzeits as $yahrzeit) {
if ($yahrzeit->jd >= $startjd && $yahrzeit->jd < $startjd + $days) {
$ind = $yahrzeit->getParent();
$content .= "<a href=\"" . $ind->getHtmlUrl() . "\" class=\"list_item name2\">" . $ind->getFullName() . "</a>" . $ind->getSexImage();
$content .= "<div class=\"indent\">";
$content .= $yahrzeit->getDate()->display(true);
$content .= ', ' . I18N::translate('%s year anniversary', $yahrzeit->anniv);
$content .= "</div>";
}
}
break;
case 'table':
default:
$table_id = Uuid::uuid4();
// table requires a unique ID
$controller->addExternalJavascript(WT_JQUERY_DATATABLES_JS_URL)->addInlineJavascript('
jQuery("#' . $table_id . '").dataTable({
dom: \'t\',
' . I18N::datatablesI18N() . ',
autoWidth: false,
paginate: false,
lengthChange: false,
filter: false,
info: true,
jQueryUI: true,
sorting: [[5,"asc"]],
columns: [
/* 0-name */ { dataSort: 1 },
/* 1-NAME */ { visible: false },
/* 2-date */ { dataSort: 3 },
/* 3-DATE */ { visible: false },
/* 4-Aniv */ { class: "center"},
/* 5-yart */ { dataSort: 6 },
/* 6-YART */ { visible: false }
]
});
jQuery("#' . $table_id . '").css("visibility", "visible");
jQuery(".loading-image").css("display", "none");
');
$content = '';
$content .= '<div class="loading-image"> </div>';
$content .= '<table id="' . $table_id . '" class="width100" style="visibility:hidden;">';
$content .= '<thead><tr>';
$content .= '<th>' . GedcomTag::getLabel('NAME') . '</th>';
$content .= '<th>' . GedcomTag::getLabel('NAME') . '</th>';
$content .= '<th>' . GedcomTag::getLabel('DEAT') . '</th>';
$content .= '<th>DEAT</th>';
$content .= '<th><i class="icon-reminder" title="' . I18N::translate('Anniversary') . '"></i></th>';
$content .= '<th>' . GedcomTag::getLabel('_YART') . '</th>';
$content .= '<th>_YART</th>';
$content .= '</tr></thead><tbody>';
foreach ($yahrzeits as $yahrzeit) {
if ($yahrzeit->jd >= $startjd && $yahrzeit->jd < $startjd + $days) {
$content .= '<tr>';
$ind = $yahrzeit->getParent();
// Individual name(s)
$name = $ind->getFullName();
$url = $ind->getHtmlUrl();
$content .= '<td>';
$content .= '<a href="' . $url . '">' . $name . '</a>';
$content .= $ind->getSexImage();
$addname = $ind->getAddName();
if ($addname) {
$content .= '<br><a href="' . $url . '">' . $addname . '</a>';
}
$content .= '</td>';
$content .= '<td>' . $ind->getSortName() . '</td>';
// death/yahrzeit event date
$content .= '<td>' . $yahrzeit->getDate()->display() . '</td>';
$content .= '<td>' . $yahrzeit->getDate()->julianDay() . '</td>';
// sortable date
// Anniversary
$content .= '<td>' . $yahrzeit->anniv . '</td>';
// upcomming yahrzeit dates
switch ($calendar) {
case 'gregorian':
$today = new GregorianDate($yahrzeit->jd);
break;
case 'jewish':
default:
$today = new JewishDate($yahrzeit->jd);
break;
}
$td = new Date($today->format('%@ %A %O %E'));
$content .= '<td>' . $td->display() . '</td>';
$content .= '<td>' . $td->julianDay() . '</td>';
// sortable date
$content .= '</tr>';
}
}
$content .= '</tbody></table>';
break;
}
if ($template) {
if ($block) {
$class .= ' small_inner_block';
}
return Theme::theme()->formatBlock($id, $title, $class, $content);
} else {
return $content;
}
}
/**
* Get a list of events whose anniversary occured on a given julian day.
* Used on the on-this-day/upcoming blocks and the day/month calendar views.
*
* @param int $jd the julian day
* @param string $facts restrict the search to just these facts or leave blank for all
* @param Tree $tree the tree to search
*
* @return Fact[]
*/
public static function getAnniversaryEvents($jd, $facts, Tree $tree)
{
$found_facts = array();
foreach (array(new GregorianDate($jd), new JulianDate($jd), new FrenchDate($jd), new JewishDate($jd), new HijriDate($jd), new JalaliDate($jd)) as $anniv) {
// Build a SQL where clause to match anniversaries in the appropriate calendar.
$ind_sql = "SELECT DISTINCT i_id AS xref, i_gedcom AS gedcom, d_type, d_day, d_month, d_year, d_fact" . " FROM `##dates` JOIN `##individuals` ON d_gid = i_id AND d_file = i_file" . " WHERE d_type = :type AND d_file = :tree_id";
$fam_sql = "SELECT DISTINCT f_id AS xref, f_gedcom AS gedcom, d_type, d_day, d_month, d_year, d_fact" . " FROM `##dates` JOIN `##families` ON d_gid = f_id AND d_file = f_file" . " WHERE d_type = :type AND d_file = :tree_id";
$args = array('type' => $anniv->format('%@'), 'tree_id' => $tree->getTreeId());
$where = "";
// SIMPLE CASES:
// a) Non-hebrew anniversaries
// b) Hebrew months TVT, SHV, IYR, SVN, TMZ, AAV, ELL
if (!$anniv instanceof JewishDate || in_array($anniv->m, array(1, 5, 6, 9, 10, 11, 12, 13))) {
// Dates without days go on the first day of the month
// Dates with invalid days go on the last day of the month
if ($anniv->d === 1) {
$where .= " AND d_day <= 1";
} elseif ($anniv->d === $anniv->daysInMonth()) {
$where .= " AND d_day >= :day";
$args['day'] = $anniv->d;
} else {
$where .= " AND d_day = :day";
$args['day'] = $anniv->d;
}
$where .= " AND d_mon = :month";
$args['month'] = $anniv->m;
} else {
// SPECIAL CASES:
switch ($anniv->m) {
case 2:
// 29 CSH does not include 30 CSH (but would include an invalid 31 CSH if there were no 30 CSH)
if ($anniv->d === 1) {
$where .= " AND d_day <= 1 AND d_mon = 2";
} elseif ($anniv->d === 30) {
$where .= " AND d_day >= 30 AND d_mon = 2";
} elseif ($anniv->d === 29 && $anniv->daysInMonth() === 29) {
$where .= " AND (d_day = 29 OR d_day > 30) AND d_mon = 2";
} else {
$where .= " AND d_day = :day AND d_mon = 2";
$args['day'] = $anniv->d;
}
break;
case 3:
// 1 KSL includes 30 CSH (if this year didn’t have 30 CSH)
// 29 KSL does not include 30 KSL (but would include an invalid 31 KSL if there were no 30 KSL)
if ($anniv->d === 1) {
$tmp = new JewishDate(array($anniv->y, 'CSH', 1));
if ($tmp->daysInMonth() === 29) {
$where .= " AND (d_day <= 1 AND d_mon = 3 OR d_day = 30 AND d_mon = 2)";
} else {
$where .= " AND d_day <= 1 AND d_mon = 3";
}
} elseif ($anniv->d === 30) {
$where .= " AND d_day >= 30 AND d_mon = 3";
} elseif ($anniv->d == 29 && $anniv->daysInMonth() === 29) {
$where .= " AND (d_day = 29 OR d_day > 30) AND d_mon = 3";
} else {
$where .= " AND d_day = :day AND d_mon = 3";
$args['day'] = $anniv->d;
}
break;
case 4:
// 1 TVT includes 30 KSL (if this year didn’t have 30 KSL)
if ($anniv->d === 1) {
$tmp = new JewishDate(array($anniv->y, 'KSL', 1));
if ($tmp->daysInMonth() === 29) {
$where .= " AND (d_day <=1 AND d_mon = 4 OR d_day = 30 AND d_mon = 3)";
} else {
$where .= " AND d_day <= 1 AND d_mon = 4";
}
} elseif ($anniv->d === $anniv->daysInMonth()) {
$where .= " AND d_day >= :day AND d_mon=4";
$args['day'] = $anniv->d;
} else {
$where .= " AND d_day = :day AND d_mon=4";
$args['day'] = $anniv->d;
}
break;
case 7:
// ADS includes ADR (non-leap)
if ($anniv->d === 1) {
$where .= " AND d_day <= 1";
} elseif ($anniv->d === $anniv->daysInMonth()) {
$where .= " AND d_day >= :day";
$args['day'] = $anniv->d;
} else {
$where .= " AND d_day = :day";
$args['day'] = $anniv->d;
}
$where .= " AND (d_mon = 6 AND MOD(7 * d_year + 1, 19) >= 7 OR d_mon = 7)";
break;
case 8:
// 1 NSN includes 30 ADR, if this year is non-leap
if ($anniv->d === 1) {
if ($anniv->isLeapYear()) {
$where .= " AND d_day <= 1 AND d_mon = 8";
} else {
$where .= " AND (d_day <= 1 AND d_mon = 8 OR d_day = 30 AND d_mon = 6)";
}
} elseif ($anniv->d === $anniv->daysInMonth()) {
$where .= " AND d_day >= :day AND d_mon = 8";
$args['day'] = $anniv->d;
} else {
$where .= " AND d_day = :day AND d_mon = 8";
$args['day'] = $anniv->d;
}
break;
}
}
// Only events in the past (includes dates without a year)
$where .= " AND d_year <= :year";
$args['year'] = $anniv->y;
if ($facts) {
// Restrict to certain types of fact
$where .= " AND d_fact IN (";
preg_match_all('/([_A-Z]+)/', $facts, $matches);
foreach ($matches[1] as $n => $fact) {
$where .= $n ? ", " : "";
$where .= ":fact_" . $n;
$args['fact_' . $n] = $fact;
}
$where .= ")";
} else {
// If no facts specified, get all except these
$where .= " AND d_fact NOT IN ('CHAN', 'BAPL', 'SLGC', 'SLGS', 'ENDL', 'CENS', 'RESI', '_TODO')";
}
$order_by = " ORDER BY d_day, d_year DESC";
// Now fetch these anniversaries
foreach (array('INDI' => $ind_sql . $where . $order_by, 'FAM' => $fam_sql . $where . $order_by) as $type => $sql) {
$rows = Database::prepare($sql)->execute($args)->fetchAll();
foreach ($rows as $row) {
if ($type === 'INDI') {
$record = Individual::getInstance($row->xref, $tree, $row->gedcom);
} else {
$record = Family::getInstance($row->xref, $tree, $row->gedcom);
}
$anniv_date = new Date($row->d_type . ' ' . $row->d_day . ' ' . $row->d_month . ' ' . $row->d_year);
foreach ($record->getFacts() as $fact) {
if (($fact->getDate()->minimumDate() == $anniv_date->minimumDate() || $fact->getDate()->maximumDate() == $anniv_date->minimumDate()) && $fact->getTag() === $row->d_fact) {
$fact->anniv = $row->d_year === '0' ? 0 : $anniv->y - $row->d_year;
$found_facts[] = $fact;
}
}
}
}
}
return $found_facts;
}
