';
// Calendar form
echo '
';
echo "
";
// Day/Month/Year and calendar selector
echo '| ';
if ($action=='today') {
echo '', WT_I18N::translate('View day'), '';
} else {
echo "d}&month={$cal_month}&year={$cal_date->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action=today\">", WT_I18N::translate('View day'), "";
}
if ($action=='calendar') {
echo ' | ', WT_I18N::translate('View month'), '';
} else {
echo " | d}&month={$cal_month}&year={$cal_date->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action=calendar\">", WT_I18N::translate('View month'), "";
}
if ($action=='year') {
echo ' | ', WT_I18N::translate('View year'), '';
} else {
echo " | d}&month={$cal_month}&year={$cal_date->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action=year\">", WT_I18N::translate('View year'), "";
}
echo ' | ';
$n=0;
foreach (array(
'gregorian'=>WT_Date_Gregorian::calendarName(),
'julian' =>WT_Date_Julian::calendarName(),
'jewish' =>WT_Date_Jewish::calendarName(),
'french' =>WT_Date_French::calendarName(),
'hijri' =>WT_Date_Hijri::calendarName(),
'jalali' =>WT_Date_Jalali::calendarName(),
) 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 "d}&month={$tmpmonth}&year={$tmp->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action={$action}\">{$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 ($action) {
case 'today':
$found_facts=apply_filter(get_anniversary_events($cal_date->minJD, $events), $filterof, $filtersx);
break;
case 'calendar':
$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(get_anniversary_events($jd, $events), $filterof, $filtersx) as $fact) {
$d = $fact->getDate()->minDate()->d;
if (array_key_exists($d, $found_facts)) {
$found_facts[$d][]=$fact;
} else {
$found_facts[0][]=$fact;
}
}
break;
case 'year':
$cal_date->m=0;
$cal_date->setJdFromYmd();
$found_facts=apply_filter(get_calendar_events($ged_date->MinJD(), $ged_date->MaxJD(), $events), $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 ($action) {
case 'year':
case 'today':
$indis=array();
$fams=array();
foreach ($found_facts as $fact) {
$record = $fact->getParent();
$xref = $record->getXref();
if ($record instanceof WT_Individual) {
if (empty($indis[$xref])) {
$indis[$xref] = calendar_fact_text($fact, true);
} else {
$indis[$xref] .= '
' . calendar_fact_text($fact, true);
}
} elseif ($record instanceof WT_Family) {
if (empty($indis[$xref])) {
$fams[$xref] = calendar_fact_text($fact, true);
} else {
$fams[$xref] .= '
' . calendar_fact_text($fact, true);
}
}
}
break;
case 'calendar':
$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 ($action) {
case 'year':
case 'today':
echo '
';
// Table headings
echo '| ', WT_I18N::translate('Individuals'), ' | ';
echo '', WT_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 '', WT_I18N::translate('Total individuals: %s', count($indis));
echo '
';
echo ' ', $males, ' ';
echo ' ', $females, ' ';
if (count($indis)!=$males+$females) {
echo ' ', count($indis)-$males-$females;
}
echo ' | ';
echo '', WT_I18N::translate('Total families: %s', count($fams)), ' | ';
echo '
';
break;
case 'calendar':
// We use JD%7 = 0/Mon...6/Sun. Config files use 0/Sun...6/Sat. Add 6 to convert.
$week_start=($WEEK_START+6)%$days_in_week;
// The french calendar has a 10-day week, but our config only lets us choose
// mon-sun as a start day. Force french calendars to start on primidi
if ($days_in_week==10) {
$week_start=0;
}
echo "
";
for ($week_day=0; $week_day<$days_in_week; ++$week_day) {
$day_name=$cal_date->dayNames(($week_day+$week_start) % $days_in_week);
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 '', WT_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 WT_Date($cal_date->format("%@ {$d} %O %E")); $d_fmt=$tmp->date1->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 WT_Date_French($cal_date->minJD + $d - 1);
break;
case 'gregorian':
$alt_date = new WT_Date_Gregorian($cal_date->minJD + $d - 1);
break;
case 'jewish':
$alt_date = new WT_Date_Jewish($cal_date->minJD + $d - 1);
break;
case 'julian':
$alt_date = new WT_Date_Julian($cal_date->minJD + $d - 1);
break;
case 'hijri':
$alt_date = new WT_Date_Hijri($cal_date->minJD + $d - 1);
break;
case 'jalali':
$alt_date = new WT_Date_Jalali($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;
}