<?php

/**

* Display Events on a Calendar

*

* Displays events on a daily, monthly, or yearly calendar.

*

* phpGedView: Genealogy Viewer

* Copyright (C) 2002 to 2009 PGV Development Team. All rights reserved.

*

* This program is free software; you can redistribute it and/or modify

* it under the terms of the GNU General Public License as published by

* the Free Software Foundation; either version 2 of the License, or

* (at your option) any later version.

*

* This program is distributed in the hope that it will be useful,

* but WITHOUT ANY WARRANTY; without even the implied warranty of

* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

* GNU General Public License for more details.

*

* You should have received a copy of the GNU General Public License

* along with this program; if not, write to the Free Software

* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

*

* This Page Is Valid XHTML 1.0 Transitional! > 3 September 2005

*

* $Id$

* @package PhpGedView

* @subpackage Calendar

*/

/**

* load the configuration and create the context

*/

// Initialization

require_once( '../kernel/setup_inc.php' );

require_once("includes/functions/functions_print_lists.php");

if (isset($_REQUEST['cal'])) $cal = $_REQUEST['cal'];

if (isset($_REQUEST['day'])) $day = $_REQUEST['day'];

if (isset($_REQUEST['month'])) $month = $_REQUEST['month'];

if (isset($_REQUEST['year'])) $year = $_REQUEST['year'];

if (isset($_REQUEST['action'])) $action = $_REQUEST['action'];

if (isset($_REQUEST['filterev'])) $filterev = $_REQUEST['filterev'];

if (isset($_REQUEST['filterof'])) $filterof = $_REQUEST['filterof'];

if (isset($_REQUEST['filtersx'])) $filtersx = $_REQUEST['filtersx'];

// Set undefined parameters to defaults

if (empty($cal )) $cal ='';

if (empty($day )) $day ='';

if (empty($month )) $month ='';

if (empty($year )) $year ='';

if (empty($action )) $action ='today';

if (empty($filterev)) $filterev='bdm';

if (empty($filterof)) $filterof='all';

if (empty($filtersx)) $filtersx='';

// Create a CalendarDate from the parameters

$cal=urldecode($cal);

// advance-year "year range"

if (preg_match('/^(\d+)-(\d+)$/', $year, $match)) {

if (strlen($match[1]) > strlen($match[2]))

$match[2]=substr($match[1], 0, strlen($match[1])-strlen($match[2])).$match[2];

$ged_date=new GedcomDate("FROM {$cal} {$match[1]} TO {$cal} {$match[2]}");

$action='year';

} else

// advanced-year "decade/century wildcard"

if (preg_match('/^(\d+)(\?+)$/', $year, $match)) {

$y1=$match[1].str_replace('?', '0', $match[2]);

$y2=$match[1].str_replace('?', '9', $match[2]);

$ged_date=new GedcomDate("FROM {$cal} {$y1} TO {$cal} {$y2}");

$action='year';

} else {

if ($year<0)

$year=(-$year)."B.C."; // need BC to parse date

$ged_date=new GedcomDate("{$cal} {$day} {$month} {$year}");

$year=$ged_date->date1->y; // need negative year for year entry field.

}

$cal_date=&$ged_date->date1;

$cal=urlencode($cal);

// Invalid month? Pick a sensible one.

if ($cal_date->CALENDAR_ESCAPE()=='@#DHEBREW@' && $cal_date->m==7 && $cal_date->y!=0 && !$cal_date->IsLeapYear())

$cal_date->m=6;

// Fill in any missing bits with todays date

$today=$cal_date->Today();

if ($cal_date->d==0) $cal_date->d=$today->d;

if ($cal_date->m==0) $cal_date->m=$today->m;

if ($cal_date->y==0) $cal_date->y=$today->y;

$cal_date->SetJDfromYMD();

if ($year==0)

$year=$cal_date->y;

// Extract values from date

$days_in_month=$cal_date->DaysInMonth();

$days_in_week=$cal_date->DaysInWeek();

$cal_month=$cal_date->Format('O');

$today_month=$today->Format('O');

// Invalid dates? Go to monthly view, where they'll be found.

if ($cal_date->d>$days_in_month && $action=='today')

$action='calendar';

// Print the header stuff

print_header($pgv_lang['anniversary_calendar']);

print '<div style="text-align: center;" id="calendar_page">';

