/** * 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; }