';
// Calendar form
echo '
';
echo '
';
// Day/Month/Year and calendar selector
echo '| ';
if ($view === 'day') {
echo '', I18N::translate('View day'), '';
} else {
echo '', I18N::translate('View day'), '';
}
if ($view === 'month') {
echo ' | ', I18N::translate('View month'), '';
} else {
echo ' | ', I18N::translate('View month'), '';
}
if ($view === 'year') {
echo ' | ', I18N::translate('View year'), '';
} else {
echo ' | ', I18N::translate('View year'), '';
}
echo ' | ';
$n = 0;
foreach (Date::calendarNames() as $newcal => $cal_name) {
$tmp = $cal_date->convertToCalendar($newcal);
if ($tmp->inValidRange()) {
if ($n++) {
echo ' | ';
}
if (get_class($tmp) === get_class($cal_date)) {
echo '', $cal_name, '';
} else {
$newcalesc = urlencode($tmp->format('%@'));
$tmpmonth = $tmp->format('%O');
echo '', $cal_name, '';
}
}
}
echo ' |
';
echo '
';
// Convert event filter option to a list of gedcom event codes
if ($filterev === 'all') {
$events = '';
} else {
if ($filterev === 'bdm') {
$events = 'BIRT MARR DEAT';
} else {
$events = $filterev;
}
}
// Fetch data for day/month/year views
switch ($view) {
case 'day':
$found_facts = apply_filter(FunctionsDb::getAnniversaryEvents($cal_date->minJD, $events, $WT_TREE), $filterof, $filtersx);
break;
case 'month':
$cal_date->d = 0;
$cal_date->setJdFromYmd();
// Make a separate list for each day. Unspecified/invalid days go in day 0.
$found_facts = array();
for ($d = 0; $d <= $days_in_month; ++$d) {
$found_facts[$d] = array();
}
// Fetch events for each day
for ($jd = $cal_date->minJD; $jd <= $cal_date->maxJD; ++$jd) {
foreach (apply_filter(FunctionsDb::getAnniversaryEvents($jd, $events, $WT_TREE), $filterof, $filtersx) as $fact) {
$tmp = $fact->getDate()->minimumDate();
if ($tmp->d >= 1 && $tmp->d <= $tmp->daysInMonth()) {
// If the day is valid (for its own calendar), display it in the
// anniversary day (for the display calendar).
$found_facts[$jd - $cal_date->minJD + 1][] = $fact;
} else {
// Otherwise, display it in the "Day not set" box.
$found_facts[0][] = $fact;
}
}
}
break;
case 'year':
$cal_date->m = 0;
$cal_date->setJdFromYmd();
$found_facts = apply_filter(FunctionsDb::getCalendarEvents($ged_date->minimumJulianDay(), $ged_date->maximumJulianDay(), $events, $WT_TREE), $filterof, $filtersx);
// Eliminate duplicates (e.g. BET JUL 1900 AND SEP 1900 will appear twice in 1900)
$found_facts = array_unique($found_facts);
break;
}
// Group the facts by family/individual
switch ($view) {
case 'year':
case 'day':
$indis = array();
$fams = array();
foreach ($found_facts as $fact) {
$record = $fact->getParent();
$xref = $record->getXref();
if ($record instanceof Individual) {
if (empty($indis[$xref])) {
$indis[$xref] = calendar_fact_text($fact, true);
} else {
$indis[$xref] .= '
' . calendar_fact_text($fact, true);
}
} elseif ($record instanceof Family) {
if (empty($indis[$xref])) {
$fams[$xref] = calendar_fact_text($fact, true);
} else {
$fams[$xref] .= '
' . calendar_fact_text($fact, true);
}
}
}
break;
case 'month':
$cal_facts = array();
foreach ($found_facts as $d => $facts) {
$cal_facts[$d] = array();
foreach ($facts as $fact) {
$xref = $fact->getParent()->getXref();
if (empty($cal_facts[$d][$xref])) {
$cal_facts[$d][$xref] = calendar_fact_text($fact, false);
} else {
$cal_facts[$d][$xref] .= '
' . calendar_fact_text($fact, false);
}
}
}
break;
}
switch ($view) {
case 'year':
case 'day':
echo '
';
// Table headings
echo '| ', I18N::translate('Individuals'), ' | ';
echo '', I18N::translate('Families'), ' | ';
echo '
';
// Table rows
$males = 0;
$females = 0;
$numfams = 0;
echo '| ';
// Avoid an empty unordered list
$content = calendar_list_text($indis, '', '', true);
if ($content) {
echo '';
}
echo ' | ';
echo '';
// Avoid an empty unordered list
$content = calendar_list_text($fams, '', '', true);
if ($content) {
echo '';
}
echo ' | ';
echo '
';
// Table footers
echo '', I18N::translate('Total individuals: %s', count($indis));
echo '
';
echo ' ', $males, ' ';
echo ' ', $females, ' ';
if (count($indis) !== $males + $females) {
echo ' ', count($indis) - $males - $females;
}
echo ' | ';
echo '', I18N::translate('Total families: %s', count($fams)), ' | ';
echo '
';
break;
case 'month':
// We use JD%7 = 0/Mon...6/Sun. Standard definitions use 0/Sun...6/Sat.
$week_start = (I18N::firstDay() + 6) % 7;
$weekend_start = (I18N::weekendStart() + 6) % 7;
$weekend_end = (I18N::weekendEnd() + 6) % 7;
// The french calendar has a 10-day week, which starts on primidi
if ($days_in_week === 10) {
$week_start = 0;
$weekend_start = -1;
$weekend_end = -1;
}
echo '
';
for ($week_day = 0; $week_day < $days_in_week; ++$week_day) {
$day_name = $cal_date->dayNames(($week_day + $week_start) % $days_in_week);
if ($week_day == $weekend_start || $week_day == $weekend_end) {
echo '| ', $day_name, ' | ';
} else {
echo '', $day_name, ' | ';
}
}
echo '
';
// Print days 1-n of the month...
// ...but extend to cover "empty" days before/after the month to make whole weeks.
// e.g. instead of 1 -> 30 (=30 days), we might have -1 -> 33 (=35 days)
$start_d = 1 - ($cal_date->minJD - $week_start) % $days_in_week;
$end_d = $days_in_month + ($days_in_week - ($cal_date->maxJD - $week_start + 1) % $days_in_week) % $days_in_week;
// Make sure that there is an empty box for any leap/missing days
if ($start_d === 1 && $end_d === $days_in_month && count($found_facts[0]) > 0) {
$end_d += $days_in_week;
}
for ($d = $start_d; $d <= $end_d; ++$d) {
if (($d + $cal_date->minJD - $week_start) % $days_in_week === 1) {
echo '';
}
echo '';
if ($d < 1 || $d > $days_in_month) {
if (count($cal_facts[0]) > 0) {
echo '', I18N::translate('Day not set'), '
';
echo '';
echo calendar_list_text($cal_facts[0], '', '', false);
echo ' ';
$cal_facts[0] = array();
} else {
echo ' ';
}
} else {
// Format the day number using the calendar
$tmp = new Date($cal_date->format("%@ {$d} %O %E"));
$d_fmt = $tmp->minimumDate()->format('%j');
if ($d === $today->d && $cal_date->m === $today->m) {
echo '', $d_fmt, '';
} else {
echo '', $d_fmt, '';
}
// Show a converted date
foreach (explode('_and_', $CALENDAR_FORMAT) as $convcal) {
switch ($convcal) {
case 'french':
$alt_date = new FrenchDate($cal_date->minJD + $d - 1);
break;
case 'gregorian':
$alt_date = new GregorianDate($cal_date->minJD + $d - 1);
break;
case 'jewish':
$alt_date = new JewishDate($cal_date->minJD + $d - 1);
break;
case 'julian':
$alt_date = new JulianDate($cal_date->minJD + $d - 1);
break;
case 'hijri':
$alt_date = new HijriDate($cal_date->minJD + $d - 1);
break;
case 'jalali':
$alt_date = new JalaliDate($cal_date->minJD + $d - 1);
break;
default:
break 2;
}
if (get_class($alt_date) !== get_class($cal_date)) {
echo '' . $alt_date->format("%j %M") . '';
// Just show the first conversion
break;
}
}
echo '
';
echo calendar_list_text($cal_facts[$d], '', '', false);
echo ' ';
}
echo ' | ';
if (($d + $cal_date->minJD - $week_start) % $days_in_week === 0) {
echo '
';
}
}
echo '
';
break;
}
echo '
' . $facts . '
' . $tag2;
}
return $html;
}