';
if ($view!='preview') {
// Calendar form
echo '
\n";
// 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 $event) {
$tmp=$event['date']->MinDate();
if ($tmp->d>=1 && $tmp->d<=$tmp->DaysInMonth())
$d=$jd-$cal_date->minJD+1;
else
$d=0;
$found_facts[$d][]=$event;
}
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 duplictes (e.g. BET JUL 1900 AND SEP 1900 will appear twice in 1900)
foreach ($found_facts as $key=>$value)
$found_facts[$key]=serialize($found_facts[$key]);
$found_facts=array_unique($found_facts);
foreach ($found_facts as $key=>$value)
$found_facts[$key]=unserialize($found_facts[$key]);
break;
}
// Group the facts by family/individual
switch ($action) {
case 'year':
case 'today':
$indis=array();
$fams=array();
foreach ($found_facts as $fact) {
$fact_text=calendar_fact_text($fact, true);
switch ($fact['objtype']) {
case 'INDI':
if (empty($indis[$fact['id']]))
$indis[$fact['id']]=$fact_text;
else
$indis[$fact['id']].='
'.$fact_text;
break;
case 'FAM':
if (empty($fams[$fact['id']]))
$fams[$fact['id']]=$fact_text;
else
$fams[$fact['id']].='
'.$fact_text;
break;
}
}
break;
case 'calendar':
$cal_facts=array();
foreach ($found_facts as $d=>$facts) {
$cal_facts[$d]=array();
foreach ($facts as $fact) {
$id=$fact['id'];
if (empty($cal_facts[$d][$id]))
$cal_facts[$d][$id]=calendar_fact_text($fact, false);
else
$cal_facts[$d][$id].='
'.calendar_fact_text($fact, false);
}
}
break;
}
switch ($action) {
case 'year':
case 'today':
echo "
";
// Table headings
echo "![\"",](\"{$WT_IMAGE_DIR}/{$WT_IMAGES['indis']['small']}\" "\\"\",") ", i18n::translate('Individuals'), " | ";
echo "![\"",](\"{$WT_IMAGE_DIR}/{$WT_IMAGES['cfamily']['small']}\" "\\"\",") ", i18n::translate('Families'), " | ";
echo "
";
// Table rows
$males=0;
$females=0;
$numfams=0;
echo "| ";
// Avoid an empty unordered list
ob_start();
echo calendar_list_text($indis, "", "", true);
$content = ob_get_clean();
if (!empty($content)) {
echo '';
}
echo ' | ';
echo "";
// Avoid an empty unordered list
ob_start();
echo calendar_list_text($fams, "", "", true);
$content = ob_get_clean();
if (!empty($content)) {
echo '';
}
echo ' | ';
echo "
";
// Table footers
echo "", i18n::translate('Total individuals'), " ";
echo count($indis);
echo "
";
echo Person::sexImage('M', 'small', 'vertical-align: middle', i18n::translate('Males')), " {$males} ";
echo Person::sexImage('F', 'small', 'vertical-align: middle', i18n::translate('Females')), " {$females} ";
if (count($indis)!=$males+$females)
echo Person::sexImage('U', 'small', 'vertical-align: middle', i18n::translate('All People')), ' ', count($indis)-$males-$females;
echo " | ";
echo "", i18n::translate('Total families'), " ".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->LONG_DAYS_OF_WEEK(($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 "", 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 GedcomDate($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) {
$alt_date=$cal_date->convert_to_cal($convcal);
if ($alt_date->CALENDAR_ESCAPE()!=$cal_date->CALENDAR_ESCAPE()) {
list($alt_date->y, $alt_date->m, $alt_date->d)=$alt_date->JDtoYMD($cal_date->minJD+$d-1);
$alt_date->SetJDfromYMD();
echo "".$alt_date->Format("%j %M")."";
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;
}
if ($view=="preview") {
// Print details of any filtering
$filters=array();
if ($filterof=='living') {
$filters[]=i18n::translate('Living People');
}
if ($filterof=='recent') {
$filters[]=i18n::translate('Recent Years (< 100 yrs)');
}
if ($filtersx=='M') {
$filters[]=i18n::translate('Male');
}
if ($filtersx=='F') {
$filters[]=i18n::translate('Female');
}
if ($filterev=='bdm') {
$filters[]=i18n::translate('Births, Deaths, Marriages');
} elseif ($filterev!='all') {
$filters[].=i18n::translate($filterev);
}
$filtertext=implode(' - ', $filters);
if (!empty($filters)) {
$filtertext="(".i18n::translate('Filter').": {$filtertext})";
}
echo '
', get_gedcom_setting(WT_GED_ID, 'title'), ' ', $filtertext;
}
echo "