if ($view!='preview') {

// Calendar form

print '<form name="dateform" method="get" action="calendar.php">';

print "<input type=\"hidden\" name=\"cal\" value=\"{$cal}\" />";

print "<input type=\"hidden\" name=\"day\" value=\"{$cal_date->d}\" />";

print "<input type=\"hidden\" name=\"month\" value=\"{$cal_month}\" />";

print "<input type=\"hidden\" name=\"year\" value=\"{$cal_date->y}\" />";

print "<input type=\"hidden\" name=\"action\" value=\"{$action}\" />";

print "<input type=\"hidden\" name=\"filterev\" value=\"{$filterev}\" />";

print "<input type=\"hidden\" name=\"filtersx\" value=\"{$filtersx}\" />";

print "<input type=\"hidden\" name=\"filterof\" value=\"{$filterof}\" />";

}

print '<table class="facts_table '.$TEXT_DIRECTION.' width100">';

print '<tr><td class="facts_label" colspan="8"><h2>';

switch ($action) {

case 'today':

print $pgv_lang['on_this_day'].'<br/>'.$ged_date->Display(false);

break;

case 'calendar':

print $pgv_lang['in_this_month'].'<br/>'.$ged_date->Display(false, 'F Y');

break;

case 'year':

print $pgv_lang['in_this_year'].'<br/>'.$ged_date->Display(false, 'Y');

break;

}

print '</h2></td></tr>';

