@@ -1,5 +1,9 @@ Revision history for Perl extension HTML::Timeline. +1.04 Fri Aug 29 14:44:00 2008 + - Download Phil Durbin's patches from github + - Implement missing_as_table (see docs for details) + 1.03 Fri Aug 22 12:23:00 2008 - Add support for ~/.timelinerc, using Config::IniFiles - Rename Changes.txt to CHANGES because search.cpan.org won't display Changes.txt CHANGES @@ -3,9 +3,21 @@ Name=HTML::Timeline Configlog.Creator=Module::Metadata::Changes V 1.01 Configlog.Parser=Config::IniFiles V 2.39 +[V 1.04] +Date=2008-08-29T14:44:00 +Comments= <<EOT +- Download Phil Durbin's patches from github +- Implement missing_as_table (see docs for details) +EOT + [V 1.03] Date=2008-08-22T12:23:00 -Comments=- Add support for ~/.timelinerc using Config::IniFiles +Comments= <<EOT +- Add support for ~/.timelinerc using Config::IniFiles +- Rename Changes.txt to CHANGES because search.cpan.org won't display Changes.txt +- Ensure spouse of root person is included when processing descendents and spouses +- Fix date-parsing via Gedcom::Date +EOT [V 1.02] Date=2008-08-18T13:50:00 Changelog.ini @@ -31,6 +31,7 @@ push @option, 'everyone'; push @option, 'gedcom_file=s'; push @option, 'help'; push @option, 'include_spouses'; +push @option, 'missing_as_table'; push @option, 'output_dir=s'; push @option, 'root_person=s'; push @option, 'template_dir=s'; @@ -70,6 +71,7 @@ timeline.pl [options] -gedcom_file a_file_name -help -include_spouses + -missing_as_table -output_dir a_dir_name -root_person a_personal_name -template_dir a_dir_name @@ -126,6 +128,12 @@ If this option is used, and descendents are processed, spouses are included. If this option is not used, spouses are ignored. +=item -missing_as_table + +If this option is used, people with missing birthdates are listed under the timeline, in a table. + +If this option is not used, such people appear on the timeline, with today's date as their birthdate. + =item -output_dir a_dir_name If this option is used, the output HTML and XML files will be created in this directory. bin/timeline.pl @@ -43,7 +43,7 @@ var resizeTimerID = null; <body onload="onLoad();" onresize="onResize();"> <h1>Timeline</h1> <div id="my-timeline" style="height: <tmpl_var name=timeline_height>px; border: 1px solid #aaa"></div> - <tmpl_if name=missing> + <tmpl_if name=missing_as_table> <p> <tmpl_var name=missing> </p> @@ -55,6 +55,10 @@ var resizeTimerID = null; <tr><th><tmpl_var name=name></th><td><tmpl_var name=death_date></td> </tmpl_loop> </table> + <tmpl_else> + <p> + People excluded because of missing birth dates have been given a birthdate of <tmpl_var name=todays_date>. + </p> </tmpl_if> <hr /> <p>Note: You should see 2 timescales at the bottom of the timeline. You can click-and-drag examples/timeline.tmpl @@ -23,6 +23,7 @@ format gedcom_file gedobj include_spouses +missing_as_table output_dir root_person template_dir @@ -58,7 +59,7 @@ our @EXPORT = qw( ); -our $VERSION = '1.03'; +our $VERSION = '1.04'; # ----------------------------------------------- @@ -78,7 +79,9 @@ sub clean_persons_name sub generate_xml_file { - my($self, $people) = @_; + my($self, $people) = @_; + my($missing_message) = 'People excluded because of missing birth dates: '; + my($todays_date) = 1900 + (localtime() )[5]; # Process each person. @@ -192,6 +195,13 @@ sub generate_xml_file } } + if ( ($self -> missing_as_table() == 0) && ($#missing >= 0) ) + { + my($missing) = join(', ', map{$$_{'name'} } @missing); + + push @xml, qq| <event title="Missing" start="$todays_date" end="$todays_date">$missing</event>|; + } + push @xml, '</data>'; # Write timeline.xml. @@ -221,14 +231,22 @@ sub generate_xml_file $output_file_name = "$url_for_xml/$output_file_name"; # No Path::Class here. } - $template -> param(earliest_date => $earliest_date); - $template -> param(timeline_height => $self -> timeline_height() ); - $template -> param(xml_file_name => $output_file_name); + $template -> param(earliest_date => $earliest_date); + $template -> param(missing_as_table => $self -> missing_as_table() ); + $template -> param(timeline_height => $self -> timeline_height() ); + $template -> param(xml_file_name => $output_file_name); - if (@missing) + if ($#missing >= 0) { - $template -> param(missing => 'People excluded because of missing birth dates:'); - $template -> param(missing_loop => [map{ { death_date => $$_{'death_date'}, name => $$_{'name'} } } @missing]); + if ($self -> missing_as_table() == 1) + { + $template -> param(missing => $missing_message); + $template -> param(missing_loop => [map{ { death_date => $$_{'death_date'}, name => $$_{'name'} } } @missing]); + } + else + { + $template -> param(todays_date => $todays_date); + } } $output_file_name = $self -> web_page(); @@ -296,6 +314,7 @@ ancestors everyone gedcom_file include_spouses +missing_as_table output_dir root_person template_dir @@ -311,10 +330,11 @@ xml_file $self -> ancestors(0); $self -> everyone(0); - $self -> format('%-15s: %s'); # Not in the @options array! + $self -> format('%-16s: %s'); # Not in the @options array! $self -> gedcom_file('bach.ged'); $self -> gedobj(''); # Not in the @options array! $self -> include_spouses(0); + $self -> missing_as_table(0); $self -> output_dir(''); $self -> root_person('Johann Sebastian Bach'); $self -> template_dir('.'); @@ -525,6 +545,12 @@ If this option is 0, spouses are ignored. The default is 0. +=item missing_as_table + +If this option is 1, people with missing birthdates are listed under the timeline, in a table. + +If this option is 0, such people appear on the timeline, with today's date as their birthdate. + =item output_dir a_dir_name If this option is used, the output HTML and XML files will be created in this directory. lib/HTML/Timeline.pm d2f511387c805173833754c360d3f6410f777fec Ron Savage ron@savage.net.au http://github.com/ronsavage/html--timeline/commit/304bcaa62e7a5768488956ecb44146e93274f65a 304bcaa62e7a5768488956ecb44146e93274f65a

2008-08-28T21:47:05-07:00

Implement missing_as_table e536ab7ccb0fc0e448aca303845b1aca90d32bd5 Ron Savage ron@savage.net.au