[Bps-public-commit] App-Changeloggr branch, master, updated. 0ad4c26210d5531c77a02fd89b0f557dbd131869

[sartak at bestpractical.com]

The branch, master has been updated
       via  0ad4c26210d5531c77a02fd89b0f557dbd131869 (commit)
      from  dfa523a5e4b7c2eeb4b7803c2c6a3014f9632f07 (commit)

Summary of changes:
 lib/App/Changeloggr/InputFormat/Subversion.pm    |    2 +-
 lib/App/Changeloggr/InputFormat/SubversionXML.pm |   12 +++++++-----
 2 files changed, 8 insertions(+), 6 deletions(-)

- Log -----------------------------------------------------------------
commit 0ad4c26210d5531c77a02fd89b0f557dbd131869
Author: Shawn M Moore <sartak at gmail.com>
Date:   Thu Jul 30 14:05:05 2009 -0400

    date = commit_date for svn

diff --git a/lib/App/Changeloggr/InputFormat/Subversion.pm b/lib/App/Changeloggr/InputFormat/Subversion.pm
index cc4d74a..4d2bac3 100644
--- a/lib/App/Changeloggr/InputFormat/Subversion.pm
+++ b/lib/App/Changeloggr/InputFormat/Subversion.pm
@@ -37,7 +37,7 @@ sub next_match {
     $fields{raw} = $1;
     $fields{identifier} = $2;
     $fields{author} = $3;
-    $fields{date} = DATE_PARSER->parse_datetime($4);
+    $fields{date} = $fields{commit_date} = DATE_PARSER->parse_datetime($4);
     $fields{message} = $self->strip_detritus($5);
 
     return \%fields;
diff --git a/lib/App/Changeloggr/InputFormat/SubversionXML.pm b/lib/App/Changeloggr/InputFormat/SubversionXML.pm
index d9da812..2b48502 100644
--- a/lib/App/Changeloggr/InputFormat/SubversionXML.pm
+++ b/lib/App/Changeloggr/InputFormat/SubversionXML.pm
@@ -22,12 +22,14 @@ sub next_match {
     unless ( $self->{log_entries} ) {
         my $data = XMLin( $self->{text}, ForceArray => ["logentry"] );
         $self->{log_entries} = [map {
+            my $date = DATE_PARSER->parse_datetime( $_->{date} );
             {
-                identifier => $_->{revision},
-                author     => $_->{author},
-                date       => DATE_PARSER->parse_datetime( $_->{date} ),
-                message    => $self->strip_detritus($_->{msg}),
-                raw        => XMLout($_, NoAttr => 1), # Rather a hack
+                identifier  => $_->{revision},
+                author      => $_->{author},
+                date        => $date,
+                commit_date => $date,
+                message     => $self->strip_detritus($_->{msg}),
+                raw         => XMLout($_, NoAttr => 1), # Rather a hack
             };
         } @{ $data->{logentry} }];
     }

-----------------------------------------------------------------------