if ($view!='preview') {

// Day selector

print '<tr><td class="descriptionbox vmiddle">';

print_help_link('annivers_date_select_help', 'qm', 'day');

print $pgv_lang['day'].'</td><td colspan="7" class="optionbox">';

for($d=1; $d<=$days_in_month; $d++) {

// Format the day number using the calendar

$tmp=new GedcomDate($cal_date->Format("@ {$d} O E")); $d_fmt=$tmp->date1->Format('j');

if ($d==$cal_date->d)

print "<span class=\"error\">{$d_fmt}</span>";

else

print "<a href=\"".encode_url("calendar.php?cal={$cal}&day={$d}&month={$cal_month}&year={$cal_date->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action={$action}")."\">{$d_fmt}</a>";

print ' | ';

}

$tmp=new GedcomDate($today->Format('@ A O E')); // Need a gedcom date to get localisation

print "<a href=\"calendar.php?cal={$cal}&amp;day={$today->d}&amp;month={$today_month}&amp;year={$today->y}&amp;filterev={$filterev}&amp;filterof={$filterof}&amp;filtersx={$filtersx}&amp;action={$action}\"><b>".$tmp->Display(true, NULL, array()).'</b></a></td></tr>';

// Month selector

print '<tr><td class="descriptionbox vmiddle">';

print_help_link('annivers_month_select_help', 'qm', 'month');

print $pgv_lang['month'].'</td>';

print '<td class="optionbox" colspan="7">';

for ($n=1; $n<=$cal_date->NUM_MONTHS(); ++$n) {

$m=$cal_date->NUM_TO_MONTH($n);

if ($n==7 && $cal_date->CALENDAR_ESCAPE()=='@#DHEBREW@' && !$cal_date->IsLeapYear())

continue;

if ($n==6 && $cal_date->CALENDAR_ESCAPE()=='@#DHEBREW@' && $cal_date->IsLeapYear())

$l.='_leap_year';

else

$l='';

$month_name=$pgv_lang[$m.$l];

if ($n==$cal_date->m)

$month_name="<span class=\"error\">{$month_name}</span>";

print "<a href=\"".encode_url("calendar.php?cal={$cal}&day={$cal_date->d}&month={$m}&year={$cal_date->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action={$action}")."\">{$month_name}</a>";

print ' | ';

}

print "<a href=\"".encode_url("calendar.php?cal={$cal}&day=".min($cal_date->d, $today->DaysInMonth())."&month={$today_month}&year={$today->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action={$action}")."\"><b>".$today->Format('F Y').'</b></a></td></tr>';

// Year selector

print '<tr><td class="descriptionbox vmiddle">';

print_help_link('annivers_year_select_help', 'qm', 'year');

print $pgv_lang['year'].'</td>';

print "<td class=\"optionbox vmiddle\">";

print "<a href=\"".encode_url("calendar.php?cal={$cal}&day={$cal_date->d}&month={$cal_month}&year=".($cal_date->y==1?-1:$cal_date->y-1)."&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action={$action}")."\">-1</a>";

print " <input type=\"text\" name=\"year\" value=\"{$year}\" size=\"7\" /> ";

print "<a href=\"".encode_url("calendar.php?cal={$cal}&day={$cal_date->d}&month={$cal_month}&year=".($cal_date->y==-1?1:$cal_date->y+1)."&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action={$action}")."\">+1</a>";

print " | <a href=\"".encode_url("calendar.php?cal={$cal}&day={$cal_date->d}&month={$cal_month}&year={$today->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action={$action}")."\"><b>".$today->Format('Y')."</b></a>";

print "</td> ";

// Filtering options

print "<td class=\"descriptionbox vmiddle\">";

print_help_link("annivers_show_help", "qm", "show");

print $pgv_lang["show"].":&nbsp;</td>";

print "<td class=\"optionbox vmiddle\">";

print "<select class=\"list_value\" name=\"filterof\" onchange=\"document.dateform.submit();\">";

print "<option value=\"all\"";

if ($filterof == "all") print " selected=\"selected\"";

print ">".$pgv_lang["all_people"]."</option>";

if (!$HIDE_LIVE_PEOPLE || PGV_USER_ID) {

print "<option value=\"living\"";

if ($filterof == "living") print " selected=\"selected\"";

print ">".$pgv_lang["living_only"]."</option>";

}

print "<option value=\"recent\"";

if ($filterof == "recent") print " selected=\"selected\"";

print ">".$pgv_lang["recent_events"]."</option>";

print "</select>";

print "</td>";

print "<td class=\"descriptionbox vmiddle\">";

print_help_link("annivers_sex_help", "qm", "sex");

print $pgv_lang["sex"].":&nbsp;</td>";

print "<td class=\"optionbox vmiddle\">";

if ($filtersx=="") {

echo Person::sexImage('M', 'large', 'vertical-align: middle', $pgv_lang['all']);

echo Person::sexImage('F', 'large', 'vertical-align: middle', $pgv_lang['all']), ' | ';

} else {

print "<a href=\"".encode_url("calendar.php?cal={$cal}&day={$cal_date->d}&month={$cal_month}&year={$cal_date->y}&filterev={$filterev}&filterof={$filterof}&filtersx=&action={$action}")."\">";

echo Person::sexImage('M', 'small', 'vertical-align: middle', $pgv_lang['all']);

echo Person::sexImage('F', 'small', 'vertical-align: middle', $pgv_lang['all']), '</a> | ';

}

if ($filtersx=="M") {

echo Person::sexImage('M', 'large', 'vertical-align: middle', $pgv_lang['male']), ' | ';

} else {

echo "<a href=\"".encode_url("calendar.php?cal={$cal}&day={$cal_date->d}&month={$cal_month}&year={$cal_date->y}&filterev={$filterev}&filterof={$filterof}&filtersx=M&action={$action}")."\">";

echo Person::sexImage('M', 'small', 'vertical-align: middle', $pgv_lang['male']), '</a> | ';

}

if ($filtersx=="F")

echo Person::sexImage('F', 'large', 'vertical-align: middle', $pgv_lang['female']), ' | ';

else {

echo "<a href=\"".encode_url("calendar.php?cal={$cal}&day={$cal_date->d}&month={$cal_month}&year={$cal_date->y}&filterev={$filterev}&filterof={$filterof}&filtersx=F&action={$action}")."\">";

echo Person::sexImage('F', 'small', 'vertical-align: middle', $pgv_lang['female']), '</a>';

}

print "</td>";

print "<td class=\"descriptionbox vmiddle\">";

print_help_link("annivers_event_help", "qm", "showcal");

print $pgv_lang["showcal"]."&nbsp;</td>";

print "<td class=\"optionbox\">";

print "<input type=\"hidden\" name=\"filterev\" value=\"$filterev\" />";

print "<select class=\"list_value\" name=\"filterev\" onchange=\"document.dateform.submit();\">";

print "<option value=\"bdm\"";

if ($filterev == "bdm") print " selected=\"selected\"";

print ">".$pgv_lang["bdm"]."</option>";

print "<option value=\"all\"";

if ($filterev == "all") print " selected=\"selected\"";

print ">".$pgv_lang["all"]."</option>";

print "<option value=\"BIRT\"";

if ($filterev == "BIRT") print " selected=\"selected\"";

print ">".$factarray["BIRT"]."</option>";

print "<option value=\"CHR\"";

if ($filterev == "CHR") print " selected=\"selected\"";

print ">".$factarray["CHR"]."</option>";

print "<option value=\"CHRA\"";

if ($filterev == "CHRA") print " selected=\"selected\"";

print ">".$factarray["CHRA"]."</option>";

print "<option value=\"BAPM\"";

if ($filterev == "BAPM") print " selected=\"selected\"";

print ">".$factarray["BAPM"]."</option>";

print "<option value=\"_COML\"";

if ($filterev == "_COML") print " selected=\"selected\"";

print ">".$factarray["_COML"]."</option>";

print "<option value=\"MARR\"";

if ($filterev == "MARR") print " selected=\"selected\"";

print ">".$factarray["MARR"]."</option>";

print "<option value=\"_SEPR\"";

if ($filterev == "_SEPR") print " selected=\"selected\"";

print ">".$factarray["_SEPR"]."</option>";

print "<option value=\"DIV\"";

if ($filterev == "DIV") print " selected=\"selected\"";

print ">".$factarray["DIV"]."</option>";

print "<option value=\"DEAT\"";

if ($filterev == "DEAT") print " selected=\"selected\"";

print ">".$factarray["DEAT"]."</option>";

print "<option value=\"BURI\"";

if ($filterev == "BURI") print " selected=\"selected\"";

print ">".$factarray["BURI"]."</option>";

print "<option value=\"IMMI\"";

if ($filterev == "IMMI") print " selected=\"selected\"";

print ">".$factarray["IMMI"]."</option>";

print "<option value=\"EMIG\"";

if ($filterev == "EMIG") print " selected=\"selected\"";

print ">".$factarray["EMIG"]."</option>";

print "<option value=\"EVEN\"";

if ($filterev == "EVEN") print " selected=\"selected\"";

print ">".$pgv_lang["custom_event"]."</option>";

print "</select>";

print "</td></tr>";

// Day/Month/Year and calendar selector

print '<tr><td class="topbottombar" colspan="8">';

print_help_link("day_month_help", "qm");

if ($action=='today')

print "<span class=\"error\">{$pgv_lang['viewday']}</span>";

else

print "<a href=\"".encode_url("calendar.php?cal={$cal}&day={$cal_date->d}&month={$cal_month}&year={$cal_date->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action=today")."\">{$pgv_lang['viewday']}</a>";

if ($action=='calendar')

print " | <span class=\"error\">{$pgv_lang['viewmonth']}</span>";

else

print " | <a href=\"".encode_url("calendar.php?cal={$cal}&day={$cal_date->d}&month={$cal_month}&year={$cal_date->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action=calendar")."\">{$pgv_lang['viewmonth']}</a>";

if ($action=='year')

print " | <span class=\"error\">{$pgv_lang['viewyear']}</span>";

else

print " | <a href=\"".encode_url("calendar.php?cal={$cal}&day={$cal_date->d}&month={$cal_month}&year={$cal_date->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action=year")."\">{$pgv_lang['viewyear']}</a>";

foreach (array('gregorian', 'julian', 'jewish', 'french', 'hijri') as $newcal) {

$tmp=$cal_date->convert_to_cal($newcal);

if ($tmp->InValidRange())

if ($tmp->CALENDAR_ESCAPE()==$cal_date->CALENDAR_ESCAPE())

print " | <span class=\"error\">{$pgv_lang['cal_'.$newcal]}</span>";

else {

$newcalesc=urlencode($tmp->CALENDAR_ESCAPE());

$tmpmonth=$tmp->FormatGedcomMonth();

print " | <a href=\"".encode_url("calendar.php?cal={$newcalesc}&day={$tmp->d}&month={$tmpmonth}&year={$tmp->y}&filterev={$filterev}&filterof={$filterof}&filtersx={$filtersx}&action={$action}")."\">{$pgv_lang['cal_'.$newcal]}</a>";

}

}

print "</td></tr>";

} // print preview

print "</table>\n</form>\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']].='<br/>'.$fact_text;

break;

case 'FAM':

if (empty($fams[$fact['id']]))

$fams[$fact['id']]=$fact_text;

else

$fams[$fact['id']].='<br/>'.$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].='<br/>'.calendar_fact_text($fact, false);

}

}

break;

}

switch ($action) {

case 'year':

case 'today':

print "<table class=\"center {$TEXT_DIRECTION} width100\"><tr>";

// Table headings

print "<td class=\"descriptionbox center width50\"><img src=\"{$PGV_IMAGE_DIR}/{$PGV_IMAGES['indis']['small']}\" border=\"0\" title=\"{$pgv_lang['individuals']}\" alt=\"{$pgv_lang['individuals']}\" />&nbsp;&nbsp;&nbsp;{$pgv_lang['individuals']}</td>";

print "<td class=\"descriptionbox center width50\"><img src=\"{$PGV_IMAGE_DIR}/{$PGV_IMAGES['cfamily']['small']}\" border=\"0\" title=\"{$pgv_lang['families']}\" alt=\"{$pgv_lang['families']}\" />&nbsp;&nbsp;&nbsp;{$pgv_lang['families']}</td>";

print "</tr><tr>";

// Table rows

$males=0;

$females=0;

$numfams=0;

print "<td class=\"optionbox {$TEXT_DIRECTION} wrap\">";

// Avoid an empty unordered list

ob_start();

print calendar_list_text($indis, "<li>", "</li>", true);

$content = ob_get_clean();

if (!empty($content)) {

echo '<ul>', $content, '</ul>';

}

print '</td>';

print "<td class=\"optionbox {$TEXT_DIRECTION} wrap\">";

// Avoid an empty unordered list

ob_start();

print calendar_list_text($fams, "<li>", "</li>", true);

$content = ob_get_clean();

if (!empty($content)) {

echo '<ul>', $content, '</ul>';

}

echo '</td>';

print "</tr><tr>";

// Table footers

print "<td class=\"descriptionbox\">{$pgv_lang['total_indis']} ";

print count($indis);

print "<br />";

echo Person::sexImage('M', 'small', 'vertical-align: middle', $pgv_lang['all']), "&nbsp;{$males}&nbsp;&nbsp;&nbsp;&nbsp;";

echo Person::sexImage('F', 'small', 'vertical-align: middle', $pgv_lang['all']), "&nbsp;{$females}&nbsp;&nbsp;&nbsp;&nbsp;";

if (count($indis)!=$males+$females)

echo Person::sexImage('U', 'small', 'vertical-align: middle', $pgv_lang['all']), '&nbsp;', count($indis)-$males-$females;

print "</td>";

print "<td class=\"descriptionbox\">{$pgv_lang['total_fams']} ".count($fams)."</td>";

print "</tr></table>";

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;

}

print "<table class=\"list_table width100 $TEXT_DIRECTION\"><tr>";

for ($week_day=0; $week_day<$days_in_week; ++$week_day) {

$day_name=$cal_date->DAYS_OF_WEEK(($week_day+$week_start) % $days_in_week);

if (isset($pgv_lang[$day_name]))

$day_name=$pgv_lang[$day_name];

print "<td class=\"descriptionbox\" width=\"".floor(100/$days_in_week)."%\">{$day_name}</td>";

}

print "</tr>";

// 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)

print "<tr>";

print "<td class=\"optionbox wrap\">";

if ($d<1 || $d>$days_in_month)

if (count($cal_facts[0])>0) {

print "<span class=\"cal_day\">{$pgv_lang['day_not_set']}</span><br style=\"clear: both\" />";

print "<div class=\"details1\" style=\"height: 150px; overflow: auto;\">";

print calendar_list_text($cal_facts[0], "", "", false);

print "</div>";

$cal_facts[0]=array();

} else

print '&nbsp;';

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)

print "<span class=\"cal_day current_day\">{$d_fmt}</span>";

else

print "<span class=\"cal_day\">{$d_fmt}</span>";

// 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();

print "<span class=\"rtl_cal_day\">".$alt_date->Format("j M")."</span>";

break;

}

}

print "<br style=\"clear: both\" /><div class=\"details1\" style=\"height: 150px; overflow: auto;\">";

print calendar_list_text($cal_facts[$d], "", "", false);

print "</div>";

}

print "</td>";

if (($d+$cal_date->minJD-$week_start) % $days_in_week==0)

print '</tr>';

}

print '</table>';

break;

}

if ($view=="preview") {

// Print details of any filtering

$filters=array();

if ($filterof=='living')

$filters[]=$pgv_lang['living_only'];

if ($filterof=='recent')

$filters[]=$pgv_lang['recent_events'];

if ($filtersx=='M')

$filters[]=$pgv_lang["male"];

if ($filtersx=='F')

$filters[]=$pgv_lang["female"];

if ($filterev=='bdm')

$filters[]=$pgv_lang['bdm'];

else

if ($filterev!='all')

$filters[].=$factarray[$filterev];

$filtertext=implode(' - ', $filters);

if (!empty($filters))

$filtertext="({$pgv_lang['filter']}: {$filtertext})";

echo '<br />', get_gedcom_setting(PGV_GED_ID, 'title'), ' ', $filtertext;

}

// print "</table>";

print "</div><br />";

print_footer();

/////////////////////////////////////////////////////////////////////////////////

// Filter a list of facts

/////////////////////////////////////////////////////////////////////////////////

function apply_filter($facts, $filterof, $filtersx) {

}

////////////////////////////////////////////////////////////////////////////////

// Format a fact for display. Include the date, the event type, and optionally

// the place.

////////////////////////////////////////////////////////////////////////////////

function calendar_fact_text($fact, $show_places) {

}

////////////////////////////////////////////////////////////////////////////////

// Format a list of facts for display

////////////////////////////////////////////////////////////////////////////////

function calendar_list_text($list, $tag1, $tag2, $show_sex_symbols) {

}

?>